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Zum Abtippen: 
Sensationelles Tool 
für bewegte Gra^keri 


Fast-Load-Copy:; J 
Schnelles Directdfy 
durch optimierte Wopien 
Haushaltsbuch: 

Ihre Finanzen k 
endlich im Griff % 
Gravitation: \ 

Jonglieren mit Sonnen 
und Planeten 


Vokabeltrainer: 
Intelligentes 
Lemprogramm für 
mehrere Sprachen 


Alle Programme auch auf Diskette erhältlich 
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Knallharte Informationen. 
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DATA BECKER 

AMIGA 


Neuauflage: die Inside-Story. 

Amiga Intern - ein Intern, wie man es 
von DATA BECKER gewohnt ist. Mit 
allem, was dazugehört; 68000-Prozes- 
sor, CIA, Blitter, Custom-Chips, die 
Strukturen von EXEC, I/O-Hand- 
habung, Verwaltung der Resources, 
Erstellung eigener Devices, Exec-Base, 
resetfeste Programme, Autoboot mit 
der ROMboot. library, DOS-Funkti- 
onen, interne DOS-Bibliothek, Aufbau 
einer Diskette, Programmierung eige¬ 
ner DOS-Handler. 

Amiga Intern 
Hardcover, 716 Seiten 
DM 69,- 



Amiga Intern Band 2 - das Buch für 
jeden aktiven Programmierer, der alle 
weiterführenden Informationen zu 
seiner Arbeit schnell und zuverlässig 
finden will: Ein- und Ausgabe über 
Devices, Standard-Austausch-Formate 
und Komprimierungsverfahren, alle 
Amiga-Libraries mit den dazugehörigen 
Strukturen, Basis- und Grundstruk¬ 
turen, Preferences als Datenstruktur, 
Datenübermittlung von Workbench 
und CLI, Konventionen im Program¬ 
mierstil und alles zur Version 1.3. 

Amiga Intern Band 2 
Hardcover, ca. 750 Seiten 
DM 69,- 

erscheint ca. 11/88 


Mit Programmen zaubern. 


Runter von der Workbench. 


Mit Amiga Tips & Tricks läßt sich die 
Arbeit mit Ihrem Rechner noch effek¬ 
tiver gestalten - selbstverständlich 
bereits unter Berücksichtigung des 
neuen Betriebssystems (Version 1.3): 
Gestaltung eigener Programme, Tips & 
Tricks zum AmigaBASIC, Einbinden von 
Maschinenprogrammen in Amiga¬ 
BASIC, Einsatz von DOS-Routinen, 
optimierende Hilfsprogramme für 
AmigaBASIC-Programme, Tips zur 
Arbeit mit der Workbench, Aufbau der 
Icons, die neuen Preferences. 

Amiga Tips & Tricks 
Hardcover, 555 Seiten, DM 49,- 



DAJABECKER 


AMidA 


Rein ins AmigaDOS: Umlenken der Ein- 
und Ausgabe, mit RAM-Disk und CLI 
arbeiten, STARTUP-Sequenz, Multi¬ 
tasking mit dem CLI, der interne Auf¬ 
bau der CLI-Befehle, eigene CLI- 
Befehle programmieren... Das große 
Buch zu AmigaDOS - mit nützlichen 
Batch-Dateien und einer Beschreibung 
der neuen CLI-Befehle und Devices 
unter V1.3! 

Das große Buch zu 
AmigaDOS 

Hardcover, 370 Seiten 
inkl. Diskette, DM 59,- 


Alles zur Amiga-Floppy. 

Brandaktuell: die zweite, erweiterte 
Auflage mit allem, was Bezug zur 
Floppy hat: Workbench, CLI, Amiga¬ 
BASIC mit verschiedenen Dateitypen, 
Zugriff aufs Betriebssystem (mit File- 
Verwaltung, Trackdisk-Device, Boot- 
Block sowie Checksummen) und direk¬ 
ter Zugriff ohne DOS (MSM- und 
GCA-Codierung, Track lesen und 
schreiben, SYNC-Markierung). Dazu 
einen Floppyspeeder, einen Disketten- 
Monitor und ein schnelles, leistungs¬ 
starkes Kopierprogramm. 

Das große Amiga Floppybuch 
Hardcover, 560 Seiten 
inkl. Diskette, DM 59,- 
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HIERMIT BESTELLE ICH FÜR MEINEN AMIGA 


NAME, VORNAME 


STRASSE 


DATA BECKER 

Merowingerstr. 30 • 4000 Düsseldorf -Tel. (0211) 310010 
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zzgl. DM 5,- Versandkosten unabhängig von der bestellten Stückzahl 
□ per Nachnahme □ Verrechnungsscheck liegt bei 





















































EDITORIAL 


Ihre 

Meinung 

bitte 


• Alle, die an der Entstehung des 
Amiga-Sonderheftes mitwirken, 
haben stets ein Ziel vor Augen: Wir wol¬ 
len Ihnen den Umgang mit Ihrem Com¬ 
puter erleichtern. Sie sollen in jedem 
Heft viele interessante Themen finden. 
Die vorgestellten Programme schlie¬ 
ßen Lücken im Software-Angebot, sind 
eine interessante und erschwingliche 
Alternative zu kommerziellen Produk¬ 
ten. Die Schwerpunkte dieses Sonder¬ 
hefts sind nach langen Diskussionen 
ausgewählt worden. Die Texte, die Sie 
auf den folgenden Seiten lesen wer¬ 
den, sind überprüft, geändert, noch¬ 
mals überprüft und nochmals geändert 
worden. Die Entstehung des Heftes, 
das Sie jetzt in den Händen halten, hat 
ungefähr drei Monate gedauert. Sind 
Sie mit dem zweiten Amiga-Sonderheft 
zufrieden, haben wir die richtige The¬ 
menwahl getroffen? Sagen Sie uns bit¬ 
te Ihre Meinung. Gelegenheit dazu ge¬ 
ben wir Ihnen mit der Leserumfrage 
auf Seite 14. Schreiben Sie uns, wel¬ 
che Themen Sie besonders interessie¬ 


ren. Wünschen Sie sich in den folgen¬ 
den Sonderheften Kurse und Listings? 
Sollen wir auf lange Listings im Heft 
völlig verzichten, sie lieber nur auf der 
Programmservice-Diskette veröffentli¬ 
chen? 

Ihre Meinung ist 
für uns wichtig, 
um in kommenden 
Ausgaben noch inter¬ 
essantere Themen für 
Sie auszuwählen. Übri¬ 
gens: Die Sonderhefte 
werden ab 1989 regel¬ 
mäßig im Abstand von 
zwei Monaten erschei¬ 
nen. 

Aber zusätzlich 
zum Fragebogen 
steht Ihnen natürlich 
jederzeit frei, per Brief, 

Postkarte oder telefonisch Stellung zu 
den Sonderheften zu nehmen und Fra¬ 
gen an die Redaktion zu stellen. 

Wenn Sie anrufen möchten, be¬ 
achten Sie bitte unsere regel¬ 
mäßige Sprechzeit: An jedem Don¬ 
nerstag sind wir von 14 bis 17 Uhr zu 
erreichen. Gemeinsam mit Ihnen ha¬ 
ben wir die Chance, sehr hohen 
Ansprüchen zu genügen. Nutzen Sie 
diese Möglichkeit, wir geben unser 
Bestes. 

Ihr 

Ralf Sablowski 
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GRAFIK 


6 EXTRAKLASSE: D 

SPRITE-EDITOR 

Bewegte Objekte sind das Salz in der Suppe — 
das gilt vor allem für Computer-Spiele. Entwerfen 
Sie mit dem »Object-Editor« bunte Figuren, die 
dann im Handumdrehen animiert werden. 


SPIELE 


10 MEISSE SCHLACHTEN IM AMIGA H 

Lieben Sie Risiko? Hier ist nicht die Neigung zu 
waghalsigen Taten gemeint, sondern das gleich¬ 
namige Brettspiel. Diese Umsetzung ist einfach 
super, erleben Sie das bekannte Strategie- und 
Glücksspiel auf dem Amiga. 


LESERUMFRAGE 


ANWENDUNGEN 


f Source f 


" KPn 

urir 


■iiTumTiiia 


18 FINANZEN IM GRIFF ■ 

Unser elektronischer Finanzmanager hilft Ihnen, 
Einnahmen und Ausgaben ständig unter Kontrolle 
zu behalten. Überprüfen Sie Ihren Etat mit diesem 
komfortablen Programm. 


23 INTELLIGENTER SPRACHENTRAINER H 

Vor dem Beherrschen einer Sprache sind Voka¬ 
beln zu lernen. Vermeiden Sie in Zukunft langwei¬ 
lige Büffelei, verbinden Sie Spaß und Lernen mit 
dem Vokabeltrainer. 


29 MEISTER DER TASTEN B 

Vom Zehn-Finger-System haben Sie sicher schon 
gehört. Möchten Sie ein Virtuose auf der 
Computer- oder Schreibmaschinentastatur wer¬ 
den? Der »Keyboard-Master« führt Sie in zwanzig 
Lektionen zu diesem Ziel. 


GRAFIK-TOOLS 


36 BILDER LERNEN LAUFEN B 

Filmähnliche Sequenzen lassen sich bisher nur 
mit teuren Programmen erstellen. Wir bieten eine 
Alternative: Zeichnen Sie Bilder mit einem 
Malprogramm, fügen Sie diese dann mit Hilfe von 
»PlayAnim« zu einem Trickfilm zusammen. 


119 


SCHACH DER LANGEWEILE B 

Shogun ist der Titel japanischer Feldherren, die 
anstelle der machtlosen Kaiser das Land regier¬ 
ten. In einem dem Schach ähnlichen Spiel verset¬ 
zen wir Sie in die Zeit der Shogun zurück. 


14 SAGEN SIE UNS IHRE MEINUNG 

Was erwarten Sie von »Ihrem« Amiga-Sonderheft? 
Liegt Ihr Hauptinteresse bei Kursen, Listings oder 
Tests? Gestalten Sie Ihr Sonderheft mit, füllen Sie 
den Fragebogen aus. Zu gewinnen gibt es dabei 
natürlich auch etwas. 


■Amiga sonderher 2 i 88 


Behalten Sie 
Einnahmen 
und Ausgaben 
mit dem Amiga 
unter Kontrolle. 

Mit dem elektro¬ 
nischen Haus¬ 
haltsbuch bekom¬ 
men Sie Ihre 
Knete in den Griff 
— und das mit viel 
Komfort. 

SEITE 18 




In diesem Spiel geht 
es um Karten, Konti¬ 
nente und Kanonen. 
Erobern Sie die Spiel¬ 
welt mit Taktik und 
Glück. 

SEITE 10 


Spieler nac 


Abbruch 


/on Hord-west-Afrika nach Brasilien 
Soll der Ansriff wiederholt »erden ? 


PISXCOPY 

sei 

48124 

sci.c 

4885 

sei.Bf 

41985 

sei.nie 

34 

sel.o 

34944 

BUB 


BIPB 


gWB 

mt 

HiWB 

mm 

PU 


bb 

im: 


volumss 


.iifo 

59 

iss2lis 

11144 , 

issAis.inft 

434 

e 


levs 


lisk.info 

378 

fents 


fttifdian 

2446 

L 


libs 


popeli 

4888 

Ppefepenees 

55918 

Ppefcpeiiees.iiifo 

416 i 


WhOt r 337W 
»»> lall files »e ceeitd » 
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FONTS MIT ALLEN TRICKS I 

Verschiedene Schriftarten, sogenannte Fonts, mei¬ 
stert der Amiga lässig. Nur wenige Programme 
unterstützten jedoch bisher das Konstruieren eige¬ 
ner Zeichensätze. Der Fontdesigner schließt diese 
Lücke — und das »fontastisch«. 



TYPE - 

OELETE 

htSpe 


Der Umgang mit dem CLI hält nicht, was die grafische 
Benutzeroberfläche des Amiga verspricht. Führen Sie CLI- 
Operationen von nun an bequem mit »Supercopy« durch. 

SEITE 90 
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Beteiligen 
Sie sich an 
der Leser¬ 
umfrage und 
gewinnen Sie 
ein Doppel¬ 
laufwerk mit 
Overdrive- 
System-Port. 

SEITE 14 


INHALT 


90 AMIGA KUNTERBUNT D 

Einzelne Bildteile kopieren und verfremden, das 
ist mit dem Amiga kein Problem. Wollen Sie bei 
eigenen Programmen die Manipulationen auf eine 
einzelne Farbe beschränken, bieten die Bibliothe- 
ken des Betriebssystems keine Unterstützung. Mit 
dieser Routine wird das anders. 



74 DER WELTENBAUER fl 

Diese Simulation verdeutlicht spielerisch die kom¬ 
plexen Zusammenhänge der Gravitation. Lernen 
Sie das Zusammenspiel gewaltiger Kräfte kennen, 
gestalten Sie Planetensysteme jetzt selbst! 


FLOPPY-TOOLS 


81 »FLOPPY-SPEEDER. MIT NIVEAU a 

Nervt Sie das langsame Laden des Inhaltsver¬ 
zeichnisses der eingelegten Diskette? Räumen 
Sie doch einfach Ihre Disketten auf. 

»FastLoadCopy« schafft Ordnung auf Floppy-Disks 
und dient gleichzeitig als Kopierprogramm. 


90 KOPIEREN MIT VIELEN EXTRAS ■ 

»CLI-Mate«, »Zing!« und »DiskMaster« sind Ihnen 
sicher ein Begriff. Wir präsentieren ein leistungs¬ 
starkes Tool, das sich mit diesen Programmen 
messen kann. 


TIPS & TRICKS 


112 EIN COCKTAIL FÜR ALLE FÄLLE 

Dieser Cocktail wird Ihnen schmecken: Zahlreiche 
Tips, die das Leben eines Amiga-Anwenders 
erleichtern. Verblüffen Sie Freunde mit den neu 
erworbenen Kenntnissen, beispielsweise mit dem 
Geheimnis der blinkenden Power-LED. 


117 TIPS ZU SUPERBASE PROFESSIONAL 

Superbase Professional und SB 2 gehören zu 
den leistungsfähigsten Dateiverwaltungen. Lernen 
Sie neue Seiten dieser Programme kennen. 


BÜCHER 


124 FUTTER FÜR LESERATTEN 

Übersicht über ergänzende Literatur zu den 
Schwerpunkten dieses Sonderhefts. 


EINGABEHILFEN 


159 CMECKSUMMER ■ 

Wie gebe ich Programme ein? Diesen Artikel soll¬ 
ten Sie unbedingt lesen, wenn Sie Programme 
aus diesem Sonderheft abtippen möchten. 


SONSTIGES 


3 EDITORIAL _ 

162 IMPRESSUM_ 

162 INSERENTENVERZEICHNIS 


Alle Programme aus Artikeln mit einem -Symbol finden Sie auch auf der Programm¬ 
service-Diskette zu diesem Sonderheft 
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Sprite-Editor 


Sprites gehören zu Spielen wie der Moni¬ 
tor zum Computer. Leider müssen diese 
auch auf dem Amiga in mühevoller Klein¬ 
arbeit erstellt werden. Unser Sprite-Editor 
beseitigt dieses Problem und macht 
selbst das Entwickeln von überdimen¬ 
sionalen Sprites zum Kinderspiel. 
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E s gibt kaum Spiele, die 
ohne Sprites auskom- 
men. Dabei beschränkt 
sich die Verwendung von be¬ 
wegten Objekten keineswegs 
nur auf Actionspiele. Auch 
Brettspiele, Knobelspiele, Ad- 
ventures etc. profitieren unge¬ 
mein durch den Einsatz be¬ 
weglicher Objekte. Mit der 
mausgesteuerten Benutzer¬ 
oberfläche des »Amiga-Object- 
Editor« (Bild 1) lassen sich Spri¬ 
tes und Animationssequenzen 
schnell und mühelos erstellen 
und editieren. Auch DPaint- 
Brushes lassen sich damit be¬ 
arbeiten. 

Geben Sie den DATA-Lader 

»AOE_Gen« (LIsting 1) mit 

dem Checksummer ein. Da 
das Programm einen relativ 
hohen Speicherbedarf hat, 
muß vor der Eingabe des 
Listings im Direktmodus 
des Basic-Editors »CLEAR, 
150000&« eingegeben wer¬ 
den. Dies hat auch dann zu ge¬ 
schehen, wenn »AOE_Gen« 

erneut In den Speicher ge¬ 
laden wird. Nach dem Start 
des Laders generiert dieser 
das lauffähige Programm 

»AOE_V1.2« auf Diskette. 

Nach diesem Vorgang, der et¬ 
was Zeit beansprucht, kann 
der Object-Editor gestartet 
werden. Dabei Ist zu beachten. 



Bild 1. Die Benutzeroberfläche des »Amiga-Object-Editors« 
mit den verschiedenen Icons 


daß das vom Lader generierte 
File nur vom CLI aus gestartet 
werden kann, obwohl ein Icon 
vorhanden wäre. 

Sie werden nach dem Start 
aufgefordert, die Anzahl der 
Objekte, die bearbeitet werden 
sollen, einzugeben. Klicken 
Sie dazu das Eingabefeld an 
und tragen die gewünschte 
Objektanzahl ein. 

Das Zeichnen eines Objek¬ 
tes ist durch die Maussteue¬ 
rung sehr einfach. Es stehen 
16 verschiedene Farben zur 
Verfügung, die durch einfa¬ 
ches Anklicken ausgewählt 
werden. Die Rot-Grün- und 
Blauanteile der gewählten Far¬ 
be können durch die Schalter 
am unteren rechten Bild¬ 
schirmrand verändert werden. 


stellt. Rechts oben sieht man 
das Sprite in Originalgröße. 
Unter diesem Fenster befinden 
sich vier Pfeile. Durch An¬ 
klicken dieser Pfeile kann das 
aktuelle Sprite in alle vier Him¬ 
melsrichtungen verschoben 
werden. Klicken Sie das Icon in 
der Mitte der Pfeile an, so än¬ 
dern diese Ihre Richtung und 
das Sprite wird nun bei der Ver¬ 
wendung der Pfeilsymbole In 
Richtung seiner Mittelachse 
gestaucht. Unter den Pfeil- 
Icons befinden sich acht weite¬ 
re Icons, auf deren Funktionen 
nun eingegangen werden soll: 
Icon 1 (Disketten-Icon): Hier 
haben Sie die Möglichkeit, 
Sprites zu laden und zu spei¬ 
chern. Zum Laden muß die ent¬ 
sprechende Option gewählt 


Adresse 

Wert 

Bemerkung | 

$00000000 

$00000004 

$00000006 

$00000026 

"AOE ".L 

OOOO.W 

OOOO.W 

Kennung der Objektdatei 

Anzahl der Objekte in der Datei 

Nun folgen 16 Wörter mit der 
Farbinfomation 

Es folgen die Objektdaten: 

Anzahl der Objekte mal 640 Byte. 

Die Objektdaten haben folgenden Aufbau; 

1. Objekt: 


1. Bitplane (128 Byte) 

2. Objekt: 


4. Bitplane (128 Byte) 

5. Maske (128 Byte) 

1. Bitplane (128 Byte) 

Jedem gesetzten Bit in der Maske entspricht ein gesetzter Punkt 
im Sprite 


Tabelle 1. Der Aufbau eines Files im >»AOE«-Format 


Gezeichnet wird ein Sprite mit 
Hilfe der Maus, wobei mit der 
linken Maustaste Punkte ge¬ 
setzt und mit der rechten ge¬ 
löscht werden. Das zu bearbei¬ 
tende Sprite wird bei »Objekt 
Nr.« ausgewählt. 

Im Zeichenfenster wird das 
Riesensprite, das in Wirklich¬ 
keit aus vier Einzelsprites be¬ 
steht, stark vergrößert darge¬ 


und die Nummer, unter der das 
Objekt im Speicher stehen soll, 
sowie der Filename eingege¬ 
ben werden. 


Fortsetzung 
des Artikels 
auf Seite 126 
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Wir 

liefern im 
S-Tage-Rhytlimus 


0231/818325-27 
Telefax 0231/817429 
D-4600 Dortmund 1 
Burgweg 52 a 


/ Golem Drive 3,5 Display 

NEC 1037a mit heller Frontblende • Amiga-farbenes Metallgehäu¬ 
se • Abschalter • Busdurchführung bis DF3 • Sidecar, PC 1 und PC 
Karteri-kompatibel •'Drackdisplay zur aktuellen Spur- und Kopfan- 
zeige 

mit Display DM 359.- 

ohne ] Usplay DM339.- 

Golem Drive 5,25 Display 

NEC Laufwerk mit heller Frontblende • Amiga-farbenes Metallge¬ 
häuse •Abschalter 40/80 Tlfack-Umschalter •Busdurchführung 
bis DF3 •PC Karten, Sidecar und PC 1 kompatibel •'Drackdisplay 
zur aktuellen Spur- und Kopfanzeige 

mit Display DM449.- 

ohne I HspUy DM419.- 

5 Golem Ram Box 2MB 

2MB Speichererweiterurw für dem Amiga 1000 •ansteckbar am 
Systembus • Abschalter • Busdurchführung • autokonfigurierend 
•Betriebskontrollanzeige •Amiga-farbenes Metallgehäuse •er¬ 
weitert den Grundspeicher auf 2,5 Megabyte 
komplett DM 1398.- 

ohne Ram’s DM 449.- 

A Golem 500 Ram Box 

2MB Speichererweiterung im formschönen 500'er Design •Bus¬ 
durchführung •autokonfigurierend •Betriebskontrollanzeige 
•externer Anschluß an den Systembus •erweitert den Grund¬ 
speicher auf 2,5 Megabyte 

komplett DM 1398.- 

ohne Ram’s DM 449.- 


5 Golem Sound Stereo 

Audio Digitizer der Spitzenklasse • kompatibel zur meisten Samp¬ 
lersoftware •DIN- und Cinch Anschluß auch für Micro geeignet 
•optisches Aussteuerungsdisplay • Stereowandlung •umschalt- 
bar auf Mono-Betrieb 

Stereo DM IM.- 

Mono ohne Display DM 139.- 

ß Golem Drive A 2000 

internes Amiga Drive •NEC 1036a mit heller Frontblende •ein¬ 
baufertig modifiziert •mit Staubschutzklappe •incl. Einbauanlei¬ 
tung und Montagesatz 

DM ZOO.- 

T Kickstart/Uhrenmodul 

“Bitte Workbench einlegen”, meldet ihr Amiga 1000 nach dem Ein¬ 
schalten mit dem extern ansteckbaren Kickstartmodul • Busdurch¬ 
führung • Abschalter, so daß andere Kickstartversionen wieder ge¬ 
bootet weden können •alle gängigen Kickstart-Versionen liefer- 

^ DM 199.- 

Amiga 500/2000 kompatibeles Uhrenmodul • Akkugepuffert • ex¬ 
tern ansteckbar 

im Extragehäuse DM 149.- 

Uhr u. Kick in einem Gehäuse DM299.- 

ö Kickstartumschaltolatine 

Intern einsteckbare Umschaltplatine bestückt mit einem zusätzli¬ 
chen Kickstart •alle gängigen Versionen •keine Lötarbeiten er¬ 
forderlich •umschaltbar auf original Kickstart 
komplett DM 149.- 

ohne Eprom’s DM 59.- 


Tfechnische Änderungen Vorbehalten 


Entwurf + Druck PLUM.Düren-Oberzier. TEL. 024 28/7 11 














Schlachten im Amiga 


D ie Blauen sind auf dem 
Vormarsch. Australien 
wurde bereits im 
Handstreich erobert, Asien ist 
zu zwei Dritteln von ihnen be¬ 
setzt. Die Gelben haben sich 
in Nord-Amerika eingenistet, 
auch sie sind eine große Be¬ 
drohung. Der Gegner konzen¬ 
triert seine Armeen im Mittle¬ 
ren Osten. Jetzt greift der Feld¬ 
herr der blauen Steine mit ei¬ 
ner gewaltigen Armee Europa 
an, Ihre einzige Bastion 
wackelt. Werden Sie diesen 
gewaltigen Zweikampf für sich 


entscheiden? So könnte die 
Lage im Verlaufe des Strate¬ 
giespiels »Amiga gegen den 
Rest der Welt« aussehen. Die¬ 
se Umsetzung eines beliebten 
Brettspiels der Firma Parker ist 
faszinierend. Jeder, der einmal 

Amiga gegen 
die Weit 

mit ein paar Freunden um die 
Welt gestritten hat, wird das 
bestätigen. Natürlich kann 
auch Ihr Amiga direkt in den 
Kampf eingreifen. Bei maximal 


sechs Mitspielern in einem 
Spiel sind bis zu fünf 
Computer-Gegner zu akti¬ 
vieren. 

Wenn Sie in den Genuß des 
Strategiespiels kommen wol¬ 
len, geben Sie bitte Listing 1 
(»Lader«) und das Hauptpro¬ 
gramm (Listing 2) mit dem 
Checksummer ein. Hinweise 
zu dieser Eingabehilfe finden 
Sie auf Seite 159 in diesem 
Heft. 

Haben Sie die Programme 
auf Diskette gespeichert, kann 
der Spaß beginnen. Laden Sie 


Amiga-Basic und starten von 
dort aus das Programm »La¬ 
der«. Der Speicher für das 
Basic-Programm wird jetzt auf 
40000 Byte vergrößert und das 
Hauptprogramm geladen. 

Die erste Meldung des 
Spiels fragt nach der Teilneh¬ 
merzahl der menschlichen 
Spieler. Wählen Sie eine Zahl 
von 0 bis 6, schließen Sie diese 
und alle folgenden Eingaben 
bitte mit < RETURN > ab. 
Jetzt möchte das Programm 
noch wissen, wie viele Gegner 
der Computer übernehmen 
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Spiele 


soll. Die erlaubten Eingaben 
sehen Sie in der Klammer hin¬ 
ter der Frage. 

Anschließend sind für die 
Spieler (menschlich) Namen 
einzugeben, maximal acht 
Buchstaben sind jeweils er¬ 
laubt. Die Wahl der Namen für 
die computer-gesteuerten Mit¬ 
spieler übernimmt das 
Basic-Programm. Sie lauten 
beispielsweise »Amiga« und 
»Atari«, der immerwährende 
Konkurrenzkampf zwischen 
diesen beiden Firmen wird 
scheinbar jetzt mit anderen 
Waffen fortgesetzt. 

Schließlich wählt jeder Spie¬ 
ler aus einer vorgegebenen Ta¬ 
belle eine Ihm genehme Farbe 
(Farbnummer eingeben!) aus, 
und los geht’s. 

Verteilung der 
Länder 

Was ein rechter Feldherr ist, 
der herrscht natürlich über ei¬ 
ne Reihe von Ländern. Insge¬ 
samt ist die Spielwelt In 42 fikti¬ 
ve Staaten aufgeteilt. Um nicht 
gleich zu Beginn des Spiels ei¬ 
nen Streit vom Zaun zu bre¬ 
chen, werden jedem Mitspieler 
rein zufällig Länder vom Pro¬ 
gramm zugeteilt. Die 42 Staa¬ 
ten werden also durch die Zahl 
der Mitspieler geteilt und die je¬ 
dem zustehende Anzahl verge¬ 
ben. Sie erkennen Länder ei¬ 
nes Feldherren an der gleichen 
Farbe (Bild 1). 

Jetzt startet das Spiel, in 
dem es für alle um das gleiche 
Spielziel geht: Erobern Sie die 
Welt. 

Ein zufällig gewählter Spie¬ 
ler beginnt die Aktionen. Doch 
wie soll man mit Staaten ande¬ 
re Länder erobern? Natürlich 
benötigt man dazu Streitkräfte, 
die in unserem Spiel als »Ar¬ 
meen« bezeichnet werden. Je¬ 
der Spieler erhält für jedes 
Land anfangs eine Armee. Ist 
ein Spieler nun an der Reihe, 
erhält er nach einer einfachen 
Formel neue Armeen hinzu. 
Die Formel lautet: 

Besetzte Länder /3 
= neue Armeen 

Das Minimum an zugeteilten 
neuen Armeen ist jedoch im¬ 
mer drei, auch wenn ein Spie¬ 
ler vielleicht nur noch ein Land 
besitzt. 

Wir stehen nun am Anfang 
des Kampfes um die Spiele¬ 
welt. Sechs Teilnehmer warten 
auf die ersten Schwächen ihrer 
Gegner. Der erste Spieler er¬ 
hält drei äußerst muntere Ar¬ 
meen und steht vor der Frage, 
In welches seiner Länder er 
diese nun einquartiert. Die Far¬ 


be des Spielers erkennen Sie 
an der Figur unten rechts. Ist 
die Entscheidung getroffen, 
bewegt er den Mauszeiger auf 
dieses Land (es muß natürlich 
schon ihm gehören) und klickt 
es mit der linken Maustaste an. 
Der Spieler entscheidet weiter¬ 
hin, wie viele seiner Armeen er 
In dieses Land positioniert. Ei¬ 
ne beliebige Aufteilung der 
Streitkräfte Ist regelgerecht, je¬ 
doch anfangs nicht sinnvoll. 

Sind die verteilten Armeen 
einquartiert, ändert sich die 
Zahl in dem betreffenden 
Land. Sie zeigt nun die aktuelle 
Anzahl der Armeen. 

Gut, jetzt hat unser Spieler 
seine Armeen in ein Land ver¬ 
frachtet. Und jetzt? Alle Spieler 
haben ja die Aufgabe, die Welt 
mit den 42 Staaten zu erobern. 
Fangen wir also am besten da¬ 
mit an, ein neues Land zu er¬ 
kämpfen. 

Aktivieren Sie die Menülei¬ 
ste mit der rechten Maustaste. 
Sie finden oben links auf dem 
Bildschirm das Menü »Aktio¬ 
nen«. Fahren Sie bei gedrück¬ 
ter rechter Maustaste auf die¬ 


ses Menüfeld. Ein Fenster 
klappt auf, in dem Sie fünf Un¬ 
terpunkte sehen: 

Angriff 

Wählen Sie bei gedrückter 
rechter Maustaste den Punkt 
Angriff und lassen die Taste 
los. 

Im unteren Bereich des 
Spielfelds erscheint das Wört¬ 
chen »Von«. Bewegen Sie nun 
den Mauszeiger auf Ihr Land, 


1 Land 1 

Land 2 | 

Alaska 

Kamtschatka 

Grönland 

Island 

Island 

Skandinavien 

Island 

Großbritannien 

Großbrit. 

Skandinavien 

Großbrit. 

Westeuropa 

Mittl. Osten 

pstafrika 

Mittl. Osten 

Ägypten 

Südeuropa 

Mittl. Osten 

Brasilien 

N/W-Afrika 

Südeuropa 

N/W-Afrika 

Südafrika 

Madagaskar 

Indonesien 

Slam 

Siam 

Neu-Guinea 

Neu-Guinea 

Indonesien 

Neu-Guinea 

Ost-Australien 

Indonesien 

West-Australien 

Indonesien 

Ost-Australien 

Tabelle 1. Diese Länder sind 
auch Nachbarländer 

1 Kontinent 

Armeen 1 

Asien 

7 

Nordamerika 

5 

Europa 

5 

Afrika 

3 

Südamerika 

2 

Australien 

2 


Tabelle 2. Diese Anzahl an 
Armeen gibt es zusätzlich 
für besetzt gehaltene 
Kontinente 


von dem Sie den Angriff star¬ 
ten wollen. Klicken Sie dieses 
mit der linken Maustaste an. 
Sollte nur eine Armee in dem 
gewählten Land stehen, so 
meldet das Programm »Hier 
gibt es keine Angriffsarmeen!«. 
Wir lernen daraus, daß minde¬ 
stens zwei Armeen in einem 
Land stehen müssen, von dem 
aus ein Angriff erfolgen soll. 
Haben Sie ein eigenes Land 


gewählt, in dem mehr als eine 
Armee steht, fragt das Pro¬ 
gramm nach dem Ziel Ihrer 
Wünsche, also nach dem an¬ 
zugreifenden Land. Da wir es 
ja mit soliden Armeen zu tun 
haben, die nicht fliegen kön¬ 
nen, ist ein Land auszuwählen, 
das direkt benachbart ist. Die¬ 
ses ist ebenfalls anzuklicken, 
und schon tobt eine Schlacht 
um das Zielland. 

In Tabelle 1 finden Sie die 
Übergänge zwischen Län¬ 
dern, die nicht direkt aus der 
Karte deutlich werden. 

Die Entscheidung, welcher 
Feldherr zukünftig das ange¬ 
griffene Land zu seinem Besitz 
zählen darf, fällt jetzt. Ange¬ 
nommen, Sie sind der Angrei¬ 
fer und haben vier Armeen im 
Basisland. Der Verteidiger be¬ 
sitzt nur eine einzige Armee in 
dem angegriffenen Land. Die 
Entscheidung über Sieg oder 
Niederlage In einer Schlacht 
fällt mittels simulierten Wür¬ 
felergebnissen. Der Angreifer 
besitzt vier Armeen, drei davon 
sind für den Angriff einzuset¬ 
zen. Die drei Angriffsarmeen 


werden in der Entscheidung 
durch drei Würfel symbolisiert. 
Die verteidigende Streitmacht 
des Gegners, eine Armee, 
stellt einen Würfel. Das Ver¬ 
hältnis bei diesem Angriffswurf 
lautet also 3:1. Nun wird gewür¬ 
felt, das höchste Einzelergeb¬ 
nis eines Wurfes entscheidet. 
Die Würfelergebnisse sind am 
rechten unteren Bildschirm¬ 
rand in einem Kasten darge- 



Bild 1. Erobern Sie die Welt, eine farbenfrohe Karte dient als Spielfeld 
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Bild 2. Der Spieler »pc« ist an der Reihe, er besitzt die 
Länder mit der Farbe, die der Soldat unten rechts zeigt 



Bild 3. Alea jacta est — Die Würfel sind gefallen. 
Wird der Angreifer zum erfolgreichsten Feldherren? 



Bild 4. Symbole für die Karten sind Soldat, Reiter und 
Kanone — eine Serie bringt Zusatzarmeen 


Spiele 


stellt. In unserem Fall zeigt die¬ 
ser Kasten drei Ergebnisse für 
den Angreifer und einen Wurf 
für den Verteidiger. Die Ergeb¬ 
nisse werden jetzt miteinander 
verglichen. Hat der Angreifer 
als höchsten Wurf eine größere 
Punktezahl als der Gegner, 
zieht der Aggressor in das 
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Land mit den drei Angriffs¬ 
armeen ein, die verteidigende 
Streitkraft wird vom Spielfeld 
entfernt. Bei Gleichheit der 
höchsten Punktzahl verliert 
der Angreifer, er ist also leicht 
im Nachteil. Hat der höchste 
Wurf des Angreifers weniger 
ergeben als der Würfel des 


Verteidigers Augen zeigt, ver¬ 
liert der Angreifer selbstver¬ 
ständlich auch. Haben Sie 
noch mehr als eine Armee im 
Ausgangsland, werden Sie ge¬ 
fragt, ob Sie den Angriff wie¬ 
derholen wollen. Bitte klicken 
Sie dann das Feld »Ja« an. 

Im späteren Spielverlauf 
kann es zu einer Ansammlung 
von Armeen kommen, die 
dann in gewaltigen Schlachten 
um Länder kämpfen. In einem 
Wurf kann jedoch maximal mit 
je drei Würfeln »gekämpft« wer¬ 
den. In dem Fall, daß der An¬ 
greifer und der Verteidiger 
mehr als einen Würfel (also ei¬ 
ne Armee) einsetzen, gilt fol¬ 
gende Regel: 

Die Würfel beider Kontra¬ 
henten werden nach der Höhe 
sortiert, und dann jeweils mit¬ 
einander verglichen. Bel 
Gleichheit gewinnt wieder der 
Verteidiger. Ein Beispiel: 

Wurf Angreifer: 6, 4, 1 
Wurf Verteidiger: 6, 3, 2 

Das Ergebnis sagt aus, daß 
der Angreifer zwei Armeen ver¬ 
liert und der Verteidiger eine. 
Die Sechsen waren gleich, der 
Verteidiger gewinnt. Die Vier 
des Angreifers war höher als 
die Drei des Verteidigers, eine 
Armee dieses Spielers muß 
vom Schlachtfeld. Die Zwei 
des Verteidigers übertrumpft 
wieder die Eins des Angreifers, 
damit verliert dieser seine 
zweite Armee. Setzt der Vertei¬ 
diger nur eine Armee ein, ver¬ 
liert der Angreifer bei einem 
niedrigen Wurf immer höch¬ 
stens eine Armee, bei zwei Ver¬ 
teidigern höchstens zwei. 

Die Berechnungen über¬ 
nimmt In unserem Spiel natür¬ 
lich der Amiga. 

War der Angriffszug erfolg¬ 
reich und die letzte Armee des 
Gegners geschlagen, rücken 
die siegreichen Armeen In das 
Zielland ein. Jetzt kann der 
Spieler, der an der Reihe ist, 
entscheiden, ob er 

— weiter angreift, 

— Armeen verschiebt, 

— Karten tauscht, oder 

— dem nächsten Spieler die 

Aktionen überläßt. 

Die Spielwelt ist in die Konti¬ 
nente Nordamerika, Südame¬ 
rika, Europa, Asien, Afrika und 
Australien unterteilt. Der Be¬ 
sitz eines Kontinentes über ei¬ 
ne ganze Runde hinweg wird 
belohnt. Der Spieler erhält vor 
seinen Aktionen die normale 
Anzahl der neuen Armeen. Zu¬ 
sätzlich gibt es als Bonus für 
den gehaltenen Kontinent eine 
bestimmte Anzahl. Die Werte 
entnehmen Sie bitte Tabelle 2. 
Es ist also ratsam, schnell ei¬ 
nen Kontinent zu erobern, um 


Deluxe: 
Software für den 
Amiga 

Deluxe Paint II (deutsch)/Print I 

Dieses Grafikprogramm ist eines 
der außergewöhnlichsten auf 
dem Softwaremarkt. Jetzt mit 
Print I. 
Bestell-Nr. 54114 
DM 199,-* (sFr 179r*/öS 1990,-*) 
Die ideale Ergänzung zu 
Deluxe Paint II: 
Seasons & Holidays 
Bestell-Nr. 52580 
DM 29,-* (sFr 26r*/öS 290,-*) 
Deluxe Art Parts II 
Bestell-Nr. 52581 
DM 29,-* (sFr 26.-7ÖS 290,-*) 
Deluxe Video 1.2 (deutsch) 
Mit Deluxe Video können Sie 
animierte Grafiksequenzen ein¬ 
fach entwerfen und zusam¬ 
menstellen. 
Bestell-Nr. 52583 
DM 249,-* (sFr 225.-7ÖS 2490,-*) 
Deluxe Photolab (deutsch) 
Integriertes Grafikpaket und 
Druckprogramm mit Poster¬ 
druckfunktion und einer Viel¬ 
zahl weiterer erstaunlicher 
Funktionen. 
Bestell-Nr. 54112 
DM 249,-* (sFr 225,-7öS 2490,-*) 
Für ^le, die nicht auf die deut¬ 
sche Version warten wollen: 
Deluxe Photolab (englisch) 
Bestell-Nr. 54117 
DM 199,-* (sFr 179,-*/öS 1990,-*) 
Deluxe Music (deutsch) 
Das professionelle Musikpro¬ 
gramm. Jetzt mit deutscher 
Software. 
Bestell-Nr. 52579 
DM 199,-* (sFr 179,-*/öS 1990,-*) 
Die ideale Ergänzung zu 
Deluxe Music: 
It’s only Rock’n’Roll 
Bestell-Nr. 54115 
DM 29,-* (sFr 26,-*/öS 290,-*) 
Hot&Cool Jazz 
Bestell-Nr. 54116 
DM 29,-* (sFr 26,-*/öS 290,-*) 
Deluxe Productions 
(englisch/NTSC) 
Bestell-Nr. 54113 
DM 399,-* (sFr 359,-*/öS 3990,-*) 
Updates von der englischen 
auf die deutsche Version: 
Paint II, Bestell-Nr. 54114U 
Video 1.2, Bestell-Nr. 52583U 
Photolab, Bestell-Nr. 54112U 
je DM 49,-* (sFr 49,-*/öS 490,-*) 
Gegen Einsendung der Original¬ 
diskette und gegen Vorauskasse. 

In Vorbereitung: 
Deluxe Print II (deutsch) 

Bestell-Nr. 52582 
DM 199,-* (sFr 179,-*/öS 1990,-*) 
• Unverbindliche Preisempfehlung 

Fragen Sie Ihren Händler nach 
weiteren Informationen. 

Markt &Technik-Support: 

Bei User-Registrierung rechtzei¬ 
tige Update-ZUpgrade-lnforma- 
tion und Support-Unterstützung. 
Senden Sie uns bitte Ihre 
Registrierungskarte. 






















Markt&Technik-Produkte 
erhalten Sie in den Fachabteilungen 
der Warenhäuser, im Versandhandel, 
in Computer-Fachgeschäften oder 
bei Ihrem Buchhändler. 


Markt&Tfechnik 

Zeitschriften ■ Bücher 
Software • Schulung 


Fragen Sie Ihren Fachhändler 
nach unserem kostenlosen Gesamtverzeichnis 
mit über 500 aktuellen Computerbüchern 
und Software. Oder fordern Sie es direkt 
beim Verlag an! 




Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 
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Ueberreuter Media VerlagsgeambH (Großhandel). Laudongasse 29, A-1082 Wien, Telefon (0222) 481543-0. 










Bild 5. Hier legt der Spieler »napoleon« fest, wie er die 
Armeen verteilt, die er in dieser Runde erhält. 


in den Genuß des Bonus zu 
kommen. Versuchen Sie den 
Kontinent möglichst lange zu 
halten, denn die Zusatzar¬ 
meen gibt es in jeder Runde er¬ 
neut. 

Es ist nach einiger Spielzeit 
unbedingt notwendig, Truppen 
zu verschieben. Ist beispiels¬ 
weise ein Kontinent erobert, 
sind die Armeen im Inneren 
dieses Kontinents nicht mehr 
besonders effektiv. Also 
schiebt man die Truppen bes¬ 
ser an die Grenzen. Dies ge¬ 
schieht mit dem Menüpunkt 
»Verschieben«. Die Bewegung 
ist Immer nur einmal über eine 
Landesgrenze gestattet. Dabei 
können beliebig viele Armeen 
verschoben werden. Eine Ver¬ 
teidigungseinheit muß jedoch 
immer im Ausgangsland blei¬ 
ben. 

Ist ein weiterer Angriff mit 
diesen Armeen erfolgt, kann 
wieder verschoben werden. 
Der Sinn Ist dabei, bei einem 
großen Feldzug immer wieder 
Nachschub heranzuziehen. 

Haben Sie eine Funktion, 
zum Beispiel »Angriff«, verse¬ 
hentlich gewählt, können Sie 
das Feld »Abbruch« (Mitte un¬ 
ten) anklicken. Wählen Sie 
dann die nächste Operation. 
Der Abbruch ist beispielsweise 
auch dann notwendig, wenn 
Sie ein Land für einen Angriff 
ausgewählt haben, das nur 


von eigenen Ländern umge¬ 
ben Ist. Sie erhalten dann im¬ 
mer die Meldung »Dies ist Dein 
eigenes Land ! Noch mal«. 

Ein Feldherr sollte möglichst 
gut mit Karten umgehen kön¬ 
nen. Das gilt auch für unser 
Strategiespiel. Wurde minde¬ 
stens ein Land In einer Spiel- 
runde erobert, gibt es eine der 
wertvollen Karten. Die Karten 
tragen die Symbole Soldat, 
Reiter und Kanone (Bild 2). Be¬ 
sitzt ein Spieler drei Karten mit 
dem gleichen Symbol oder ei¬ 
ne Serie aller Symbole, dann 
kann er diese gegen Armeen 
eintauschen. Der erste Spieler, 


der tauscht, erhält drei Ar¬ 
meen, der zweite sechs und 
dann jeweils drei Armeen 
mehr. Auf diese Welse ist nach 
mehrfachem Tauschen die An¬ 
zahl der Bonusarmeen schnell 
angestiegen. Umwälzende 
Veränderungen sind mit dem 
Einsatz der Zusatzarmeen 
schnell herbeigeführt. 

Aus den genannten Grün¬ 
den sollten Sie unbedingt ver¬ 
suchen, in jeder Spielrunde 
mindestens ein Land zu er¬ 
obern. 

Ein erfolgreicher Feldherr 
schnappt sich so schnell wie 
möglich einen der kleinen Kon¬ 


tinente. Diese sind leichter zu 
halten als die drei großen — 
und nur In diesem Fall gibt es 
den Bonus. Ist der Kontinent 
mit zahlreichen Verteidigern 
geschützt, setzen Sie Ihre Er¬ 
oberung fort. 

Tauschen Sie die erworbe¬ 
nen Karten nicht zu früh, war¬ 
ten Sie möglichst ab, bis sich 
der Tausch wirklich lohnt. 

Kämpfen Sie immer nur so 
lange gegen einen starken 
Gegner, bis Ihre Armeen auf 
ein niedriges, aber verteidi¬ 
gungsfähiges Niveau ge¬ 
schrumpft sind. In jeder Runde 
sollten Sie einen Kampf gegen 
einen sehr schwachen Gegner 
führen, um eine Karte zu erhal¬ 
ten — die später zu Bonus¬ 
armeen führt. 

Bei mehreren Mitspielern 
sind Bündnisse eine tolle Sa¬ 
che. Kämpfen Sie gemeinsam 
gegen einen Gegner, bewah¬ 
ren Sie den Frieden an ge¬ 
meinsamen Grenzen. Wenn 
Sie von einem »Bündnispart¬ 
ner« überfallen werden, neh¬ 
men Sie das nicht persönlich: 
Es ist doch nur ein Spiel! 

(Jörg Horn/Dietmar Körtke/rs) 

Fortsetzung 
des Artikels 
auf Seite 134 


Sagen Sie uns die Meinung! 


Helfen Sie mit, Ihr Amiga-Sonderheft 
noch besser zu gestalten. Wenn Sie die¬ 
sen Fragebogen ausfüllen und an unserer 
Leserumfrage teilnehmen, haben Sie zu¬ 
dem die Chance, ein Overdrive-Doppel- 
laufwerk für Ihren Amiga zu gewinnen. 

W enn Sie sich zehn Minuten Zeit nehmen, haben Sie 
nicht nur die Chance, in Zukunft ein noch besseres 
Amiga-Sonderheft zu bekommen, sondern können 
auch ein Overdrive-System-Doppellaufwerk (Bild 1) der Firma 
Soyka Datentechnik in Bochum gewinnen. Diese Laufwerke 
zeichnen sich durch hohe Datensicherheit, geringes Geräusch¬ 
niveau und sehr gute Abschirmung aus. 

Durch Ihre Antworten auf unserem Fragebogen sagen Sie uns, 
was Ihnen gefällt, was besser werden soll und was Sie zukünftig 
Im Amiga-Sonderheft lesen wollen. 

Bevor Sie sich auf den Fragebogen stürzen, sollten Sie einige 
Dinge wissen: 

— Ihre Antworten, ob Lob oder Kritik, haben keinen Einfluß auf 
Ihre Gewinnchancen 

— Bei fast allen Fragen sind Mehrfachnennungen möglich 
•— Fragen, bei denen freie Textangaben vorgesehen sind (Typ des 
Druckers etc.), tragen Sie bitte eine möglichst genaue Typenbe¬ 
zeichnung ein. Zum Beispiel: »Drucker NEC P6 C«. 

— Sie müssen Ihr Heft nicht zerschneiden, eine Fotokopie der 
Umfrage-Seiten genügt auch. 

— Wenn Sie an der Verlosung des Overdrive-Systems teilnehmen 
wollen: Vergessen Sie Ihre Adresse nicht. 



Bild 1. Eine tolle Sache, ein Doppellaufwerk am Amiga 


Schicken Sie Ihren ausgefüllten Fragebogen an: 

Markt & Technik Verlag AG 
Redaktion Amiga-Sonderheft/Leserumfrage 
Hans-Pinsel-Straße 2 
8013 Haar bei München 

Einsendeschluß ist der 31.12.1988 (Datum des Poststempels). 
Der Rechtsweg Ist ausgeschlossen. Mitarbeiter der Markt & 
Technik Verlag AG sowie deren Angehörige dürfen an der Um¬ 
frage nicht teilnehmen. 
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Umfrage 


1« Welche Themenbereiche sollten in den Amiga-Sonderheflen 
angesprochen werden. 

(Bewerten Sie die Wichtigkeit mit einer Note zwischen 1 und 6) 

Anwendungslistings _ 

Bauanleitungen _ 

Betriebssysteme _ 

Bücher _ 

CU _ 

DFÜ _ 

Digital iseren/Scannen _ 

Drucker-Tests _ 

Einsteigerthemen _ 

Festplatten/Floppylaufwerke _ 

Grafik _ 

Grafik-Animation _ 

Grundlagen _ 

Hardware-Tests _ 

Intuition _ 

Kaufmänn. Anwendungen _ 

Messen/Steuem/Regeln _ 

Musik/Midi _ 

Problemlösungen _ 

Programmieren _ 

Programm ierkurse 

- Assembler _ 

-C _ 

- Basic _ 

- Pascal _ 

- Modula _ 

Programmiersprachen allgemein _ 

Schule/Ausbildung _ 

Software-Tests zu einem _ 

bestimmten Thema 

Spiele-Listings _ 

Stories _ 

Techn./Wiss. Anwendungen _ 

Themen für Profis _ 

Tips & Tricks _ 

Video-An Wendungen _ 

Workbench _ 

2. Wie ist Ihre Meinung zum Amiga-Sonderheft 

Bewerten Sie die einzelnen Punkte mit einer Note zwischen I und 6) 

Informativ _ 

Aktuell _ 

Kritisch _ 

Sachlich _ 

Verständlich _ 

Ansprechend _ 

Preiswert _ 

Unverzichtbar _ 

3. Besitzen Sie einen Amiga? 

Nein O Amiga 500 O Amiga KXX) O Amiga 2(X)0 O 

4. Wollen Sie demnächst einen Amiga kaufen? 

Nein O Amiga 5(X) O Amiga KXX) O 

Amiga 2000 O Amiga 2500 UX O Amiga 2500 AT O 


5« Besaßen Sie oder besitzen Sie einen anderen Computer? 
Nein O Ja O 


Wenn ja, welchen? 

Wird noch benutzt 


C64 O 

CPC O 

Atari XL/XE O 
Atari ST O 

PC O 


Andere:. 


Besitze ich 
O 
O 
O 
O 
O 


Besaß ich 
O 
O 
O 
O 
O 


Verkauft am: 


6. Wie lange besitzen Sie schon Ihren Amiga? 


Weniger als drei Monate O 

Bis sechs Monate O 

Bis ein Jahr O 

Über ein Jahr O 

Über zwei Jahre O 


7. Wie ist Ihr Amiga ausgestattet? 
a) Monitor 


Spezieller Amiga-Monitor 

O Fernsehgerät 

O 



Multtisync 


O 




b) Massenspeicher 






Diskettenlaufwerke 

0 

Anzahl 




Festplatte 

O 

Anzahl_ 

Kapazität_ 

_MByte 

Sidecar 

O 





PC-Karte (A 2000) 

0 





c) Speichererweiterungen 





keine 

O 

512 KByte 


O 


1 MByte 

O 

2 MByte 


0 


3 MByte 

O 

Mehr als 3 MByte 

O 


d) Drucker 






Keinen 0 

Matrix 

O Laser 0 




Tintenstrahl 0 

Thermo O 





Typ:__ 

Farbdrucker: Ja O Nein O 


e) DFÜ 

Akustik-Koppler O Modem O 


f) Digitizer/Scanner/Genlock etc. 
Typ:_ 


8« Wie wird Ihr Amiga von Ihnen vorwiegend genutzt? 


Im privaten Bereich: 

Programmieren 

0 

Anwendungen 

Spielen 

0 


In der Ausbildung: 

Schule 

O 

Fortbildung 

Studium 

O 


Im Beruf: 

Hauptberuflich: 

O 


Nebenbeschäftigung 

O 
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9 « Was machen Sie mit Ihrem Amiga 


intensiv 


Animation O 

Dateiverwaltung O 

DFÜ O 

Desktop Publishing O 

Digitalisieren/Scannen O 

Elektronik/Basteln O 

Grafik/Malen O 

Kaufm. Anwendung O 

Lemprogramme O 

Messen, Steuern, Regeln O 
Musik/Midi O 

Programmieren O 

Spielen O 

Textverarbeitung O 

Sonstiges 



O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 


nie 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 


würde 
mich inter¬ 
essieren 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 


10. Wie stufen Sie sich ein? 

Einsteiger ohne Vorkentnisse O Einsteiger O Fortgeschrittener O 
Erfahrener Fortgeschrittener O Profi O Ist mein Beruf O 

11 . Was machen Sie mit den Listings im Amiga-Sonderheft? 


Tippe alle ein O 

Tippe nur die kurzen ein O 

Interessiere mich nur für die Struktur O 

Interessieren mich nicht O 

Besorge mir sie auf Diskette von Freunden O 
Nehme den Programmservice in Anspruch O 


12. Wie groß sollte Ihrer Meinung nach der Listing-Teil im 
Amiga-Sonderheft sein? 

ca. 20 Seiten O ca. 40 Seiten O 
ca 50 Seiten O mehr als 50 Seiten O 

13 . Wie viele Listings sollten in einem Amiga-Sonderheft abge¬ 
druckt werden? 

Bis 5 Listings O Bis 10 Listings O 

Bis 15 Listings O Mehr als 15 Listings O 

14 . Wie stehen Sie zu der Möglichkeit, Programme nicht mehr 
im Heft abzudrucken und diese nur noch auf Diskette anzubieten. 
Die Information und die Zahl der Programme im Amiga-Sonder¬ 
heft könnte so wesentlich höher sein 

Alle Programme nur auf Diskette O 

Nur besonders lange Programme nur auf Diskette O 

Alle Programme auch im Amiga-Sonderheft als Listing O 


15 . Welche Programmiersprachen kennen Sie, interessieren Sie? 




besitze 

beherr- 

würde ich 
eeme im 

wünsche ich 
ich mir 

Sprache 

kenne ich 

ich 

sehe ich 

Heft haben 

einen Kurs 

Assembler 

0 

0 

O 

0 

0 

ADA 

0 

0 

0 

0 

0 

Basic 

O 

0 

0 

0 

O 

C 

0 

0 

O 

0 

0 

Forth 

0 

0 

0 

0 

0 

Logo 

0 

O 

0 

0 

0 

Lisp 

0 

0 

0 

0 

0 

Modula 

0 

0 

0 

O 

O 

Pascal 

0 

O 

0 

O 

0 

Prolog 
Andere_ 

O 

0 

0 

0 

O 


16 . Fragen zur Person 

a) Alter:_ Jahre 

b) Geschlecht männlich O weiblich O 


c) Welche Hobbies haben Sie? 


Basteln 

0 

Computer 

O 

Elektronik 

0 

Freizeit-Verein 

0 

Sport 

0 

Lesen 

0 

Sonstige 

0 

d) Schulabschluß, Ausbildung, bzw. angestrebter Abschluß 

Hauptschule 

0 Mittlere Reife O Lehre 0 

Fachoberschule 

0 Abitur O 

Fachhochschule 

O Universität 0 


e) Anschrift ' 

(Ausfüllen, wenn Sie an der Verlosung teilnehmen wollen) 

Name: 

Straße: 

Ort: 

Telefon: 


Ich bin damit einverstanden, daß meine hier gemachten Angaben 
elektronisch ausgewertet werden. 

Unterschrift 
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3.S" 

Metallgehäuse • einstellbare Lauwerk¬ 
nummer mit Oisplayanzeige # digitale 
Trackameine • Write Protect am Laufwerk 
schaltharW abschaltbar^ durchgeschleif¬ 
ter Bus 

1 Jahr Garantie 

Super ALCOMPreis 329, - 

UuiAderit S,2S*' 

40/80 Treck # Laufwerksbus durchge¬ 
schleift • abschaltbar # einstellbare 
Adressen • MS- DOS- kompatibel • mit 
Diskchange 

Super ALCOMPreis 298,- 

HD 1.6 MB (umschaltbar) 3 18, - 

Amigafarbene Blende 
Write Protect Schalter -\-15,- 

Cemiteates 3,sai,2S" 

einzeln ein-/abschaltbar # einstellbare 
Laufwerksnummern mit Anzeige • durch¬ 
geschleifter Bus • bei 5.25 ‘40/80 Tracks 
umschaltbar% Metallgehäuse% 1 Jahr Ga¬ 
rantie 

Super ALCOMPreis 548, - 


500€r 

Für 512k zusätzliches RAM • alle BAM-s 
gesockelt # selbstkonfigurierend # ab- 
schaltbar% Uhrenschaltung auf Platine mit 
Akku- bzw. Batteriepufferung nachrüstbar 
Komplett mit 512k Preis auf Anfrage 
Superpreis mit Uhr Preis auf Anfrage 
Bauteilesatz für Uhr ohne Akku 24, - 
Leerplatine mit Stecker *39, - 

'mit Schalt plan und BastückungsUsta 


UuAuurHnsuäMitgM 

Zum AnschluB von Laufwarkan an alla /ünigas # 
mit Anstauaralaktronik 


Für 3.S' Laufwerk 
Für 5.25' Laufwerk 


SfecAfktgtxurweitgruikf 
S-AteA Kr UnKrurku 

Jeder Steckplatz abschaltbar und einstellbare 
Laufwerksnummer • Steckpietzerweiterung di¬ 
rekt am Amigagehäuse • Dadurch keine Kabel¬ 
längenprobleme 

AnschluKfertig zum Super ALCOMPreis 49. - 


ausgerelfte tegeeieurtei- 
sfueg • f4 fege 
Omtauschredit % Aast 
aUe tC$ gesockett • ew 
prefessionefie leitet-’ 
pietteii%8euteUe 
emhefter tierstetier # 
mit SeHieeuegsenieitung 


Für alle Amiga 's • einstellbare Geratenum¬ 
mer % abschaltbar # Metallgehäuse % su¬ 
perflach # / Zoll (2,54cm) • durchge¬ 
schleifter Bus • TEAC Laufwerk 
1 Jahr Garantie 

komplett anschlußfertig 239 ,- 

Amigafarbene Blende 


8esisieeK/efite 


1 Jahr Garantie 


TEAC FD 135FN3.5‘ 1 MB superslimlina 218.- 
TCAC FD 55 GFR 5.25'40/80 Tracks 239.- 

Amigafarbane Blende -\-10.- 

1.6 MB Diskchange 259. - 

3.5'Gehäuse 25.- 

5.25' Gehäuse 25. - 

Gehäuse für 'Gemischtes Doppel ' 65. - 


Boktseiector 


19,90 


kmig€ k/^ommer 

KFürA 500/1000 

• Expansionsportanschluß 

• Für EPBOM's 2764-27011 (8K-128K) 
Alle A-Typen und CMOS-Typen 

• Funktionen: 

LEERTEST LADEN VON DISK 

VERGLEICHEN SPEICHERN AUS DISK 
AUSLESEN HEXDUMP 

BRENNEN 

• vier Programmieralgorithmen 
50mS/Byte - Superschnell 64K-1.5 min 

• Programm zum Generieren und Brennen 
von Kickstarts direkt von Diskette oder 
aus ROM 

• Mit Software + Gehäuse 225,- 


MMdi SttueriMterfkee 

• B ADC-Kanäle 0-2.55Vin 0.01VStufe 

• 1 DAC-Kanäfa 0-2.55Vin 0.01V Stufe 
Genauigkeit-1.5 LSB 

• 8 frei programmierbare TTL-l/0 Kanäle 

• Mit Gehäuse, Anschlüße auf Schraub¬ 
klemmen 

• interne Referenzspannung 

• Expansionsanschluß 

• Einfache Programmierung in Basic mög¬ 
lich Multitasking tauglich 

• ind. DEMO-Software auf 3.5" Diskette 

239,- 


SbMtHtsmpfer 

Für alle Amiga 's mit Software • Type bei 
Bestellung bitte angeben # 8-Bit Daten¬ 
breite # Betrieb am Parallelport (Drucker¬ 
port) • Mit Vorverstärker für Micro-An- 
schluß (Cinch-Buchsen) # Musik- und 
Sprachdigitalisierung möglich • Arbeitet 
mit fast allen Digitizer-Programmen % 
Formschönes Gehäuse 
Super ALCOMPreis 79,- 


Shiäh 

• Professionelles Sampler-Progremm • 4-Kanel- 
Tecbnik # speichern euf 4 Disketten bintereinen- 
der möglich • eile gängigen Formate (IFF. Data. 
Future) • Ecbtzaitdispley mit Zoomfunktion • 
viele Verfremdungsmöglichkeiten • Echo. Hall. 


Paket: Sampler + Software 


129,- 


MiBf-Mer/kce 

4 Kanäle einschließlich 1 Thru • Optische 
Datenanzeige # Formschönes Gehäuse 
Wahnsinnspreis von nur 89,- 


COMPUTERHARDWARE 

IBcksttrtiiinsclialtunf 

Bauen Sie die anderen Kickstart-Versionen in Ihren 
Amiga 500% Einfacher Einbau ohne Löten % für 
Originat-Kickstart-ROM und 2 zusätzliche Versio¬ 
nen auf EPROM% EPROM-Programmierservice auf 
Anfrage 

SuperALCOMPreis 59.- 

Kickstartversion auf EPROM's 120 .- 

Oserport+Ezqäefimentierketrte 
für tztpemsiMpart 

Mit Lochraster und 2 x 6522 Ports 

Leer 59.- 

komplett auf gebaut 89. - 

Wir suchen ständig Hnrdwnre-Cnt- 
wieilttung«i. Wir g«rnnti»en gute 
(hnsutxprevisiönen und ehrliche 
Abrechnung 

kostenloses Info anfordern!!! 


Bestellung und Versand 

ALCOMP 
A. Lanfermann 
Lessing Str. 46 
5012 Bedburg 
Tel. 02272/1580 

Nachnahmeversand NN-Spesen 7.50 
DM b. Vorkasse 3. - DM. Auslandsbe¬ 
stellungen: Nachnahmeversand NN- 
Spesen 10. - DM b. Vorkasse 5. -DM. 
Wir liefern Ihnen auf Ihre Rechnung 
und Gefahr zu den Verkaufs- und Liefer¬ 
bedingungen des Elektronikgewerbes. 
Postgiroamt Köln 

(BLZ370 IDO 50) 275 54-509 


Trochukieifo 

Für DF0-DF3 einstellbar% für alle Laufwer¬ 
ke (3.5"/5.25') # Laufwerkbus durchge¬ 
schleift # mit Gehäuse 
Super ALCOMPreis 69. - 

iinfUkrongsonfekot 
Bmifo - Harddisks 

HD-Interface A 2000 198,- 

HD-Interface A 500/A 1000 249,- 

Platte 20 MB A 2000 798. - 

30 MBA 2000 898.- 

40 MB A 2000 1098.- 

65 MB A 2000 1348,- 

Plaue A 500/A 1000 

20 MB 898.- 

30 MB ' 998,- 

40 MB 1248,- 

65 MB 1498,- 

dakakaftraiaar 

2500 enghsch-deutsche Vokabeln ind. 
Hilfssatz • Merkfunktion • komfortabler 
Editor zur Vokabelverwaltung • Wörter¬ 
buch zum Dateiendurchsuchen 

59,- 


Ssfksikaataada 

Die Amiga-FestplaUe von ALCOMP: 

% Selbstbootend wie 'Card'oder 'Rad'!% Als Einbau-Festplatte fürden 'Amiga 2000'% Als Exter¬ 
ne Einheit für den ‘Amiga 500' und 1000mit Gehäuse, eigenem Netzteil und Erweiterunqsanschluß 
% Erhältlich mit20.30, 40und 65 Megabyte % Kopiert 1 Megabyte in unter 4 Sekunden % Speichert 
schneller als "1.2-Ramdisk" % Läuft mit 'FastFHeSystem' % Einfach einstecken. Formatieren. 
‘Mountlist" und ‘Startup-Sequence" ändern und los geht's I 
Entwickler: Stephan und Stefan 

Für den Selbstbau: Harddisk-Interface ind. Steuersoftware % Anschluß mit Slot für Omti Controller 


Entwurf + Druck PLUM, Düren-Oberzier. TEL. 0 24 28/711 






































Finanzen 




Griff 


Überlassen Sie nichts dem Zufaii. 

Wenn es um Ihr Geld geht, genügt kein gelegentiicher 
Blick auf den Bankauszug von ietzter Woche. 

Mit dem elektronischen Haushaitsbuch haben Sie Ihre 
Kasse stets unter Kontrolle. 


it dem »Haushalts¬ 
buch« für den Amiga 
I wird die Überwa¬ 
chung Ihrer täglichen, monatli¬ 
chen oder jährlichen Einnah¬ 
men und Ausgaben zum Kin¬ 
derspiel. Die Bedienung des 
Programms ist schnell erlernt, 
die Menüs sind mit der Maus 
aufzurufen. Lediglich die Ein¬ 
gabe der Kontennamen und 
der Geldbeträge erfolgt über 
die Tastatur. 

Haben Sie erst einmal ein 
Konto angelegt, die ersten Be¬ 
träge verbucht und den Stand 
auf Diskette gespeichert, ge¬ 
nügt ein Mausklick, um eine 
Monats- oder Jahresübersicht 
auszugeben. Weitere Menüs 
wie DISK, ZEIT, SYSTEM, 
AUSGABE und DRUCKER ge¬ 
ben dem Programm einen pro¬ 
fessionellen Touch. 

So führen 
Sie Ihre Konten 

Der Arbeitsbildschirm des 
Basic-Programms »HAUS¬ 
HALTSBUCH« (Listing 1) unter¬ 
teilt sich in zwei Windows: 

1. Das Eingabe- und Ausga¬ 
befeld (oben). 

2. Aktuelle Informationen 
wie Uhrzeit, Speicherplatz und 
Programmhilfen. 

Vor dem ersten Start des 
Programms sind einige Vorar¬ 
beiten nötig. Beachten Sie bit¬ 
te den Kasten mit den Hinwei¬ 
sen zu diesen Punkten. Besit¬ 
zer der Programmservice- 
Diskette können allerdings so¬ 
fort mit der Verwaltung begin¬ 
nen. 

Die Programmdiskette muß 
sich im Laufwerk dfO: be¬ 


finden. Basic-Programmierer 
können das Programm bei Be¬ 
darf jedoch leicht umschrei¬ 
ben, so daß ein zweites Lauf¬ 
werk angesprochen wird. 

Menü ä la carte 

Das Haushaltsbuch stellt 
zahlreiche Funktionen zur Ver¬ 
fügung, die bei gedrückter 
rechter Maustaste (Menütaste) 
angewählt werden. 

Bevor Sie mit der Eingabe 
von Daten beginnen, ist ein 
neues Konto anzulegen. Insge¬ 
samt können zehn Konten in ei¬ 
ner Datei geführt werden, was 
für die private Anwendung si¬ 
cher ausreicht. 

Wählen Sie den Punkt »neu¬ 
es Konto« Im Menü »Option« 
(Bild 1). Geben Sie anschlie¬ 
ßend den Namen, beispiels¬ 
weise »Gehalt«, ein. Speichern 
Sie diesen auf Diskette, indem 
Sie die folgende Frage mit »Ja« 
beantworten (mit der Maus an- 
kllcken). 

Wenn Sie anschließend im 
»Verzeichnis« nachschauen, 
finden Sie dort den Eintrag des 
angelegten Kontos. 

Die erste 
Buchung 

Sie können nun weitere Kon¬ 
ten eröffnen, oder aber In das 
eröffnete Konto Einträge bu¬ 
chen. Wählen Sie dazu mit der 
Maus Im »Verzeichnis« das 
Konto, in das Einträge gebucht 
werden sollen. Sie erkennen 
die erfolgreiche Auswahl dar¬ 
an, daß im Ausgabefeld unten 
links der Kontoname erscheint. 


Offnen 
dann das 


Menü »Op¬ 
tion« und wäh¬ 
len »Buchen«. Be¬ 
stimmen Sie an¬ 
schließend, ob eine Aus¬ 
gabe oder eine Einnahme ver¬ 
bucht werden soll. Sie werden 
dann aufgefordert, eine Be¬ 
zeichnung für den Buchungs¬ 
betrag einzutippen. Schließen 
Sie die Eingabe mit 
< RETURN > ab. Danach Ist 
die Höhe des Betrags einzuge¬ 
ben. Hier sind nur Zahlen und, 
als Trennung für die Nachkom¬ 
mastelle, der Punkt erlaubt. 

Sollten Sie versehentlich ein 
ungültiges Zeichen eingege¬ 
ben haben, erscheint die Mel¬ 
dung »?Redo from Start«. 
Drücken Sie dann < RE¬ 
TURN > und buchen erneut. 

Die in der Arbeitssitzung bis¬ 
her erfolgten Buchungen se¬ 
hen Sie mit der Wahl des Me¬ 


nüpunktes »Buchun¬ 
gen«. 

Haben Sie auf die 
beschriebene Art alle 
Buchungen vorge¬ 
nommen, speichern 
Sie diese mit dem 
Punkt »Einträgen« 
auf Diskette. Erst 
dann sind Ihre Daten 
endgültig festgehal¬ 
ten. Bel längeren Sit¬ 
zungen sollten Sie zwi¬ 
schendurch immer wieder 
auf Diskette speichern, um Da¬ 
tenverlust, beispielsweise 
durch einen Stromausfall, zu 
vermeiden. 

Sie können die auf Diskette 
gespeicherten Daten in die- 
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Bitte neuen Xontonanen einireben 


? urUubskosteni. 


Zeit 12:23:28 

batim 16-89-1988 

Bezuffszeit 16-89-1988 

Kontonane 


Arbeitsdauep 

Buchunjren 

Speicher 


h: 8 n: 8 s: I 
538136 4487 26292 


Bild 1. Legen Sie bis zu zehn Konten gleichzeitig an, die 
Auswahl erfolgt über diesen Menüpunkt 


lAff 

Monat 

Jahr 

Bezeichnunir 

TT - U 

Betrag 

16 

89 

1988 

GROBEINXAUr 

-455.78 

16 

89 

1988 

BRÖTCHEN 

-2.88 

16 

89 

1988 

FLEISCH 

-21.78 

16 

89 

1988 

SüSSIGXEITEN 

-4.55 




Saldo: 

-<S4.«3 


Einzelkonto LEBEHSHIIIEL 


Jahr 1988 Konat89 | Maustaste 


Zeit 

12:23:28 

Arbeitsdauer 

h: 8 n: 8 s: 8 

Datun 

16-89-1988 

Buchungen 

8 

Bezugszeit 

Xontonat^e 

16-89-1988 

LQDfSHITTEL 

Speicher 

553632 4147 25722 


Bild 2. Die Buchungen eines Kontos sind mit dem Befehl 
»Übersicht Einzelkonto« darzustellen 



Xonto 

Betrag 

GEHALT 

15188.55 

AUTO 

8.88 

HOBBYS 

8.88 

LEBENSHITTa 

-484.83 

! säRö^ mm 1 


Zeit 12:42:14 

Batun 16-89-1988 

Bezuffszeit 16-89-1988 

Xontonaw LQOtSMiTTEL 


Arbeitsdauep 

Buchun^fen 

Speichtp 


h; 8 h: 8 s: 8 
556288 4487 26234 


Bild 3. Die Monatsübersicht zeigt Ihnen, wo in Zukunft 
gespart werden muß 


sem Konto mit der Wahl »Über¬ 
sicht Einzelkonto« einsehen 
(Bild 2). Die Funktionen »Über¬ 


sicht Monat« und »Übersicht 
Jahr« zeigen alle gebuchten 
Einträge in dem betreffenden 


Zeitabschnitt (Bild 3). Die Aus¬ 
gabe erfolgt dabei immer ge¬ 
mäß der eingestellten Bezugs¬ 
zeit. 

Ein nicht mehr benötigtes 
Konto können Sie mit dem 
Punkt »Konto löschen« elimi¬ 
nieren. Es erfolgt vorher eine 
Sicherheitsabfrage. 

Folgende Menüpunkte ste¬ 
hen weiterhin zur Wahl: 

1. DISK 

Hier können Sie das Directo¬ 
ry einsehen, Files löschen 
oder einen Diskwechsel veran¬ 
lassen. 

2. ZEIT 

Um einmal nachzuschauen, 
was in den vorangegangenen 
Monaten oder Jahren verbucht 
wurde, wird die Bezugszeit ge¬ 
ändert. Wählen Sie den Punkt 
»Bezugszeit« und stellen mit 
der Maus die gewünschte Zeit 
ein (Bild 4). Bewegen Sie den 
Mauszeiger auf das ge¬ 
wünschte Feld. Drücken der 
linken Maustaste verändert die 
angezeigte Zelt. In der oberen 
Hälfte erhöht sich die Zeit, in 
der unteren erniedrigt sie sich. 
Sind Sie mit der Einstellung zu¬ 
frieden, klicken Sie bitte das 
Feld »fertig« an. Die niedrigste 
Bezugszeit ist das Jahr 1988. 
Das Anklicken der Funktion 
»Systemzelt« genügt, um spä¬ 
ter zum aktuellen Datum zu¬ 
rückzukehren. 

3. SYSTEM 

Wählt man hier den Punkt 
»Farben«, können acht Farben 
mit drei Schiebereglern (Gad- 
gets) verändert werden (Bild 5). 
Klicken Sie die zu verändernde 
Farbe an und stellen diese 
nach eigenem Geschmack 
ein. Auch diese Operation ver¬ 
lassen Sie durch Anklicken 
des Feldes »Fertig«. 

Die Grundelnstellung erhält 
man mit der Funktion »Farbre- 
set« zurück. 

Der letzte Punkt im Menü 
»System« bewirkt das Pro¬ 
grammende. Sollten sich noch 
gebuchte Einträge im Speicher 
befinden, werden Sie aufgefor¬ 
dert, diese vor dem Verlassen 
des »Haushaltsbuch« auf Dis¬ 
kette zu speichern. 

4. AUSGABE 

Hier wählen Sie die Statistik, 
die auf dem Drucker ausge¬ 
geben werden soll. Sie haben 
die Wahl zwischen Einzel-, 
Monats- oder Jahreskonto. 

5. DRUCKER 

In diesem Menü wählen Sie 
die Einstellungen für den an¬ 
geschlossenen Drucker. Die 
Anpassung unterstützt Epson- 
und kompatible Drucker. 

Das Programm »Haushalts¬ 
buch« und der zugehörige Da¬ 
tenspeicher benötigen sehr 
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Stoff für 
Ihren Amiga 

CLImate 1.2 für Amiga 

Mit CLImate 1.2 können Sie end¬ 
lich die Befehle des Command- 
Line-Interface benutzerfreundlich 
per Mausklick verwenden! Eine 
sehr übersichtliche Bildschirm¬ 
darstellung, die Bedienung aller 
Befehle mit der Maus und die 
Unterstützung von drei externen 
Laufwerken oder 5V4'^), 
Festplatten, RAM-Disk machen 
das Programm zu einer 
unentbehrlichen Unterstützung. 

Bestell-Nr. 51653 
DM 79,-* (sFr 72,-7öS 790,-*) 

Devpac Assembler (deutsch) 
für Amiga 

Ein Entwicklungspaket mit 
integriertem Editor/Assembler, 
symbolischem Debugger und 
schnellem Linker zum Einbinden 
von Hochsprachen-Modulen. 
Erzeugt direkt ausführbare 
Programme! 
Bestell-Nr. 51656 
DM 148,-* (sFr 134.-*/öS 1480,-*) 

Zing! (deutsch) 

- das mächtige CLI-Werkzeug 

für den Amiga 

Mit Zing! haben Sie endlich das 
gesamte File-System mit Dlrec- 
tories und Subdirectories fest im 
Griff. Sie beschleunigen mit Zing! 
und Sie verwalten bis zu 500 
Files und Subfiles und bis zu 
100 Directories auf einmal. Die 
Bedieneroberfläche ist vom 
Feinsten: Pull-down-Menüs, 
(Click-)lcons, Funktionstasten. 

Bestell-Nr. 51669 
DM 99,-* (sFr 89,-*/öS 990,-*) 

Zing! Keys (deutsch) 

- Ihr ganz persönlicher Amiga 

Mit Zing! Keys machen Sie aus 
Ihrem Amiga das variable System 
das Sie sich schon immer 
wünschen. Es Ist Ihren eigenen 
Ansprüchen jederzeit anpaßbar! 
Alle Tasten sind nach Wunsch 
belegbar; z.B. mit Funktionsauf¬ 
rufen, Programmaufrufen, System¬ 
befehlen und vorprogrammierten 
Befehlen. Die Belegung ist 
natürlich jederzeit abspeicherbar. 
Durch die Belegung von 
»Hot-Keys« haben Sie mit Zing! 
Keys ein Multitaskingsystem 
par excellerce! 
Bestell-Nr. 51670 
DM 79,-* (sFr 71,-*/öS 790,-*) 
* Unverbindliche Preisempfehlung 

Fragen Sie Ihren Händler 
nach weiteren Informationen. 

Markt&Technik-Support: 

Bei User-Registrierung rechtzei¬ 
tige Update-ZUpgrade-lnforma- 
tion und Support-Unterstützung. 
Senden Sie uns bitte Ihre 
Registrierungskarte 









Markt&Ifechnik 


Markt&Technik-Produkte 
erhalten Sie in den Fachabteilungen 
der Warenhäuser, im Versandhandel, 
in Computer-Fachgeschäften oder 
bei Ihrem Buchhändler. 


Fragen Sie Ihren Fachhändler 
nach unserem kostenlosen Gesamtverzeichnis 
mit über 500 aktuellen Computerbüchern 
und Software. Oder fordern Sie es direkt 
beim Verlag an! 


Zeitschriften • Bücher 


Software ■ Schulung 


Markt&Technik Verlag AG, Buchverlag, Hans-Plnsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 

Bestellungen im Ausland bitte an: SCHWEIZ; Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656. ÖSTERREICH: Markt&Technik Verlag 
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A NWENDUNGEN 


viel Speicherplatz, so daß min¬ 
destens eine 512 KByte Spei¬ 
chererweiterung benötigt wird. 
Ist zusätzlich eine batteriege¬ 
pufferte Echtzeituhr vorhan¬ 
den, wird diese vom Programm 


unterstützt. Sollte die Uhr nicht 
vorhanden sein, müssen Da¬ 
tum und Uhrzeit vor dem La¬ 
den eingestellt werden. 

(M. Fernholz/Walter Kurt/rs) 
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Bild 4. Verändern Sie die Bezugszeit, um Buchungen ein 
anderes Datum als das Systemdatum zuzuweisen 


von A.N. ü. M.F. _ tt^Haushaltsverualtungttf _ c 1998 
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Bild 5. Sogar die Farben des Arbeitsbildschirmes sind zu 
verändern 


Setzen Sie bitte vor dem Start des Programms die System¬ 
zeit, falls diese nicht mit dem aktuellen Datum und der Uhrzeit 
übereinstimmt. Diese Einstellungen führen Sie bitte mit der 
Workbench durch. Fortgeschrittene setzen die Zeit natürlich 
vom CLI aus. 

Das Programm erwartet im Unterverzeichnis »SCHUBLA¬ 
DE« die vom Anwender eingestellte Farbtabelle. Da diese vor 
dem ersten Start des Programms nicht vorhanden sind, gehen 
Sie bitte folgendermaßen vor: 

Legen Sie auf der Diskette mit dem Programm »Haushalts¬ 
buch« das Subdirectory »SCHUBLADE« an. Dazu kopieren 
Sie das Verzeichnis »EMPTY« von der Workbench und be¬ 
nennen dies anschließend mit dem Rename-Befehl in 
»SCHUBLADE« um. 

Legen Sie die Diskette in das Laufwerk dfO:, laden Sie an¬ 
schließend Amiga-Basic und dann das »Haushaltsbuch« 
(»OPEN« mit der rechten Maustaste anwählen). Geben Sie bit¬ 
te im Basic-Fenster (links) nach Anklicken mit der linken Maus¬ 
taste folgende Zeilen ein: 

chdir "dfO:Schublade" 
open "o", #l/'Zeit" 
print#l/'195501" 
dose 

Beachten Sie bitte unbedingt die korrekte Groß-/Klein- 
schreibung! Schreiben Sie nun im List-Fenster (rechts) vor die 
Zeile: 

OPEN "Farben ... 

die Buchstaben »REM«. Sie müssen den Mauszeiger dazu an 
den Anfang der Zeile bewegen und die linke Maustaste 
drücken. Ein senkrechter Strich erscheint in der* Zeile. Geben 
Sie nun die Buchstaben »REM« ein, drücken einmal die 
Space-Taste und bewegen den Mauszeiger in die nächste Zei¬ 
le. Starten Sie anschließend das Programm (»Start« an¬ 
klicken). Mit der Option »Farben« im Menü »System« stellen 
Sie nun die Farben Ihrer Wahl ein. Wenn Sie die Farben nicht 
verändern wollen, klicken Sie bitte alle acht Farben der Reihe 
nach an und anschließend das Feld »Fertig«. Erst dann sind 
die Farbwerte zum Speichern vorbereitet! 

Nach dem Einstellen fragt das Programm, ob Sie die Farben 
speichern wollen. Geben Sie unbedingt »JA« an. Das File »Far¬ 
ben« wird nun erzeugt. Beenden Sie anschließend die Arbeit 
mit dem Haushaltsbuch, erscheint die Meldung »Current pro¬ 
gram is not saved. Do you want to save it before proceeding?«. 
Klicken Sie mit der linken Maustaste bitte »NO« an. Nun kann 


das »Haushaltsbuch« 

ohne Schwierigkeiten gestartet werden. 



Programmname: 

Haushaltsbuch 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

Amiga-Basic 1.2 

Bemerkung: 

Bitte vor Programmstart im 
Unterverzeichnis »Schublade« die 
Dateien »Zeit« und »Farben« anlegen 


1 XbO Start: 

2 Lc REM -HH-Haushaltvervaltung von Andreas Noch und Martin Femh 

olz +++ 

3 gS REM +-H-Erstellungsjahr Januar bis Februar 1988 +++ 

4 He REM *** Bitte nur in einem Monat Buchen (EINTRÄGEN!II) 

5 ^ REM *** Das Erstellen eines neuen Buchungsjahres dauert ca 

.1.5 min (Schreiben der Jahresdateien) 

6 NS REM *** Die Schublade MUß beinhalten die Dateien Zeit und 

Farben !III 

7 ZB REM *** Das Programm arbeitet, fehlerfrei mit 1 Mbyte Speie 

her ! 

8 L3, REM *** Das Programm arbeitet auch mit 2 Laufwerken (Ander 

ung auf 2 Laufwerke CHDIRdfO:Schublade Befehle im Prograra 
m auf DFl verändern) 

9 zd REM Die niedrigste Bezugszeit ist 1988 

10 GJ CHDIR "dfO:Schublade' 

11 mK CLEAR ,50000& 

12 oD OPTION BASE 1 

13 5U DEFDBL a-Z 


14 XE index=0 

15 n5 DIM verzeichnis$(l9),flagyC(l9),nummer(99),konto$(99),Jahr$( 

99),monat$(99),tag$(99),buchung$(99),betrag$(99) 

16 KS GOSUB Systemzeit 

17 9o GOSUB bildschirm 

18 Mh GOSUB eInlesen 

19 li OPEN *'I^ #1, "Farben'^:F0R i=0 TO 7:INPUT #l,rot(i+l),gruen 

(i+l),blau(i+l):PALETTE i,rot(i+l),gruen(i+l),blau(i+l):NEXT 
i:CL0SE #1 

Listing 1. Das Haushaltsbuch bringt Ordnung in Ihre 
Finanzen. Bitte mit dem Checksummer (Seite 159) 
eingeben. 

Fortsetzung des Listings 
auf Seite 143 
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Anwendungen 

Intelligenter Sprachentrainer 


Ohne ausreichenden Wortschatz ist kei¬ 
ne Fremdsprache zu beherrschen. Erwei¬ 
tern Sie Ihr Vokabular einer beliebigen 
Sprache mit diesem großartigen Pro¬ 
gramm. Mit dem Vokabel-Trainer sind 
nicht nur exotische Sonderzeichen dar¬ 
zustellen, er reagiert auch auf vorhande¬ 
ne Lücken in Ihrem Sprachschatz. 



Bild 3. Die Maske für die Eingabe neuer Vokabeln 


D ie Fähigkeiten des 
»Vokabel-Trainers« (Li- 
sting 1 und 2) gehen 
weit über die Möglichkeiten 
vergleichbarer Programme 
hinaus. Eine Übersicht der hilf¬ 
reichen Funktionen wird Sie 
überzeugen: 

— mausunterstützte Benutzer¬ 
oberfläche 

— nationale Sonderzeichen 
auf Funktionstasten 
— Suchfunktion für jede Voka¬ 
bel oder das passende Syno¬ 
nym im Speicher und auf Dis¬ 
kette 

— Vokabelabfrage nach drei 
verschiedenen Kriterien 
(Fremdwort, Übersetzung und 
Schreibweise) 

— durch Statistikfunktion für 
jede einzelne Vokabel ständi¬ 
ger Überblick des eigenen 
Wissensstandes 
— Datumsspeicherung der Ab¬ 
frage 

Fragen Sie sich, warum Vo¬ 
kabeln mit Hilfe eines Compu¬ 
ters besser und schneller ge¬ 
lernt werden? Computer¬ 
unterstütztes Lernen bietet ei¬ 
ne Reihe von Vorteilen. Einer¬ 
seits eignen Sie sich beim Ein¬ 
tippen wesentlich besser die 
Schreibweise der Vokabeln an. 
Andererseits lernen Sie die tat¬ 
sächliche Bedeutungen ein¬ 


zelner Vokabeln und nicht eine 
Abfolge verschiedener Wörter. 
Beim üblichen Lernvorgang 
mit Hilfe eines Lehrbuches 
prägen sich die Vokabeln pri¬ 
mär In der Reihenfolge der 
Lektion ein, weniger die Be¬ 
deutungen der einzelnen Vo¬ 
kabeln. Dies führt häufig zu 
dem Irrglauben, die Vokabeln 
seien schon bestens bekannt, 
obwohl bei einem aus dem Zu¬ 
sammenhang gerissenen Wort 
Unsicherheit auftritt. 

Der Vokabeltrainer bietet 
weiterhin den großen Vorteil, 
Vokabeln dem Wissensstand 
des Benutzers angepaßt abzu¬ 
fragen. Dies geschieht durch 
ein automatisches Auswahl¬ 
verfahren. Vokabeln, die Sie 
weniger gut beherrschen, wer¬ 
den häufiger abgefragt als be¬ 
kannte Worte. 

Die Möglichkeiten des Voka¬ 
beltrainers sind damit noch 
lange nicht erschöpft. Mehrere 
Anwender können ihre Voka¬ 
beln auf einer Diskette ge¬ 
trennt voneinander verwalten. 
Die Statistikfunktion erlaubt ei¬ 
ne genaue Auswertung jeder 
einzelnen Vokabel, jeweils auf- 
geteilt auf die drei Abfragear¬ 
ten (siehe unten). Zusätzlich 
werden Datum und Uhrzelt mit 
auf Diskette gespeichert. Da¬ 


mit Ist genau nachzuvollzie¬ 
hen, wann welche Vokabeln 
zuletzt abgefragt wurden und 
ob eventuell eine Wiederho¬ 
lung der entsprechenden Lek¬ 
tion nötig Ist. 

Die Vorbereitung 

Im folgenden möchte ich zu¬ 
nächst einige Hinweise zum 
Abtippen geben und danach 
auf die einzelnen Funktionen 
des Programms ausführlich 
eingehen. 

Der Vokabeltrainer ist voll¬ 
ständig in Amiga-Basic auf ei¬ 
nem Amiga 2000 program¬ 
miert worden. Das Programm 
ist für »Basic-Kundlge« leicht 
eigenen Wünschen anzupas¬ 
sen. Der Trainer läuft problem¬ 
los auf einem Amiga 500 oder 
Amiga 1000 mit einem Haupt¬ 
speicher von mindestens 512 
KByte. 

Vor der Eingabe des Haupt¬ 
programms muß in jedem Fall 
der von Amiga-Basic zur Verfü¬ 
gung gestellte freie Speicher¬ 
platz von 25000 Byte auf min¬ 
destens 70000 Byte vergrößert 
werden. Für Einzeldateien mit 
mehr als 200 Vokabeln sollte er 
sogar etwa 100000 Byte betra¬ 
gen. 

Das Hauptprogramm ist län¬ 
ger als 25000 Byte. Damit bei 
einem neu gestarteten Compu¬ 
ter keine Schwierigkeiten auf- 
treten, ist zunächst ein kleines 
Ladeprogramm mit Namen 
»Trainer« (Listing 1) zu laden 
und zu starten. Dieses Pro¬ 
gramm vergrößert den freien 
Speicherplatz und ruft das 
Hauptprogramm auf. Damit 
dieses Ladeprogramm das 
Hauptprogramm auf Diskette 


findet, speichern Sie den 
Hauptteil unter dem Dateina¬ 
men »Trainer HP« ab. Beachten 
Sie bitte, daß die Diskette sich 
im Laufwerk befindet, das Im 
Basic-Lader angegeben ist 
(z.B. dfO:). . 

Die maximal mögliche An¬ 
zahl von Vokabeln in einer Da¬ 
tei läßt sich leicht verändern, 
indem Sie die Variable »mmv« 
am Anfang des Programms Ih¬ 
ren Bedürfnissen anpassen. 
Ferner ist zu beachten, daß 
auch der im Ladeprogramm 
enthaltene Befehl »CLEAR« an 
den größeren Speicherbedarf 
angepaßt werden muß (durch 
Veränderung der Zahl hinter 
dem CLEAR-Befehl). 

Jetzt geht’s los 


Nach dem Programmstart 
werden Sie zunächst aufgefor- 
dert, Ihren Namen einzuge¬ 
ben. Der Name darf maximal 
20 Zeichen beinhalten. Sollte 
ein File mit dem gewählten Na¬ 
men noch nicht auf Diskette 
vorhanden sein, legt das Pro¬ 
gramm dieses File an. Ist die 
Namensdatei schon auf der 
Diskette vorhanden, lädt der 
Computer alle Daten, die mit 
diesem Namen Zusammen¬ 
hängen. Hierzu gehören die 
Namen der Vokabeldateien auf 
der eingelegten Diskette, die 
vom Anwender eingestellten 
Grundfarben sowie die Benut¬ 
zerdaten mit Datum und Uhr¬ 
zeit. Mit Hilfe des Anwenderna¬ 
mens ist es möglich, eine eige¬ 
ne, von anderen Daten ge¬ 
trennte, Vokabelbibliothek auf¬ 
zubauen. Diese Funktion ist in¬ 
teressant, wenn auf Diskette 






Bild 1. Das Hauptmenü des Vokabeitrainers 
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Bild 2. Ein Beispiel für die Vokabelausgabe 


nach einer bestimmten Voka¬ 
bel gesucht wird. 

Nach der Namenseingabe 
erscheint das Hauptmenü (Bild 
1) mit Datum und Uhrzeit 
(rechts oben auf dem Bild¬ 
schirm). Ist eine Hardware-Uhr 
vorhanden, übernimmt das 
Programm die dort abgeleg¬ 
ten Werte. Anwender ohne 
Hardware-Uhr sollten das ak¬ 
tuelle Datum und die Uhrzeit 
vor Aufruf des Programms ent¬ 
weder über die »Preferences« 
oder mit Hilfe des DATE- 
Befehls eingeben. 

Hilfreiche Maus 

Das gesamte Programm ist 
speziell auf Maussteuerung 
ausgelegt, die Tastatur wird 
ausschließlich für Texteinga¬ 
ben verwendet. 

Diskettenbetrieb 

Der erste Punkt im Haupt¬ 
menü unterteilt sich In folgen¬ 
de Funktionen: 

1. Vokabeldatei laden 

Um eine Datei von Diskette In 
den Arbeitsspeicher des Com¬ 
puters zu laden, klicken Sie 
den gewünschten Dateinamen 
an. Sollten nicht alle gespei¬ 
cherten Dateien im Ausgabe¬ 
fenster Platz finden, verschie¬ 
ben Sie mit den beiden Käst¬ 
chen links unten den sichtba¬ 
ren Ausschnitt. 

2. Vokabeldatei speichern 
Wurde eine Datei erstellt oder 
ergänzt, kann sie mit dieser 
Funktion auf Diskette gespei¬ 


chert werden. Haben Sie eine 
neue Datei erstellt, verlangt 
das Programm einen Dateina¬ 
men von maximal 20 Zeichen. 
Soll eine vorher geladene Da¬ 
tei wieder abgespeichert wer¬ 
den, erscheint im Namensfeld 
die alte Bezeichnung der Da¬ 
tei. Mit < RETURN > überneh¬ 
men Sie diesen Namen. Wol¬ 
len Sie diese Funktion abbre¬ 
chen, klicken Sie das Feld »Zu¬ 
rück zum Hauptmenü« an. Die¬ 
sen Abbruch zum Hauptmenü 
finden Sie bei vielen Pro¬ 
grammfunktionen. 

3. Vokabeldatei löschen 
Nach Anklicken dieses Menü¬ 
punktes wird eine nicht mehr 
benötigte Datei von Diskette 
gelöscht. 

4. Diskette wechseln 
Sollten Sie eine neue Diskette 
mit Vokabeln einlegen. Ist drin¬ 
gend erforderlich, diese Funk¬ 
tion anzuwählen, da das Be¬ 
triebssystem ansonsten die al¬ 
te Diskette zurückverlangt. Der 
Vokabeltrainer liest die Datei¬ 
namen erst dann von der neu 
eingelegten Diskette. 

Vokabeln eingeben 

Diese Funktion (Bild 3) er¬ 
laubt Ihnen einerseits, eine 
neue Vokabeldatei zu begin¬ 
nen, andererseits eine schon 
vorhandene Datei mit neuen 
Vokabeln zu ergänzen. Nach 
Anwahl der Funktion erschei¬ 
nen In der oberen Hälfte des 
Bildschirms zwei Eingabefel¬ 
der. Hier tippen Sie das Fremd¬ 
wort und die Übersetzung ein, 
jeweils mit anschließendem 


< RETURN >. Links unten se¬ 
hen Sie die Belegung der 
Funktionstasten mit den natio¬ 
nalen Sonderzeichen. Vorein¬ 
gestellt sind hier die französi¬ 
schen Sonderbuchstaben. Al¬ 
le vom Amiga unterstützten na¬ 
tionalen Zeichensätze sind auf 
der Workbench im Directory 
»DEVS/KEYMAPS« abgelegt. 
Wollen Sie einen anderen Zei¬ 
chensatz verwenden, müssen 
Sie die DATA-Zeilen am Ende 
des Hauptprogramms verän¬ 
dern. Die ASCII-Codes der 
Sonderzeichen entnehmen 
Sie bitte dem Amiga-Hand- 
buch. 

Die Anzeige rechts unten 
zeigt Informationen über die 
Anzahl der Vokabeln Im Spei¬ 
cher und die Speicherbele¬ 
gung. 

Verschiedene Bedeutungen 
einer Vokabel (Synonyme) soll¬ 
ten mit Kommata getrennt wer¬ 
den. Beispielsweise bedeuten 
die beiden englischen Worte 
»Hit« und »Beat« zu deutsch 
»Schlagen«. Bei der Abfrage 
berücksichtigt das Programm 
diese Synonyme. Ins Haupt¬ 
menü zurück kommen Sie mit 

< RETURN >, ohne eine Vo¬ 
kabel einzugeben. 

Vokabeln ausgeben 

Mit diesem Programmpunkt 
(Bild 2) sind Sie in der Lage, die 
im Speicher befindliche Datei 
durchzublättern, beispielswei¬ 
se um sich einen Überblick 
über die Art der Vokabeln zu 
verschaffen. In den beiden 
Ausgabefenstern auf der lin- 


Superbase 

Professional 

Jetzt gibt es Superbase Profes¬ 
sional! Die Profi-Version der 
bekannten, relationalen Daten¬ 
bank Superbase mit neuen, 
mächtigen Features: 
-Leistungsfähige Textverarbei¬ 
tung mit Serienbrieffunktion 
-Intelligenter Formulareditor für 
mehrseitige relationale Formu¬ 
lare mit bis zu 240 Spalten 
-Mächtige, Basic-ähnliche 
Datenbanksprache »DML« mit 
Unterstützung von sämtlichen 
Superbase-Professional- 
Funktionen, Pull-down-Menüs, 
Eingabe-Masken, Fenstern, 
Scroll-Balken usw. 
Superbase Professional ist das 
ideale Entwicklungswerkzeug - 
auch für komplexe Aufgaben! 

Superbase Professional 
für Amiga 
Bestell-Nr. 51672 
DM 599,-* 
(sFr 539,-7öS 5990,-*) 
Superbase Professional 
für Atari 
Bestell-Nr. 51673 
DM 599,-* 
(sFr 539,-*/öS 5990,-*) 

Upgrades: 
Upgrade Superbase 
auf Superbase Professional 
für Atari 
Bestell-Nr. 51673U 
DM 300,-* 
(sFr 280,-*/öS3000,-*) 
Upgrade Superbase 
auf Superbase Professional 
für Amiga 
Bestell-Nr. 51672U 
DM 300,-* 
(sFr 280,-*/öS 3000,-*), 
(Gegen Einsendung der 
Originaldiskette und gegen 
Vorauskasse mit Verrechnungs¬ 
scheck oder der abgedruckten 
Zählkarte.) 

* Unverbindliche Preisempfehlung 

Fragen Sie bei Ihrem Händler 
nach weiteren Unterlagen. 

Markt&Technik-Support: 

Bei User-Registrierung rechtzei¬ 
tige Update-ZUpgrade-lnforma- 
tion und Support-Unterstützung: 
Telefon 089/4613-646 oder -205. 
Senden Sie uns bitte Ihre 
Registrierungskarte. 
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Bild 4. Hier wird die zu bearbeitende Vokabel ausgewählt 


Bild 5. Diese Untermenüs erscheinen bei der Abfrage 


ken Seite sehen Sie das jewei¬ 
lige Fremdwort und die pas¬ 
sende Übersetzung. Das Fen¬ 
ster links oben bietet Informa¬ 
tionen über die Größe der Vo¬ 
kabeldatei und die laufende 
Nummer der angezeigten Vo¬ 
kabel. Der Balken unterhalb 
der Vokabelnummer zeigt gra¬ 
fisch den Anteil der Vokabelda¬ 
tei in Abhängigkeit von der Ma¬ 
ximaizahl von Vokabeln an. Im 
letzten Fenster rechts unten 
können Sie durch Anwahl von 
»Vokabel weiter« und »Vokabel 
zurück« in der Datei vor- und 
zurückbiättern. Wenn Sie mit 
der Maus die Zahl »10« an- 
klicken, wird die Datei in Zeh¬ 
nerschritten durchgeblättert. 

Statistik ausgeben 

Diese Funktion zeigt, wie 
häufig Sie die angezeigte Vo¬ 
kabel in einer bestimmten Ab¬ 
frageart (s. unten) gewußt ha¬ 
ben. Während des Durchblät¬ 
terns erscheint im Balken unter 
dem Namen »Vokabelnum¬ 
mer« ein dünner roter Strich, 
der die aktuelle Position im Vo¬ 
kabelfeld markiert. Mit Hilfe 
der Maus läßt sich dieser 
Strich an eine andere Stelle 
des Balkens setzen. Auf diese 
Weise können Sie sich das 
Durchblättern einer längeren 
Datei wesentlich erleichtern. 

Vokabeln editieren 

Der Programmteil hilft, ein¬ 
zelne Vokabeln zu verbessern 
oder zu löschen. Die im Spei¬ 
cher vorhandene Datei kann 
unter diesem Punkt auch kom¬ 
plett gelöscht werden. Wollen 
Sie einzelne Vokabeln verbes¬ 
sern oder löschen, klicken Sie 
mit der Maus die gewünschte 
Vokabel an (Bild 4). Bei »Voka¬ 
bel verbessern« erscheint die 
ausgewählte Vokabel in der 
gleichen Eingabemaske wie 
bei »Vokabel eingeben«. Der 
Cursor wird am Ende der Voka¬ 


bel plaziert, die Verbesserun¬ 
gen können über Tastatur vor¬ 
genommen werden. Mit 
< RETURN > wird die neue 
Vokabel in die Datei übernom¬ 
men. Durch Anwahl eines der 
beiden Menüpunkte »letzte Vo¬ 
kabel« und »nächste Vokabel« 
blättern Sie in der Datei. 

Vokabeln suchen 

Mit diesem Programmteil 
können Sie im Speicher oder 
auf Diskette eine bestimmte 
Vokabel finden. Soll ein Begriff 
auf Diskette gesucht werden, 
müssen Sie die zu überprüfen¬ 
den Vokabeldateien auswäh¬ 
len. Diese Auswahl erfolgt ge¬ 
nauso wie beim Laden oder Lö¬ 
schen von Dateien. Daraufhin 
erscheint die Aufforderung, ei¬ 


nen Suchbegriff einzugeben. 
Unter Suchbegriff ist hier eine 
Zeichenkette zu verstehen, die 
an beliebiger Stelle in der ge¬ 
suchten Vokabel stehen kann. 
Groß- oder Kleinschreibung 
wird bei der Suche nicht be¬ 
rücksichtigt. Alle Vokabeln, die 
den Suchbegriff beinhalten. 


werden ausgegeben. Im Fen¬ 
ster rechts oben erhalten Sie 
die Information, an welcher 
Stelle der Datei der Computer 
im Moment sucht. Diese Stelle 
wird wiederum durch einen ro¬ 
ten Strich innerhalb der Bal¬ 
kenanzeige Im rechten oberen 
Fenster markiert. 

Frage und 
Antwort 

Vokabeln abfragen 

Dieser Menüpunkt (Bild 5) 
stellt Ihnen vier verschiedene 
Arten zur Verfügung, eine Vo¬ 
kabel zu lernen. 

1. Vokabeln einprägen 
Mit dieser Funktion können Sie 


sich, vor allem bei ganz neuen 
Vokabeln, zunächst einen 
Überblick verschaffen und sich 
die Vokabeln einprägen. Es 
wird noch keine statistische 
Speicherung vorgenommen. 

2. Übersetzung abfragen 

3. Fremdwort abfragen 
Beide Funktionen haben den 


gleichen Programmablauf. Sie 
unterscheiden sich nur In der 
Art der Abfrage. Im linken obe¬ 
ren Fenster erscheint die jewei¬ 
lige Vokabel. Nach einem 
Mausklick zeigt das Programm 
links unten das jeweilige Ge¬ 
genstück der abgefragten Vo¬ 
kabel. Im rechten Fenster er¬ 
halten Sie die Information, die 
wievielte Vokabel aus der Ge¬ 
samtdatei momentan abge¬ 
fragt wird. Unten rechts befin¬ 
det sich die Angabe über die 
Zahl der abgefragten Voka¬ 
beln. In diesem Fenster geben 
Sie auch an, ob die Vokabel be¬ 
kannt war oder nicht. Sind Sie 
am Ende einer Datei angekom¬ 
men, beginnt das Programm 
am Anfang der Datei. Brechen 
Sie die Abfrage mit dem Schal¬ 
ter »zurück zum hauptmenü« 
ab, werden die Statistikdaten 
der Vokabeldatei auf Diskette 
gespeichert. 

4. Schrift üben 

Bei dieser Funktion arbeitet 
das Programm ähnlich. Hier 
müssen Sie jedoch das Fremd¬ 
wort über die Tastatur einge¬ 
ben. Danach vergleicht der 
Computer die Eingabe mit dem 
gespeicherten Fremdwort. Er 
erkennt Eingaben als richtig, 
wenn diese entweder mit dem 
gespeicherten Wort übereln- 
stlmmen (Groß- und Klein¬ 
schreibung wird nicht unter¬ 
schieden), oder wenn die Ein¬ 
gabe mit einem der Synonyme 
übereinstimmt. 

Bel allen drei Arten der Ab¬ 
frage können Sie vor Beginn 
die Reihenfolge festlegen, in 
der die Vokabeln abgearbeitet 
werden sollen. Die Vokabeln 
können in der eingegebenen 
Reihenfolge, in gemischter 
Reihenfolge oder nach Kön¬ 
nensstand abgefragt werden. 
Bei letzterem wählt der Com¬ 
puter primär die weniger gut 
beherrschten Vokabeln aus. 



Bild 6. Statistische Auswertung einer Vokabeldatei — der 
Lernerfolg wird sichtbar 
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A NWENDUNGEN 


Statistik muß 
sein 

Der Punkt »Statistik ausge¬ 
ben« (Bild 6) erstellt für jede ab¬ 
gefragte Vokabel eine Statistik. 
Diese ist in die drei Abfragear¬ 
ten aufgeteilt. Die Ergebnisse 
sind sowohl prozentual als 
auch grafisch dargestellt. Mit 
»letzte Vokabel« und »nächste 
Vokabel« werden die angezeig¬ 
ten Worte jeweils um eine Posi¬ 
tion nach oben oder unten ver¬ 
schoben. Weiter zeigt die 
Funktion den durchschnittli¬ 
chen Wert aller In einer Datei 
vorhandenen Vokabeln an. 

Sonderfunktionen 

Dieser Programmteil verleiht 
dem Vokabeltrainer noch mehr 
Komfort. Die eingestellten 
Farbwerte können je nach 
Wunsch des Anwenders verän¬ 
dert werden. Diese Einstellung 
ist nur einmal nötig, da die neu 
eingestellten Werte mit dem 
entsprechenden Anwenderna¬ 
men auf Diskette gespeichert 
werden. 

1. Info zu Abfragedaten 
Zeigt an, wann die geladene 
Datei zum letzten Mal abge¬ 
fragt wurde. 


2. Benutzung des Pro¬ 
gramms 

Mit diesem Punkt können Sie 
feststellen, an welchem Tag 
und zu welcher Uhrzeit Sie das 
Programm zuletzt benutzt ha¬ 
ben. Diese Programmfunktion 
verdeutlicht, ob eine Wieder¬ 
holung nach längeren Pausen 
nötig ist. 

Programm beenden 

Wichtig: Falls Sie eine 
Übung mit dem Vokabeltrainer 
beenden wollen, muß in jedem 
Fall diese Funktion gewählt 
werden. Erst nach Aktivierung 
dieses Punktes werden die Be¬ 
nutzungsdaten des Anwen¬ 
ders auf Diskette gespeichert. 
Vor dem endgültigen Ende des 
Programms erscheint zusätz¬ 
lich eine Sicherheitsabfrage. 
Klicken Sie daraufhin »JA« an. 

Das Programm Vokabel- 
Trainer benötigt außer »Trainer« 
und »Trainer HP« noch Amlga- 
Basic auf der Diskette. 

Sicher wird Ihnen mit Hilfe 
dieses Programms das Lernen 
von Vokabeln mehr Freude be¬ 
reiten, als nach der herkömmli¬ 
chen Methode. 

(Andreas Regul/ 
Dieter Meyer/kn/rs) 


Programmname: Trainer 

Computer: A500, A1000, A2000 mit Kickstart 1.2 

_ Sprache: Amiga-Basic _ 

Bemerkung: Ladeprogramm für »Trainer HP« 


Programraname: Trainer 


1 EJO REM Ladeprogramm fuer Vokabel-Trainer 

2 61 REM von Andreas Regul (c) 7/1988 

3 5W REM Initialisierung 

4 yi4 CLEAR,100000& 

5 FA DIM f(l6),fa(7,2) 

6 dH FOR i=l TO 16 

7 dj6 READ f(i) 

8 DI4 NEXT 

9 000 REM Bildschirmaufbau 

10 iX4 SCREEN 1,640,244,3,2 

11 vz WINDOW 1,'Vokabel - Trainer Vers. 1.0 

von Andreas Regul (c) 7/1988",(0,0)-(631,230),0,1 

12 Sn FOR i=l TO 4 

13 nl6 MENU i,0,0,"" 

14 J04 NEXT 

15 by FOR i=0 TO 7 

16 Th6 FOR j=0 TO 2 

17 V48 READ fa(i,j) 

18 NS6 NEXT 

19 2a PALETTE i,f(fa(i,0)),f(fa(i,l)),f(fa(i,2)) 

20 PU4 NEXT 

21 Ry LINE (100,40)-(520,l66),2,bf 

22 2N LINE (100,40)-(520,166),3,b 

23 OP LINE (101,40)-(101,166),3 

24 OR LINE (519,40)-(519,166),3 

25 72 LINE (l08,36)-(527,39),3,bf 

26 Hu LINE (521,40)-(527,l62),3,bf 

27 So COLOR 3,2 

28 nP LOCATE 7,18;PRINT "VOKABEL-TRAINER Vers 

ion 1.0" 

29 TQ LOCATE 10,26:PRINT "von" 

30 Br LOCATE 16,44:PRINT "Software" 


31 iH 

32 DU 

33 Cs 

34 uS 

35 JE 

36 5B 

37 hn 

38 KA 

39 8E 

40 yL 

41 Yh 

42 BH 

43 Oq 

44 Z5 

45 EK 

46 dk 

47 ah 

48 HN 

49 55 

50 Ih 

51 4z 

52 Nc 

53 66 

54 9w 

55 OU 

56 Eb 

57 07 

58 CE 

59 Xd 

60 UU 

61 JY 

62 sX 

63 la 

64 A5 

65 v3 

66 xQO 

67 TM4 

68 xp 


REM 


LOCATE 20,18:PRINT "(w) 7/1988 Andreas Regul Tel.: 06 

174/3706" 

g=36 

AREA (240,112) 

AREA (276,76):AREA (312,112):AREA (307,112) 

AREA Ü76,81):AREA (245,112):AREA (240,112) 

AREAFILL 

AREA (255,100):AREA (298,100):AREA (299,102) 

AREA (256,102):AREA (256,100) 

AREAFILL 

AREA (274,90):AREA (279,90) 

AREA (279,126):AREA (274,126) 

AREAFILL 

AREA (279,90):AREA (297,90) 

AREA (297,92) :AREA ^79,92) 

AREAFILL 

AREA (279,110):AREA (279,108) 

AREA (297,108):AREA (297,110) 

AREAFILL 

CIRCLE (297,100),18,3,4.71,1.57 
CIRCLE (297,100),23,3,4.71,1.57 
PAINT (318,100) 

LINE (298,109)-(304,109),3 
AREA (281,108):AREA (317,126) 

AREA 011,126) :AREA (280,111) 

AREAFILL 

LINE (274,99)-(279,99),2 
LINE (274,103)-(279,103),2 
LINE (291,90)-(293,92),2 
LINE (284,90)-(286,92),2 
LINE (307,106)-(311,109),2 
LINE (301,107)-(304,110),2 
WHILE M0USE(0)<0:WEND 
t=TIMER 

WHILE TIMER<t+6 AND M0USE(0)=0 AND INKEY$="":WEND 
RUN "TRAINER HP" 

Farbwerte 

DATA 0,0.04,0.1,0.16,0.22,0.29,0.35,0.41,0.47,0.54,0.6, 
0.66,0.72,0.79,0.85,0.91 

DATA 10,9,7,10,9,7,13,13,13,1,1,1,16,1,1,12,10,3,1,10,1 
,1,1,15 


(C) 1988 M&T 

Listing 1. »Trainer« ist das Ladeprogramm. Es vergrößert 
den Basic-Speicher für das Hauptprogramm und lädt 
dieses nach. Bitte geben Sie das Listing mit dem Check¬ 
summer (Seite 159) ein. 


I-1 

Programmname: 

Trainer HP 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

Amiga-Basic 

I-1 


Programmname: Trainer HP 


REM Vokabel - Trainer Vers. 1.0 
REM von Andreas Regul (c) 7/1988 

REM Initialisierung 
DEFINT a-z 
ramv=200 

DIM SHARED ta$(7),t$(l00),na$(10),f!(l6),farb(7,2),fa 
(10,7,2),bn$(10,2),abn$(l0,2) 

DIM SHARED d$(l01),da$(10l),dm(l01),ff(l0),v$(mmv+l,l 

) 

DIM SHARED st(mrav+l,5),re(mmv+l),rel(ramv+l),vo(mmv+l) 
FOR i=l TO 7 
READ ta$(i) 

NEXT 

FOR i=l TO 100 


Listing 2. Das Hauptprogramm »Trainer HP« muß sich auf 
der Diskette im Laufwerk befinden, das als aktueller 
Pfad angegeben ist. Ansonsten erscheint »File not 
found«. Bitte mit dem Checksummer (Seite 159) 
eingeben. 

Fortsetzung des Listings auf Seite 148 


1 

wpO 

2 

N9 

3 

5W 

4 

rd4 

5 

Du 

6 

Iv 

7 

Is 

8 

yu 

9 

Yw 

10 

iG6 

11 

GL4 

12 

dR 
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1987,363 Seiten, inkl. Diskette 
Bestell-Nr. 90434, ISBN3-89090-434-3 
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I ganz einfach ist: Ein 68000er-Kurs mit vielen Beispielen. 

Mit ausführlichem Verzeichnis aller Systemroutinen, 

I Anleitung für das Einbinden von Assembler-Routinen in 
I Amiga-Basic und vielen Informationen über die Intemas 
des Amiga-Betriebssystems. Mit Beispieldiskette. 

1987, 329 Seiten, inkl. Diskette 
Bestell-Nr. 90525, ISBN 3-89090-525-0 
DM 59,-V^Fr 5430töS 460,20 
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Anwendungen 

Meister der Tasten 


Sind Sie in der Lage, Ihre Amiga-Tastatur 
blind zu bedienen? Tippen Sie schneli 
und fehlerios? Wenn ja, können Sie die 
nächsten Zeiien getrost überlesen. Ent- 
thaltenn Ire Texyte jedoch jede menge 
Tipfeier, dann ist »Keyboard-Master» ge¬ 
nau das Richtige für Sie. 


B esonders wenn Sie oft 
Briefe mit der Schreib¬ 
maschine oder einer 
Textverarbeitung verfassen 
oder auch hin und wieder Li- 
stings abtippen, ist es von gro¬ 
ßem Vorteil, blind schreiben zu 
können. Das erhöht nicht nur 
die Schreibgeschwindigkeit 
enorm, sondern hilft auch, 
Tippfehler zu vermeiden. Das 
Programm »Keyboard-Master« 
ermöglicht Ihnen das Erlernen 
des Zehn-Finger-Systems. Es 
stellt einen vollständigen. Inter¬ 
aktiven Schreibmaschlnen- 
Kurs dar, der In 20 Kapitel un¬ 
terteilt ist. Die Spanne der 
Übungen reicht von einfachen 
»ASDF«-Aufgaben bis hin zu 
speziellen Fingerübungen für 
Programmierer. 

Um den gewünschten Erfolg 
zu haben, ist es notwendig, 
möglichst regelmäßig zu trai¬ 
nieren und anfängliche Proble¬ 
me durch Wiederholung der 
Übungen zu beseitigen. Wenn 
Sie das beachten, wird Ihnen 
dieses Lernprogramm sicher¬ 
lich schnell die ersten Erfolgs¬ 
erlebnisse bescheren. 


Die Lernerfolge mit »Key¬ 
board-Master« sind wirklich er¬ 
staunlich. So mancher unserer 
Redakteure hat sich die Lektio¬ 
nen »reingezogen« und seine 
»Tipfelereien« enorm reduzie¬ 
ren können. Wer seine Kennt¬ 
nisse im Maschineschreiben 
verbessern will, sollte sich 
das Programm unbedingt an- 
sehen. 

»Keyboard-Master« wurde in 
Amiga-Basic verfaßt. Trotzdem 
ist die Arbeitsgeschwindigkeit 
sehr hoch. 

Das Usting 

» Key board-M aster« finden 
Sie auf der Programmservice- 
Diskette zu diesem Sonder¬ 
heft. Ein Abdruck des LIstings 
erschien uns unsinnig: Erstens 
ist das Programm sehr lang, 
und daher zum Abtippen kaum 
geeignet. Ein weiterer Grund 
sind die Übungsdateien. Wie 
gesagt, besteht der Kurs aus 
zwanzig Kapiteln mit verschie¬ 
denen Übungen. Diese müß¬ 
ten also, damit das Programm 
überhaupt lauffähig ist, eben¬ 


falls eingegeben werden. Da 
dies sehr mühsam wäre, ha¬ 
ben wir uns also entschlossen, 
»Keyboard-Master« im Heft 
nicht abzudrucken. 

Was halten Sie von dieser 
Lösung? Sollen auch in Zu¬ 
kunft LIstings, die zum Ab¬ 
druck weniger sind, nur auf 
Diskette angeboten werden 
und damit gleichzeitig Im Heft 
Platz für weitere Artikel/Pro¬ 
gramme geschaffen werden? 
Oder nehmen Sie auch das Ap- 
tippen längerer LIstings In 
Kauf? Schreiben Sie uns Ihre 
Meinung! Der Fragebogen in 
diesem Sonderheft auf Seite 


16 wartet darauf, ausgefüllt zu 
werden. Er bietet außerdem 
Gelegenheit, sich zu anderen 
Bereichen zu äußern. So ha¬ 
ben Sie Gelegenheit, mit Ihren 
Wünschen und Anregungen 
die Inhalte der Sonderhefte 
mitzugestalten. 

Sie finden also auf der Dis¬ 
kette zu diesem Sonderheft 
das Basic-Listing unter dem 
Namen »KeyboardMaster« zu¬ 
sammen mit den Files »Lektion 
l.l« bis »Lektion 20.1« und der 
Übungsdatei »test.k«. Kopie¬ 
ren Sie alle Dateien auf eine 
Diskette, auf der sich Amiga- 
Basic befindet. Vor dem Start 
muß darauf geachtet werden, 
daß der deutsche Zeichenstatz 
aktiviert ist (dieser kann vom 
CLI aus mit »system/setmap d« 
aktiviert werden). 

Die beiden Zeilen nach dem 
»CLEAR«-Befehl am Llsting- 
Beginn enthalten zwei »De- 
fault«-Werte, die Sie Ihren Ge¬ 


gebenheiten anpassen kön¬ 
nen: »drive$« stellt die Lauf¬ 
werksbezeichnung dar, die im¬ 
mer dann benutzt wird, wenn 
beim Laden der Kursdatei kein 
Laufwerk gesondert angege¬ 
ben wird. Sinnvoll wäre hier, 
das Laufwerk (»dfO:« oder 
»dfl:«) anzugeben, von dem 
Sie gewöhnlich\jas Programm 
laden werden. Direkt darunter 
steht der voreingestellte Name 
der Kursdatei. In dieser Datei, 
die das Programm für jeden 
Benutzer gesondert anlegt, 
stehen die Informationen über 
die bearbeiteten Lektionen 
und die erzielten Ergebnisse. 


Der Name dieser Datei wird 
beim Programmstart immer er¬ 
fragt. Wenn Sie nicht jedesmal 
denselben Filenamen elntlp- 
pen wollen, drücken Sie ein¬ 
fach die RETURN-Taste und 
der von Ihnen im Programm¬ 
text voreingestellte Name wird 
verwendet. Als Filename wäre 
zum Beispiel Ihr Vorname sinn¬ 
voll. Das Programm hängt übri¬ 
gens selbständig an den ein¬ 
gegebenen Namen ».k« an, um 
es als Kursdatei von anderen 
Files zu unterscheiden. Beim 
ersten Start des Programms 
wird dann die Kursdatei mit 
dem entsprechenden Namen 
auf Wunsch auf Diskette er¬ 
zeugt. Auf der Diskette befin¬ 
det sich übrigens bereits eine 
Kursdatei unter dem Namen 
»test.k« Wenn Sie das Listing 
entsprechend angepaßt ha¬ 
ben, speichern Sie es erneut. 
Die Arbeit mit dem Programm 
kann nun beginnen. 


Ahiga Keyboard Master V2.3 by Robert Kretzschnar_@ 1988 Harkt I Technik 


_ Haiiptnenu _ 

Bitte wählen Sie einen Menüpunkt dui'ch lastencb'uck 



Bild 1. Das Hauptmenü von »Keyboard-Master« 
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Ah Zeilenende: 

<RETURN> - N;.chste Zeile 
<ESC> - Lektion abbrechen 
<») - Zeile wiederholen 


Bild 2. Die erste Übung hat begonnen 
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Anwendungen 


Die ersten 
Schritte 

Nach dem Start mit »RUN« 
werden Sie zuerst nach dem 
Namen der Kursdatei gefragt 
(siehe oben). Wollen Sie den 
vorgegebenen Namen ver¬ 
wenden, drücken Sie nur 

< RETURN >. Anschließend 
wird die Kursdatei geladen. 
Wenn sie unter diesem Namen 
noch nicht existiert, werden 
Sie gefragt, ob eine neue ange¬ 
legt werden soll. Beantworten 
Sie mit »n«, können Sie den Na¬ 
men nochmals eingeben. Tip¬ 
pen Sie »j« (was Sie beim er¬ 
sten Start tun sollten), legt das 
Programm eine neue Datei an. 
Falls Sie eine bereits existie¬ 
rende Kursdatei überschrei¬ 
ben wollen, müssen vor dem 
eigentlichen Filenamen drei 
Sterne und ein Leerzeichen 
eingegeben werden. Achtung: 
Alle Daten in dieser Datei ge¬ 
hen dabei verloren! Wichtig Ist, 
daß Sie die Diskette mit der 
Kursdatei immer Im Laufwerk 
lassen, solange Sie mit dem 
Programm arbeiten. 

Sie befinden sich nun im 
Hauptmenü (Bild 1). Dabei wird 
Ihnen auffallen, daß das ganze 
Programm über die Tastatur 
gesteuert wird. Schließlich soll 
deren Bedienung ja erlernt 
werden. Zudem kann die Be¬ 
dienung auch ohne Maus kom¬ 
fortabel und einfach sein. 

Einige Menüpunkte, die im 
Moment noch nicht sinnvoll 
sind, fehlen und sind nicht 
wählbar. Im folgenden werden 
alle Menüpunkte der Reihe 
nach besprochen. Beginnen 
Sie jedoch nicht sofort, den 
Kurs durchzuarbeiten. Das 
sollten Sie erst dann tun, wenn 
Sie auch die Hinweise zur 
Durchführung des Kurses ge¬ 
lesen haben. Dies soll Sie aber 
nicht daran hindern, die Funk¬ 
tion des Programms beim Le¬ 
sen der Bedienungsanleitung 
auszuprobieren. 

<F1 > - Lektion/Textübung 
wählen 

Mit der Funktionstaste 

< F1 > gelangen Sie vom 
Hauptmenü In ein Untermenü, 
In dem alle 20 Lektionen auf¬ 
gelistet sind. Wählen Sie eine 
davon aus, indem Sie die je¬ 
weilige Zahl, gefolgt von 

< RETURN >, eingeben. Im 
Anschluß daran werden alle 
Lektionen in den Speicher ge¬ 
laden. Wenn Sie später weitere 
Lektionen anwählen, erfolgen 
keine weiteren Zugriffe auf die 
Diskette. Wenn Sie keine regu¬ 
läre Lektion bearbeiten wollen, 
sondern einen beliebigen 
ASCII-Text üben wollen, 
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drücken Sie statt einer Zahl nur 
die RETURN-Taste und Sie 
werden nach dem Filenamen 
des Textes gefragt. Tippen Sie 
den Namen des gewünschten 
Files ein. Nach dem Ladevor¬ 
gang gelangen Sie wieder ins 
Haupt-Menü. 

< F2 > - Lektion starten 

Je nachdem, ob Sie eine 
Lektion oder einen Übungstext 
geladen haben, hat dieser Me¬ 
nüpunkt den Titel »Lektion xx 
starten« oder »Textübung star¬ 
ten«. Nach Betätigen von 
<F2> werden zunächst eini¬ 
ge Daten aus der Kursdatei ge¬ 
laden und der wichtigste Teil 
des Programms beginnt. 

Auf dem Bildschirm wird ein 
Abbild einer Amiga-Tastatur, 
die an jene des Amiga 500 an¬ 
gelehnt Ist, gezeichnet (Bild 2). 
Die Querlinien mitten Im Ta¬ 
stenfeld sollen am Anfang hel¬ 
fen, alle Tasten mit dem richti¬ 
gen Finger anzuschlagen. Die 
Hilfslinien trennen also den 
»Zuständigkeitsbereich« der 
einzelnen Finger voneinander. 
Die heile Linie in der Mitte stellt 
die Trennung zwischen rechter 
und linker Hand dar. Wenn in 
den Voreinstellungen (<F7>) 
das Zeichnen der Hilfslinien 
nicht angeschaltet ist, sind die¬ 
se natürlich nicht zu sehen. 
Genauso verhält es sich mit 
der Hilfstastatur und der Anzei¬ 
ge der jeweils zu drückenden 
Taste (siehe unten). 

Der Bildschirmaufbau benö¬ 
tigt einige Sekunden, jedoch 
nur beim ersten Aufruf dieses 
Programmteils. Danach Ist die 
Grafik Im RAM gespeichert. 
Ganz oben sehen Sie die Sta¬ 
tuszeile, in der Sie lesen kön¬ 
nen, welche Lektion Sie gera¬ 
de bearbeiten, welche Num¬ 
mer die aktuelle Zeile hat und 
in welchem Teil der Lektion 
(Griff-, Wort- oder Satzübung) 
Sie sich Im Moment befinden. 
Darunter wird die Anzahl der 
Fehler angezeigt, die Sie in der 
aktuellen Zeile gemacht ha¬ 
ben. Noch weiter unten sehen 
Sie in einem farbigen Feld den 
Klartext der jeweiligen Zelle. 
Unter dieser befindet sich ein 
nach oben zeigender Pfeil, der 
auf das Zeichen zeigt, das ein¬ 
getippt werden muß. 

Im unteren Teil des Bild¬ 
schirms befindet sich noch ein 
gelber Kasten, der als Hilfe für 
den Benutzer die möglichen 
Tasten am Zeilenende beinhal¬ 
tet. Ist der Bilschirmaufbau ab¬ 
geschlossen, ertönt ein Sum¬ 
men, das zeigt, daß es losge¬ 
hen kann. Sie müssen nun 
Buchstaben für Buchstaben 
aus der angezeigten Textzeile 
abtippen. Der Pfeil wandert da¬ 
bei von Zeichen zu Zeichen 


mit. Um Sie davon abzuhalten, 
spähende Blicke auf die Com¬ 
putertastatur zu werfen, wer¬ 
den die zu drückenden Tasten 
auf der Hilfstastatur hervorge¬ 
hoben (sofern in der Voreinstel¬ 
lungen diese Funktion aktiviert 
wurde). 

Machen Sie einen Fehler, 
hören Sie einen Piepston und 
der Pfeil verwandelt sich unter 
dem falsch getippten Zeichen 
In ein Ausrufungszeichen (»!«). 
Die Fehleranzeige wird um 
eins erhöht. Tippen Sie nun 
das Zeichen richtig, bekommt 
der Cursor (Pfeil) wieder sein 
normales Aussehen und Sie 
können weitertippen. Am Zei¬ 
lenende angelangt erscheint 
an Stelle des Cursors ein 
Linkspfeil»—« und Sie können 
nun die RETURN-Taste 
drücken, um in die nächste Zei¬ 
le zu gelangen, die ESC-Taste, 
um die Lektion ohne Spei¬ 
chern der Ergebnisse abzubre¬ 
chen oder < * >, um die getipp¬ 
te Zeile nochmals einzugeben. 
In der Gesamtwertung werden 
dann nur jene Fehler, die beim 
weiteren Durcharbeiten der 
Zeile gemacht wurden, be¬ 
rücksichtigt. 

Um die Funktionsweise aus¬ 
zutesten und sich daran zu ge¬ 
wöhnen, sollten Sie einmal ei¬ 
ne Zeile abtippen, am Zeilen¬ 
ende aber nicht die RETURN- 
Taste drücken, sondern 
<ESC>. Schließlich handelte 
es sich nur um einen Versuch, 
und ein Speichern der Ergeb¬ 
nisse ist wohl kaum erwünscht. 

Der Computer 
weiß alles... 

Am Ende jeder Lektion wer¬ 
den die erzielten Ergebnisse, 
sowie allgemeine Angaben zur 
Lektion, am Bildschirm ange¬ 
zeigt (Bild 3) und in die Kursda¬ 
tei gespeichert. So weiß das 
Programm immer, welche Lek¬ 
tion Sie schon durchgearbeitet 
haben, wieviel Fehler Sie da¬ 
bei gemacht haben und wie 
schnell Sie beim Tippen wa¬ 
ren. Genauso ist der Computer 
— und damit auch Sie — stän¬ 
dig im Bilde darüber, wieviel 
prozentual falsch gemacht 
wurde und wie viele Anschläge 
pro Minute Sie erreicht haben. 
Schließlich ist er auch noch 
darüber informiert, ob und wie 
oft Sie einzelne Lektionen wie¬ 
derholt und sich dabei verbes¬ 
sert oder verschlechtert ha¬ 
ben. Erwähnenswert Ist hierbei 
auch die grafische Anzeige 
des Fehlerprozentsatzes. All 
das schauen Sie sich am be¬ 
sten erst an, wenn Sie mit dem 
eigentlichen Kurs ernsthaft be- 


Video-Scape 3D - 
Berechnete Realität 

Mit Video-Scape 3D können Sie 
dreidimensionale Objekte aus 
verschiedenen Blickwinkeln 
betrachten und durch Hinzu¬ 
fügen von Kamerafahrten und 
frei wählbarem Lichteinfall einen 
realistischen Computer-Video¬ 
film erstellen. 
Bestell-Nr. 51671 
DM 385,-* (sFr 345r*/öS 3850,-*) 
Aegis Images - 
Farbenpracht leichtgemacht 
Ein ideales Standard-Zeichenpro¬ 
gramm mit über 4000 Farben. 

Bestell-Nr. 54108 
DM 69,-* (sFr 62r*/öS 690,-*) 
Aegis Animator und Images - 
Bringt Bewegung in Ihre Bilder 
Aegis Animator verbindet drei 
Animationstechniken, damit Sie 
vielseitige Desktop-Video- 
Produktionen auf dem Amiga 
erzeugen können! 
Bestell-Nr. 54109 
DM 249,-* (sFr 225.-7ÖS 2490,-*) 
Aegis Draw 
Ein leicht zu bedienendes 
Zeichenprogramm. 
Bestell-Nr. 54106 
DM 199,-* (sFr 179,-7öS 1990,>*) 
Aegis Draw Plus - CAD: Ein 
Traum wird erschwinglich 
Computerunterstütztes Konstru¬ 
ieren von strukturierten Grafiken. 

Bestell-Nr. 54107 
DM 385,-* (sFr 345,-7öS 3850,-*) 
Aegis Video-Titler - 
Verwandeln Sie Ihren Amiga 
in eine leistungsfähige Titel¬ 
maschine 
Ein Text- und Grafikgenerator. 

Bestell-Nr. 54101 
DM 249,-* (sFr 225,-*/öS 2490,-*) 
Aegis Impact - Verleihen Sie 
Ihrer Präsentation einen Aus¬ 
druck, der Eindruck macht 
Das Desktop-Programm zur 
Erstellung von Präsentations¬ 
grafiken. 
Bestell-Nr. 54104 
DM 149,-* (sFr 135,-*/öS 1490,-*) 
Aegis Sonix - Wetten, daß 
auch Sie mit diesem Pro¬ 
gramm einen Hit schreiben? 
Synthesizer- und Kompositions- 
Programm. 
Bestell-Nr. 54105 
DM 149,-* (sFr 135,-*/öS 1490,-*) 
Aegis AudioMaster - 
Das Tonstudio für den Amiga 
Nachbearbeitung von digitali¬ 
sierten Klängen. 
Bestell-Nr. 54103 
DM 99,-* (sFr 89,-*/öS 990,-*) 
Aegis Diga - 
Der Schlüssel zur modernen 
Datenkommunikation 
Telekommunikationssoftware. 

Bestell-Nr. 54102 
DM 149,-* (sFr 135,-*/öS 1490,-*) 

* Unverbindliche Preisempfehlung 

Markt&Technik-Support: 

Bei User-Registrierung rechtzei¬ 
tige Update-ZUpgrade-lnforma- 
tion und Support-Unterstützung. 
Senden Sie uns bitte Ihre 
Registrierungskarte. 
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Anwendungen 


KeybocU'd Master V2.3 by Robert Kretzschnai' £ 1988 Mai'kt & Technik! 

ENDE von Lektion 1 || 

Ergebnis 


Anschläge: 

uz 



Fehler; 

49 



Fehlerquote: 

1 

7.44 /. 



benötigte Zeit: 

9 Minuten, 35 Sekunden 



Anschläge pro Minute: 

69 



Uiederholung der Lektion: 

keine 



Drücken Sie eine 

Taste 




Bild 3. Die Auswertung gibt Aufschluß über den Lernerfolg Bild 4. Durch das Anlegen einer Kursdatei auf Diskette 
und ihren momentanen Leistungsstand wissen Sie ständig über Ihren »Wissens-Status« bescheid 


ginnen wollen, denn die Bedie¬ 
nung dieses Programmteils er¬ 
klärt sich von selbst. 

<F3> - Übungstext 
eingeben 

Dieses Lernprogramm gibt 
Ihnen nicht nur die Möglich¬ 
keit, fertige Lektionen zu bear¬ 
beiten, es können vielmehr 
auch eigene Texte eingegeben 
werden, die Sie zur Übung ab¬ 
tippen können. Dieser Pro¬ 
grammteil Ist ebenfalls weitge¬ 
hend selbsterklärend. Es bleibt 
nur zu bemerken, daß Sie die 
Eingabe der Zeilen (maximal 
20 Zeilen, je Zeile höchstens 
78 Zeichen) mit einer Leerzeile 
abschlleßen müssen, um ins 
Hauptmenü zu gelangen. Dort 
werden Sie bemerken, daß un¬ 
ter »F2« nun »Textübung star¬ 
ten« angeführt ist. Schließlich 
wollen Sie jetzt Ihren Text bear¬ 
beiten, nicht die Lektion. Das¬ 
selbe gilt beim Laden eines 
Übungstextes (siehe oben). 
<F4> - Lektions-/ 
Übungstext anzeigen 

Über diesen Menüpunkt 
wird der aktuelle Lektionstext 
beziehungsweise der eingege¬ 
bene oder geladene Übungs¬ 
text angezeigt. Dabei fallen 
hier die violetten Zahlen am 
Zeilenanfang auf. Diese zei¬ 
gen an, wie oft jede Zeile abge¬ 
tippt werden muß. 

Bei der Eingabe eines 
Übungstextes wird übrigens 
automatisch eine »1« vor jede 
Zeile geschrieben. Auch wenn 
Sie eine ASCII-Datei laden 
(Menüpunkt 1), wird jede Zelle, 
die nicht mit einer Ziffer be¬ 
ginnt, mit einer »1« am Zeilen¬ 
anfang ergänzt. Bei den Lek¬ 
tionstexten können Sie mit ei¬ 
nem ASCII-EdItor die Anzahl 
der Wiederholungen leicht än¬ 
dern. Beachten Sie jedoch. 


daß nur die erste Ziffer als Wie¬ 
derholungszahl erkannt wird. 
Diesen Programmteil verlas¬ 
sen Sie, indem Sie eine beliebi¬ 
ge Taste betätigen. 

<F5> - Übungstext 
speichern 

Dieser Menüpunkt kann nur 
dann gewählt werden, wenn 
Sie zuvor einen Übungstext 
geladen oder eingegeben ha¬ 
ben. Das Programm fragt Sie 
nach dem gewünschten Flle- 
namen. Wollen Sie den Text 
doch nicht speichern, drücken 
Sie nur < RETURN >. 

<F6> - Auswertung 

In diesem Programmteil wer¬ 
den die Daten, die die Kursda¬ 
tei über die einzelnen Lektio¬ 
nen enthält, angezeigt (Bild 4). 
Lektionen, die noch nicht bear¬ 
beitet worden sind, werden da¬ 
bei dunkel dargestellt. Die an¬ 
gewählte Lektion wird beson¬ 
ders gekennzeichnet. Das Feld 
»Differenz FQ« enthält, wenn 
die Lektion mehr als einmal be¬ 
arbeitet worden ist, die Diffe¬ 
renz des neueren Fehlerquo¬ 
tienten (FQ) zum älteren. Hier 
sehen Sie, ob Sie sich beim 
Wiederholen verbessert oder 
verschlechtert haben. Direkt 
daneben befindet sich eine 
weitere Spalte, die Ihnen noch 
unbekannt ist: Unter »Punkte« 
wird für jede Lektion eine be¬ 
stimmte Zahl angegeben, die 
etwa mit einer Note vergleich¬ 
bar ist. Bei Punktewerten unter 
50 werden dahinter drei Ausru¬ 
fungszeichen geschrieben, 
was bedeutet, daß Sie diese 
Lektion unbedingt wiederho¬ 
len sollten. Werte über 100 sind 
sehr gut. In die Punktwertung 
geht neben einigen anderen 
Faktoren hauptsächlich der 
Fehlerquotient ein. 


<F7> - Voreinstellungen 

Mit <F7> gelangen Sie in 
den Programmteil, in dem Sie 
verschiedene Voreinstellun¬ 
gen (vergleichbar mit Preferen- 
ces der Workbench) ändern 
können. Diese Änderungen 
werden in die Kursdatei ge¬ 
schrieben und bei jedem er¬ 
neuten Laden der Kursdatei im 
Programm berücksichtigt. 

Sie haben sechs Möglichkei¬ 
ten, Einstellungen und damit 
den Programmablauf zu verän¬ 
dern. Es handelt sich dabei um 
»Schalter«, wobei durch Druck 
auf die links neben der jeweili¬ 
gen Bezeichnung stehende 
Zahlentaste zwischen zwei 
Stellungen hin- und herge¬ 
schaltet werden kann. Bei eini¬ 
gen Schalterkombinationen 
nimmt das Programm selb¬ 
ständig Änderungen der Stel¬ 
lungen vor, das heißt es verhin¬ 
dert unlogische Kombinatio¬ 
nen. Kommen wir nun zur Be¬ 
deutung der einzelnen Schal¬ 
ter: 

Wenn Schalter 1 ausge¬ 
schaltet ist, wird die Hilfstasta¬ 
tur nicht mehr angezeigt. 

Schalter 2 ist für die Hervor¬ 
hebung der jeweils zu drücken¬ 
den Tasten auf der gezeichne¬ 
ten Hilfstastatur zuständig. 

Mit Schalter 3 wird be¬ 
stimmt, ob die Textzeile immer 
angezeigt wird oder nicht. Es 
ist sinnvoll, diese auszuschal¬ 
ten, wenn man sich voll auf die 
Griffe und die Hilfstastatur kon¬ 
zentrieren möchte. 

Ist Schalter 4 ausgeschaltet, 
wird das Zeichnen der Hilfsli¬ 
nien auf der Tastatur unter¬ 
drückt, da diese mit der Zeit 
störend wirken können. 

Wenn Sie das automatische 
Wiederholen einzelner Zeilen 
unterdrücken wollen, müssen 


Sie Schalter 5 ausschalten. 
Dies ist dann sinnvoll, wenn 
Sie eine Lektion schon oft be¬ 
arbeitet haben und diese nur 
kurz auffrischen wollen. 

Mit dem sechsten und letz¬ 
ten Schalter wählen Sie 
schließlich das Default-Lauf¬ 
werk (dfO: oder dfl:), das Im¬ 
mer dann verwendet wird, 
wenn bei Filenamen keine 
Laufwerksangabe gesondert 
angegeben wird. Auch die Lek¬ 
tionstexte werden stets von die¬ 
sem Laufwerk geladen. Bitte 
verwechseln Sie diese Einstel¬ 
lung nicht mit dem Default- 
Laufwerk, das Sie vor dem er¬ 
sten Programmstart im LIstIng 
direkt eingestellt haben. Die¬ 
ses Laufwerk gilt nur für die 
Kursdatei, ansonsten hat das 
in diesem Programmteil einzu¬ 
stellende Laufwerk Priorität. 

Mit <ESC> werden even¬ 
tuelle Änderungen in die Kurs¬ 
datei gespeichert und Sie kom¬ 
men zurück ins Hauptmenü. 
ESC - Programm beenden 

Mit < ESC > Im Haupt-Menü 
verlassen Sie das Programm. 

Der Kurs beginnt 

Ich hoffe, Sie haben nun die 
ersten Gehversuche mit 
Keyboard-Master hinter sich 
und brennen darauf, endlich 
den Kurs zu beginnen. 

Dazu greifen Sie zunächst, 
ohne das Programm zu star¬ 
ten, die Grundstellung, die Sie 
in Tabelle 1 (Seite 35) finden. 
Diese Fingerstellung ist sehr 
wichtig, prägen Sie sich diese 
ein und versuchen Sie mehr¬ 
mals, diese zu finden, ohne auf 
die Tastatur zu sehen. 

Sie sollten nun das Pro¬ 
gramm erneut starten und ei¬ 
nen beliebigen Filenamen für 
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AMIGA-SONDERHEFT 2 























Direkt bestellen statt abtippen! 

Die aktuelle Diskette zum Heft: Amiaa~Hardware~5ervice: 


Amiga Sonderheft 2: 

Grafik, Anwendung 

Object-Editon Animierte Figuren, beispielsweise für 
eigene Spiele, entwickeln Sie mit diesem Editor auf komfor¬ 
table Weise. Sogar mit Deluxe Point erstellte Pinsel lassen 
sich einiesen. 

Haushaltsbuch: Mit diesem hervorragenden An¬ 
wendungsprogramm verwalten Sie alle Einnahmen und 
Ausgaben auf übersichtliche Weise. Eine Monats- oder 
Jahresstatistik zeigt, in welchen Bereichen Sie zukünftig 
sparen können. Jetzt haben Sie Ihre Finanzen im Griff. 
Keyboard-Master: bmen Sie im Zehn-Finger-System 
zu tippen. Mit diesem didaktisch ausgereiften Programm 
ist dies kein Problem. Für Programmierer sind sogar Spe- 
zial-lßktionen mit wichtigen Sonderzeichen vorhanden. 
FastLoadCopy: Dieses Tool bringt den DIR-Befehl auf 
Trab. Nach der »Operation« wird das Inhaltsverzeichnis 
einer Diskette im D-Zug-Tempo eingelesen. Zusätzlich 
kopiert das Programm Disketten und versieht diese mit dem 
schnellen Directory. 

Weiterhin befinden sich auf der Diskette alle Programme, 
die im Inhaltsverzeichnis des Amiga-Sonderhefis 2 mit 
einem Diskettensymbol gekennzeichnet sind. 

3 V 2 "-Diskette für Amiga 

Bestell-Nr. 45802 ^ 

DM 29,90 ^Fr 24,90 VöS 299^*) 

* UnverDindliche Preisempfehlung 


Die Wiederbelebung für die 
C 64^Peripherie 

Viele Amiga-Besitzer haben noch einen C64 mit Periphe¬ 
riegeräten zu Hause stehen. Mit ein bißchen Hard- und 
Software können Sie diese zu neuem leben erwecken 
und Ihre Daten so weiterbenutzen. Dabei ist die Bedie¬ 
nung wirklich einfach. 

Der fertig aufgebaute lEC-Handler erlaubt es, alle C64- 
Geröte wie die Floppy 1541 oder 1571, Commodore- 
MPS-Drucker und natürlich auch den C64 (zur Daten¬ 
übertragung) am Amiga zu betreiben. 

Das Gesamtpaket besteht aus der fertig aufgebauten 
Platine mit Verbindungskabel, der Treibersoftware auf 
3V2-Zoll-Diskette sowie einer entsprechenden Dokumen¬ 
tation. v 


Bestell-Nr. 39101 

DM 79 . 


(sFr 71,— ) 

Unverbindliche Preisempfehfung 


VÖS 790,-*) 


Der »lEC-Handler« ist ab November 1988 lieferbar. 
Bestellungen bitte nur gegen Votauskasse bei: 
Markt&Technik Verlag AG 
- Buchverlag - 
lEC-Handler 

Hans-Pinsel-Straße 2, 8013 Haar bei München 
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MoGRiliNiNSERVICE 


Sie suchen hilfreiche 
Utilities und professio¬ 
nelle Anwendungen für 
Ihren Computer? Sie 
wünschen sich gute Soft¬ 
ware zu vernünftigen 
Preisen? Hier finden Sie 
beides! 

Unser stetig wachsendes 
Sortiment enthält interes¬ 
sante Listing-Software 
für alle gängigen 
Computertypen. Jeden 
Monat erweitert sich 
unser aktuelles Angebot 
um eine weitere interes¬ 
sante Programmsamm¬ 
lung für jeweils einen 
Computertyp. 

Bei Fragen zu Bestellung 
und Versand der 
Programmservice- 
Disketten wählen Sie 
bitte: 

Telefon (089) 4613-232. 

Bestellungen bitte nur gegen 
Vorauskasse an; Markt ÄTechnik 
Verlag AG, Unternehmensbereich 
Buchverlag, Hans-Pinsel-Straße 2, 
D-8013 Haar, 

Telefon (089) 4613-0. 

Schv/eiz: MarktÄTechnik 
Vertriebs AG, Kollerstrasse 3, 
CH-6300 Zug, Telefon (042) 

41 5656. 

Österreich: Markt&Technlk 
Verlag Gesellschaft m.b.H., 
Große Neugasse 28, 

A-1040 Wien, Telefon 
(0222)5871393-0, 
Microcomput-ique, E. Schiller, 
Fasangasse 24, A-1030 Wien, 
Telefon (0222) 785661; 
Bücherzentrum Meidling, 
Schönbrunner Straße 261, 

A-1120 Wien, 

Telefon (0222) 833196. 
Ueberreuter Media, 

Verlagsges. mbH (Großhandel), 
Laudongasse 29, A-1082 Wien, 
Telefon (0222) 481543-0. 
Bestellungen aus anderen 
Ländern bitte nur schriftlich an: 
Morkt&Technik Verlag AG, 

Abt. Buchvertrieb, Hons-Pinsel- 
Straße 2, D-8013 Haar. Nur 
gegen Bezahlung der Rechnung 
im voraus. 

Bitte verwenden Sie für 
Ihre Bestellung und 
Überweisung die beige¬ 
heftete Postgiro-Zohlkorte, 
oder senden Sie uns 
einen Verrechnungs¬ 
scheck mit Ihrer Bestel¬ 
lung. Sie erleichtern uns 
die Auftragsabwicklung^ 
und dafür berechnen wir 
Ihnen keine Versand¬ 
kosten. 


Amiga Sonderheft 1: 

Bauen Sie Ihr eigenes Tonstudio 

Digisoft Plus: Die Softwans zu unserem Selbstbau-Digitizer, die 
den Amiga zum digitalen Sound-Studio macht. Das Amiga- 
Tonstudio arbeitet mit vier getrennten Tonspuren und besitzt neben 
der Digitalisierung von Klängen viele weitere Features. So können 
einzelne Spuren oder Telle daraus beliebig gemischt, geschnitten 
oder verbunden werden. Die grafische Ausgabe der digitalisier¬ 
ten Sounds macht die Bearbeitung zum Kinderspiel. 

Suremosch: Ein Strategiespiel der neuen Dimension: Begeben 
Sie sich In eine ferne, fremde Welt und befreien Sie die Bevölke¬ 
rung von bösen Wesen, die den ZeitfluB verlangsamen. 
Dcopy: Ist ein schnelles Kopierprogramm der Extraklasse. 
Neben hoher Geschwindigkeit bietet es die Möglichkeit, bis zu 
drei Kopien in einem Arbeitsgang anzufertigen. 

Biorhythmus: Neben einer sehr schönen grafischen Darstellung 
der Kurven von Körper, Geist und Seele erlaubt das komfortable 
Programm auch die Ausgabe einer Jahresstatistik. Sie erfahren 
alles über Ihre »guten« und »kritischen« Tage. 

3V2''-Diskette für Amiga 

Bestell-Nr. 45801 DM 79,90* sFr 24,90*/öS 299,-* 

Amiga 5/88: 

Vom Spiel zum nützlichen Utility 

Diesmal finden Sie auf unserer Programmservice-Diskette 
wieder ein breites Spektrum an LIstings. Von Spielen über Werk¬ 
zeuge bis zu Anwendungen ist alles vorhanden. 

Kniffei: Ein grafisch gut aufgemachtes Spiel für bis zu vier Teil¬ 
nehmer. Kniffei wird sicher nicht langweilig. Ein Muß für alle 
Glücbspieler. 

Manager: Verschafft Ihnen die Übersicht über Ihre Ausgaben In 
klarer Form und hilft somit Geld sparen. Komfortable Bedienung 
per Maus Ist selbstverständlich. 

CrossRef: Hilft Ihnen beim Analysieren von Programmen. Viele 
wichtige Daten von Basic-Programmen wie labels und Varia¬ 
blen erhalten Sie schwarz auf weiß ausgedruckt. Ein unentbehr¬ 
liches Hilfsmittel für Basic-Programmierer. 

3-D-Tic-Tac-Toe: Ein gutes Auge und einen scharfen Verstand 
brauchen Sie für diese dreidimensionale Spielvariante. 

Recover: Rettet versehentlich gelöschte Dateien von Ihrer 
Diskette. Auch teilweise zerstörte Dateien werden soweit als 
möglich restauriert. 

3V2''-Diskette für Amiga 

Bestell-Nr. 48805 DM 29,90* sFr 24,90*/öS 299,-* 

Amiga 4/88 

3-D^landschaften aus dem Computer 

Froktolberge: Ein Muß für alle Fans von zufallserzeugten Grafi¬ 
ken. Fantastisch einfach In der Bedienung und sehr schnell. 
Transfer: Überträgt Bilder vom C64 auf den Amiga. Mit guter 
Software und leicht nachzubauender Hardware. 

DiskSpy: Direktes Ändern von Daten auf der Diskette Ist mit 
diesem Werkzeug kein Problem mehr. Es stehen viele Befehle 
zur Verfügung. 

ColorChange: Ein Basic-Unterprogramm, mit dem Sie einfach 
und schnell Ihre Wunschfarben auf beliebigen Bildschirmen ein¬ 
stellen können. 

Troof: Ein spannendes Spiel in Basic mit starker Grafik und vielen 
verschiedenen levels. 

3V2''-Diskette für Amiga 

Bestell-Nr. 48804 DM 29,90* sFr 24,90*/öS 299,-* 

Amiga 3/88 

Bildschirmfüllende Boot-BUder 
mit allen Extras 

BootGirl: Fantastische Bilder sofort nach dem Reset. Bis zu 32 
Farben mit Color-Cycling. Die Bilder können auch bildschirm¬ 
füllend ohne Rand sein. Ein absolutes Muß für jeden Amiga- 
Besitzer. 

CassCover: Selbstgedruckte Kassettenhüllen geben Ihnen den 
richtigen Überblick. Einfache Bedienung macht das Eingeben 
und Ausdrucken zur wahren Freude. 

Command: Das Programm ermöglicht die Steuerung des Aztec- 
C-Compilers mit der Maus. Keine langen Eingaben per Tastatur, 
sondern ein einziger Mausklick startet nun die Übersetzung. 


VideoText: Ein unentbehrliches Werkzeug für alle Video-Fans, 
die ihren eigenen Vorspann mit dem Amiga generieren wollen, 
laufbänder, verschiedene Schriften und IFF-Bilder sind nur einige 
Stichpunkte, die das Programm so interessant machen. 
3V2''-Diskette für Amiga 

Bestell-Nr. 48803 DM 29,90* sFr 24,90*/öS 299,-* 

Amiga 12/87 

Super4Copierprogmmm mit viel 
Komfort 

DCopy: Unser Programm des Monats, ein Kopierprogramm, 
das alles bietet, was man sich nur wünschen kann. Einige Fähig¬ 
keiten: Bis zu vier laufwerke werden verwendet, Mehrfach¬ 
kopien, abschaltbares Verify und vieles mehr. 

SpeedHc: Eine sehr schnelle Hardcopyroutine für Schwarz- 
weißausdrucke mit höchster Qualität, leicht an andere Drucker 
anzupassen. 

Sternenhimmel: Ein unentbehrliches Werkzeug für alle Him¬ 
melsbeobachter. Das Programm zeigt alle Sterne und Planeten 
von jedem beliebigen Punkt der nördlichen Hemisphäre. 
Checkie42: Der Checbummer für alle Programmiersprachen 
von Assembler über Basic bis zu C. Ab dieser Ausgabe finden 
Sie bei jedem Listing die Prüfziffern. 

Joy: Ein sehr kurzes und schnelles C-Programm zur Abfrage des 
Joysticks. Es Ist leicht In eigene Programme einzubinden. 
Amiga-Shell: Ein C-Programm, das Komfort ins CLI bringt. 
Editieren der Befehlszeile, Funktionstasten Belegung und Alias¬ 
namen sind nur einige Fähigkeiten dieses fantastischen Pro¬ 
gramms. 

3 V 2 * Diskette für Amiga 

Bestell-Nr. 48705 DM 29,90* sFr 24,90*/öS 299,-* 

Amiga 10/87 

SuperMalprogramme für alle 
Amiga^omputer 

Rainbow-Drawer: Dieses Programm des Monats bietet 
leistungsfähige Befehle und Funktionen, wie sie von professio¬ 
nellen Programmen bekannt sind: bis zu 32 Farben, alle Auf¬ 
lösungen, viele Befehle zum Zeichnen sowie FILL mit Mustern, 
BOW und anderem. 

Turtle: Mit dieser Befehlserweiterung verfügen Sie über die 
Grafikbefehle, die bei bgo bekannt und beliebt sind. 

Fractals: Dreidimensionale, realistische Gebirge mit Schat¬ 
tierung erzeugt dieses Programm. 

Clouds: Genauso wirklichkeitsnah wie die Gebirge, aber noch 
erstaunlicher, sind die Wolken, die Sie mit Clouds generieren. 
Apfelmännchen: Hiermit erzeugen Sie schöne Grafiken aus der 
beliebten Mandelbrot-Ebene. 

Kudiplo: Ein gutes, unverzichtbares Werkzeug für die. Kurven¬ 
diskussion stellt »Kudiplo« dar. 

Senso: Testen Sie mit dieser Computer-Adaption des bekannten 
Spiels Ihr Gedächtnis! 

Division: Bis zu 32000 Nachkommastellen können durch dieses 
Programm berechnet werden. 

Alert: Alarme, zum Beispiel die bekannten Guru-Meditations, 
können Sie nun selbst programmieren. Das Programm Ist in erster 
Linie für C-Programmierer aufschlußreich. 

Border: lassen Sie den Fensterrahmen des CLI-Fensters einfach 
verschwinden! 

SCD: Mit diesem Utility können Sie den Pfadnamen in der Titel¬ 
leiste des Fensters an zeigen. 

3 V 2 " Diskette für Amiga 

Bestell-Nr. 48703 DM 29,90* sFr 24,90*/öS 299,-* 

* Unverbindliche Preisempfehlung 

I Gutscheinen aus dem 

UDlIQBnSI »Super-Software-Scheckheft« für 
DM 149,“ können Sie sechs Software-Disketten Ihrer 
Wahl aus dem Programm-Service-Angebot der Zeit¬ 
schriften 

PC Magazin Happy-Computer-Sonderheft Computer persönlich 

PC Magazin Plus Amiga-Magazin 64'er-Magazin 

Happy-Computer Amiga-Sonderheft 64'er-Sonderheft 

bestellen - egal, ob diese DM 29,90 oder DM 34,90 
kosten. Das Scheckheft können Sie per Verrechnungs¬ 
scheck oder mit der eingehefteten Zahlkarte direkt 
beim Verlag bestellen. 

Kennwort: Software-Scheckheft, Bestell-Nr. 39100. 



A NWENDUNGEN 


Linke Hand: 

a 

kleiner Finger 


s 

Ringfinger 


d 

Mittelfinger 


f 

Zeigefinger 

Rechte Hand: 

] 

Zeigefinger 


k 

Mittelfinger 


1 

Ringfinger 


ö 

kleiner Finger 


Tabelle 1. Die Grundstellung beim Maschineschreiben ist 
die Basis für alie Übungen 


die Kursdatei (etwa Ihren Vor¬ 
namen) eingeben. Wenn Sie 
bei den ersten Versuchen 
schon eine Datei unter diesem 
Namen erstellt haben, geben 
Sie drei Sterne und ein Leer¬ 
zeichen vor dem eigentlichen 
Namen ein, so daß in jedem 
Fall eine völlig neue Kursdatei 
angelegt wird. Nun sehen Sie 
sich die aktuellen Voreinstel¬ 
lungen des Programms mit 
<F7> an. Ändern sollten Sie 
zunächst allerdings nur das 
Default-Laufwerk, um es Ihren 
Gegebenheiten anzupassen. 
Gehen Sie zurück ins Haupt¬ 
menü und drücken Sie < F1 >. 
Dort geben Sie »1« gefolgt von 
< RETURN > ein. Nach dem 
Ladevorgang können Sie die 
Lektion starten. Bitte sehen Sie 
sich aber vorher die folgenden 
zehn Grundregeln (das sollten 
Sie zur besseren Einprägung 
möglichst vor jedem Start einer 
Lektion tun) an: 

1. Arbeiten Sie möglichst regel¬ 
mäßig mit dem Programm. 

2. Bearbeiten Sie an einem Tag 
nur eine Lektion. 

3. Wiederholen Sie jede Lek¬ 
tion am besten mindestens ein¬ 
mal. 

4. Lassen Sie sich nicht von an¬ 
fänglichen Schwierigkeiten 
entmutigen. 

5. Greifen Sie die Grundstel¬ 
lung jedesmal blind. 


6. Sehen Sie nie auf die Tasta¬ 
tur, orientieren Sie sich an der 
Hilfstastatur am Bildschirm. 

7. Der Anschlag erfolgt kurz 
und ruckartig aus dem Muskel 
heraus. 

8. Gehen Sie nach jedem An¬ 
schlag schnell In die Grund¬ 
stellung zurück. 

9. Tippen Sie langsam, aber 
gleichmäßig im Takt. 

10. Halten Sie die Handgelen¬ 
ke möglichst hoch. Die Hand 
darf nicht flach auf der Tastatur 
liegen, sie muß angewinkelt 
sein. 

11. Es kann nicht schaden, 
wenn Sie Ihre Finger mit einer 
speziellen Gymnastik trainie¬ 
ren. 

Noch ein Hinweis zu Lektion 
12: Beachten Sie, daß eine zu 
»shiftende« Taste, die sich im 
rechten Teil der Tastatur befin¬ 
det, immer zusammen mit der 
linken SHIFT-Taste (und umge¬ 
kehrt) angeschlagen wird. Das 
Programm unterstützt Sie da¬ 
bei, indem immer die richtige 
zu drückende SHIFT-Taste 
hervorgehoben wird. 

Haben Sie sich all dies zu 
Herzen genommen, kann es 
losgehen: Drücken Sie <F2> 
und tippen Sie nun alie Zeilen 
der Lektion ein. Schließen Sie 
jede Zelle mit < RETURN > 
ab. Werden Sie nicht bei jedem 
Fehler nervös. Errare huma- 


num est! (lat.: Irren ist mensch¬ 
lich!) Bleiben Sie konzentriert 
und denken Sie daran, daß die 
ersten Lektionen die schwie¬ 
rigsten sind. 

Sind Sie mit der Lektion fer¬ 
tig, werden Ihnen die Ergebnis¬ 
se gezeigt. Hinter Fehler, Feh¬ 
lerquotient und Anschläge pro 
Minute stehen je zwei Zahlen, 
jedoch nur dann, wenn Sie die 
Lektion insgesamt mindestens 
zweimal bearbeitet haben. Die 
zweite Zahl stellt jeweils die 
Differenz zum Ergebnis des 
letzten Mais dar. Die Anzeige 
der Anschläge je Minute soll¬ 
ten Sie bei den ersten Lektio¬ 
nen einfach übersehen. Sie 
sind beim Lernen völlig un¬ 
wichtig und werden in der 
Punktewertung kaum berück¬ 
sichtigt. Wichtig Ist, daß Sie 
möglichst gleichmäßig tippen 


und wenige Fehler machen. 
Wenn Sie nun vom Haupt¬ 
menü mit <F6> die Auswer¬ 
tung aufrufen, können Sie sich 
die erreichte Punktzahl anse- 
hen. Sie sollten diese jedoch 
nicht mit Schulnoten verglei¬ 
chen. Denken Sie daran, daß 
Sie hier völlig ohne Druck ler¬ 
nen. Die Punkte und auch die 
Tippgeschwindigkeit sollen Ih¬ 
nen vor allem als Vergleich die¬ 
nen, wenn Sie schon einige 
Lektionen hinter sich haben. 
Punktwerte unter »50« sind je¬ 
doch ein Warnzeichen dafür, 
daß Sie diese Lektion wieder¬ 
holen müssen. Wenn Sie mehr 
als »80« Punkte erreichen, kön¬ 
nen Sie sehr zufrieden sein, 
Werte über »100« oder gar über 
»120« sind sehr gut. 

(Robert Kretzschmar/ 
M. Jobst/rs) 



Profilaufwerke für Ihren A MIG A! 

2 Jahre Garantie, 14 Tage Umtauschrecht, professionelle 
Leiterplatten, fast alle ICs gesockelt, Bedienungsanleitung, 
auf Wunsch vollständiges Manual mit allen Daten 
zu den Laufwerken lieferbar, 2tägiger Liefer-Rhythmus. 

Für alle Laufwerke gilt: 

- voll kompatibel zur vorhandenen Soft- und Hardware, 

- komplett anschlußfertig, 

- amigafarbenes Metallgehäuse, 

- abschaltbar (intelligente Abschaltung), 

- Kapazität 880 KB, 

- korrekte LED-Ansteuerung, 

- erkennen Disk-Change, 

- kein separates Netzteil nötig (Stromversorgung über AMIGA) 

- an alle AMIGA-Modelle anschließbar. 

Für unsere 5.25''-Laufwerke gilt zusätzlich: 

- TEAC-Laufwerke auf Wunsch umschaltbar 40/80 Tracks 

Alle Laufwerke sind auch mit Busdurchführung lieferbar und sind 
dann mit einer automatischen Laufwerkserkennung ausgestattet, 
so daß beim Anschluß eines weiteren Laufwerkes an unser Lauf¬ 
werk das Fremdlaufwerk auf die nächsthöhere Laufwerksadresse 
als unser Laufwerk gesetzt wird. Aufpreis: 25,- DM 


SDN a5"-1037A 249,- 

zusätzlich: - Superslimline, nur 25,4 mm hoch 

- nur noch 5V Spannungsversorgung 

- sehr niedriger Stromverbrauch 


SDN aS"Digital-1037A 289,- 

zusätzlich: - durchgeführter Bus bis dfS: mit 
automat. Laufwerkserkennung 
^ Digitale Trackanzeige mit 
Helligkeitsregulierung 


SDN a25"-TEACFD55FR299,- 

zusätzlich: - schwarze Frontblende 

- unformatiert 1 MB Kapazität 


SDN a25''-NEC1157C 299,- 

zusätzlich: - helle Frontblende 

- Diskettenauswurf durch Feder 

- unformatiert 1,67 MB Kapazität 


SDN 5.25"-TEACFD55GFR309,- 

zusätzlich: - helle Frontblende 

- unformatiert 1,67 MB 


SDN 5.25" Digital 339,- 

zusätzlich: - durchgeführter Bus bis df3: mit 
automat. Laufwerkserkennung 
- Digitale Trackanzeige mit 
Helligkeitsregulierung 

SONDERAKTION NUR SOLANGE VORRAT REIGHTI 

SDN a5"- 1036 A 229,- 

komplett anschlußfertig für alle Amigas 


SDN a5" intern 199,- 

- für Einbau in A2000 

- komplett mit Einbauanleitung 
und Montagematerial 

- helle Frontblende 


Rohlaufwerke 

(unmodifiziert, ohne Gehäuse u. Kabel): 


NEC 1036A 

195,- 

NEC 1037A 

195,- 

NEC 1157C 

229,- 

TEAC FD 55 FR 

229,- 

TEAC FD 55 GFR 

229,- 

Gehäuse (necio36, iost) 

19,- 

Gehäuse (nec 1157 , teac fd 55) 

22,- 

AMIGA 2000 & 1084 

2350,- 

XT-Karte 

890,- 

NEC P2200 

879,- 

NEC P6 

1199,- 

Star LC10 

649,- 

Star LCIO Color 

750,- 

Mitsubishi EUM-1481A 

1499,- 

NEC Muitisync II 

1599,- 

Ftotplatte 30 MB - 5.25' 

849,- 

- für A2000 intern 

Festplatte 20 MB - 3.5'' 

949,- 

- für A2000 intern 

Festplatte 30 MB - 3S' 

1049,- 

- für A2000 intern 

Festplatte 30 MB 

949,- 

- für A500/1000 extern 

OMTI-Controller 5520 

179,- 

OMTI-Controller 5527 

199,- 

SCSI/ST 506-Controller 

449,- 

ST 238 HD 30 MB 

549,- 

ST 225 HD 20 MB 

529,- 

SCSI-D5126 HD 25 MB 

699,- 

Bootselektor 

19,- 

Farbband NEC P6 

17,- 

l^rbband NEC P2200 

17,- 


WIR FÜHREN QÜNSTIQ 
UND SCHNELL REPARATUREN AN ALLEN 
AMIQA-MODELLEN AUS. 


Stalter Computeiiiedarf ■ Gartenstr. 17 ■ 6670 St. Ingbert' Tel. 06894/35231 




Orafik-tools 

Bilder 

lernen 

laufen 

Filmen ist ein tolles Hobby. Wußten Sie 
schon, daß Sie die Ausrüstung 
für Computer-Movies bereits besitzen? 
Sie benötigen nur noch diese 
Listings, um den »Videorecorder« in 
Ihrem Amiga zu starten. 
Zusätzlich erhalten Sie die nötigen 
Basis-Informationen 
zur Animation von IFF-Bildern. 


V ielleicht kennen Sie die 
Programme »Videosca¬ 
pe 3D« oder »Animate 
3D«. Mit diesen lassen sich 
Animationen recht gut erstel¬ 
len. Wer allerdings selbst ge¬ 
malten Einzelbildern zur Be¬ 
wegung verhelfen will, ist mit 
unserem Projekt besser be¬ 
dient. 

Zum Animieren Ihrer selbst 
erstellten Bilder benötigen Sie 
nur drei Dinge: 

1. Ein Malprogramm, das Ihrer 
Kreativität freien Lauf läßt und 
die so entstandenen Einzelbil¬ 
der der Animation im IFF- 
ILBM-Format abspeichern 
kann (z.B. »Deluxe Paint II«, 
»Photon Paint«, »Digi Paint«). 

2. »Play« und »Anim«. Dies sind 
die beiden Programme, mit de¬ 
nen Sie fortan Ihren Amiga 
zum »Videorecorder« umge¬ 
stalten. 

3. Etwas Geduld, da das Erzeu¬ 
gen der Animationsdateien 
mitunter viel Zeit in Anspruch 
nehmen kann. 

Bevor wir Sie nun mit der Be¬ 
dienung der Programme 
»Play« und »Anim« (Listing 1 
bis 4) vertraut machen, vorab 
ein wenig Theorie zum Thema 
Animation. 

Eine Animation setzt sich 
aus einer bestimmten Anzahl 
von Einzelbildern zusammen. 
Die einfachste Möglichkeit die¬ 
se in Bewegung zu setzen wä¬ 


re, die Bilder der Reihe nach in 
den Bildschirmspeicher zu la¬ 
den. Da hier ständig auf Disket¬ 
te zugegriffen wird und zusätz¬ 
lich die IFF-Bilder noch ent¬ 
packt werden müßten, würde 
dieser Vorgang zu lange dau- 

Von »Diashows« 
und 

»Page Flipping« 

ern — die Animation ist dann 
nicht mehr fließend und hätte 
wohl doch eher das Attribut 
»Diashow« verdient. 

Weiter könnte man sämtli¬ 
che Bilder erstmal in den Spei¬ 
cher laden und gleichzeitig 
entpacken, um den Disketten¬ 
zugriff zu minimieren und Re¬ 
chenzelt zu sparen. Diese Me¬ 
thode wird auch als »Page Flip¬ 
ping« bezeichnet und ist natür¬ 
lich äußerst schnell, solange 
die Bilder im Chip-Memory lie¬ 
gen. Wenn man allerdings be¬ 
denkt, daß eine vier Bitplanes 
»tiefe« und 320 x 256 Pixel 
große LoRes-Grafik 40 KByte 
Speicher benötigt, sind die 
Animationen bei einem Amiga 
mit 512 KByte Speicher leider 
nur sehr kurz. Es wird also sehr 
viel Speicher vorausgesetzt. 
Bei längeren Filmen müßte das 
Fast-Memory benutzt werden, 
auf das aber von den Custom- 
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Chips nicht zugegriffen werden 
kann. Demnach können die 
Bitmaps auch nicht im Fast- 
Memory liegen — die Bilder 
müßten per Prozessor zuerst 
»herunter kopiert« werden. 
»Page Flipping« sollte dann 
vielleicht eher als »Page Copy- 
ing« bezeichnet werden. Eine 
längere Animation wäre aber 
trotz des Kopieraufwandes 
noch fließend. Bel einem 
Rechner mit großem Speicher¬ 
platz Ist das »Page Flipping« 
daher noch zu vertreten. 

Das nächste 
Bild bitte 

Werden nun zwei aufeinan¬ 
derfolgende Einzelbilder eines 
Films verglichen, stellt man oft 
fest, daß diese sich sehr ähn¬ 
lich sind. Änderungen von Bild 
zu Bild betreffen demnach nur 
bestimmte Teile der Grafik. Es 
ist daher naheliegend, sich bei 
einer Animation nicht jedes 
Bild, sondern nur dessen Un¬ 
terschied zu seinem Vorgän¬ 
ger zu merken. 

Eine Ausnahme ist natürlich 
das erste Bild der Animation. 
Dieses hat keinen Vorgänger 
und muß daher vollständig vor¬ 
handen sein. 

Das zuletzt beschriebene 
Verfahren nennt man »Delta- 
Animation«. 

Das 

IFF-ANIM-File 

Wir wissen jetzt, wie unser 
Projekt optimal arbeitet. In die¬ 
sem Moment greift unser Pro¬ 
gramm »Anim« ein: Es ver¬ 
knüpft sozusagen die Bilder¬ 
kette zu einem einzigen File. 
Die entstandene Datei hält sich 
dabei an den von Aegis defi¬ 
nierten IFF-ANI M-Standard. 
Wie bei IFF-Datelen üblich, 
werden die Informationen In 
entsprechenden »Chunks« un¬ 
tergebracht. Die Profis kennen 
diesen Begriff sicher und wis¬ 
sen auch, was dahintersteckt. 
Für die weniger erfahrenen 
Amiga-Anwender sei hier nur 
erklärt, daß Chunks Standard- 
Informationsblöcke sind, mit 
denen Grafiken untereinander 
kompatibel bleiben. So existie¬ 
ren für die Differenzdaten der 
Bilder zwei Chunks, wobei der 
eine (DELTA-Chunk) die ei¬ 
gentlichen Daten enthält und 
der andere (ANHD) Aufschluß 
über das verwendete Kom¬ 
pressionsverfahren gibt. 
»Anim« erledigt all dies von al¬ 
leine, so daß Sie sich nicht um 
lästige Details kümmern müs¬ 
sen. 


Fließende 
Bewegungen 
durch »Double 
Buffering. 

Beim Abspielen eines Films 
werden normalerweise zwei 
Bitmaps zur Darstellung der 
bewegten Grafik verwendet. 
Die eine wird zum Anzeigen 
auf dem Bildschirm und die an¬ 
dere zum Aufbauen des neuen 
Bildes im Hintergrund verwen¬ 
det. Man verhindert so Störun¬ 
gen, die beim gleichzeitigen 
Verändern und Anzeigen einer 
Grafik entstehen. 

...und 

»interleave 2« 
zum schnelleren 
Abspielen 

Nun wird es ein wenig kom¬ 
pliziert. Um das Abspielen ei¬ 
ner Animationsdatei zu verste¬ 
hen, sollten Sie Immer folgen¬ 
de Grundsätze beachten: 

1. Die Displaybitmap ist Immer 
die, die gerade angezeigt wird. 

2. Die Arbeitsbitmap ist diejeni¬ 
ge, die gerade nicht angezeigt 
wird. Diese Bitmap kann also 
manipuliert werden (Double 
Buffering). 

3. Soll das Folgebild anhand 
der Differenzdaten korrekt er¬ 
mittelt werden, so muß in der 
Arbeitsbitmap genau die erste 
der beiden Grafiken vorliegen, 
die auch Vorlagen, als die Dif¬ 
ferenzdaten erzeugt wurden. 
Nur so entspricht das Folgebild 
dem Bild, das beim Vergleich 
das zweite war. 

4. Das Umschalten von einem 
Bild zum nächsten kann nur in¬ 
nerhalb der vertikalen Austast¬ 
lücke geschehen. 

5. Nach dem Umschalten wird 
die Displaybitmap zur Arbeits¬ 
bitmap und umgekehrt. 

Versuchen wir einmal, den 
Abspielvorgang nachzuvoll¬ 
ziehen. Es sei gerade ein Fol¬ 
gebild in der Arbeitsbitmap fer¬ 
tiggestellt. Demnach ist dieses 
Bild von der Reihenfolge her 
das Letzte. Wäre die Bilderket¬ 
te durchnumeriert, so hätte es 
eine höhere Nummer, nennen 
wir sie einfach »n«. Nun wartet 
unser Amiga auf die Austast¬ 
lücke. Nach deren Erreichen 
wird die Arbeitsbitmap zur 
Displaybitmap. Die alte Dis¬ 
playbitmap, deren Grafik nach 
Erreichen der Austastlücke 
mindestens einmal vom Moni¬ 
tor dargestellt wurde, wird nun 
zur neuen Arbeitsbitmap. Das 
Bild in unserer jetzigen Ar¬ 


beitsbitmap hat demnach auch 
eine niedrigere Nummer, also 
n-1. 

Wir möchten nun in dieser 
Arbeitsbitmap das nächste 
Bild erzeugen, dessen Num¬ 
mer ja n+l sein muß, da n sich 
gerade in der Displaybitmap 
befindet und demnach schon 
fertiggestellt ist. Gehen wir da¬ 
von aus, daß bei der Bildung 
der Differenzdaten zwei direkt 
einander folgende Bilder dien¬ 
ten, also Bild n und Bild n+1 
oder Bild n-1 und n, so muß 
sich nach Grundsatz 3 In unse¬ 
rer momentanen Arbeits¬ 
bitmap Bild n befinden, um mit 
den kommenden Differenzda¬ 
ten Bild n+1 zu erzeugen. Es 
liegt aber nun Bild n-1 vor. Jetzt 
gibt es zwei Möglichkeiten: 
Entweder wird Bild n aus der 
Displaybitmap in die Arbeits¬ 
bitmap kopiert oder aber die 
Differenzdaten werden aus Bil¬ 
dern gebildet, die um zwei Ein¬ 
zelbilder auseinanderliegen 
(z.B. Bild n-2 und n oder Bild 
n-1 und n+1). Das Auseinan¬ 
derliegen der Einzelbilder wird 
auch als Interleave bezeichnet. 
In den IFF-ANIM-Files verwen¬ 
det man im allgemeinen einen 
Interleave-Faktor von 2, da so¬ 
mit ein Kopiervorgang wegfällt. 
Eine Ausnahme stellen Bild 1 
und 2 dar, da Bild 1, wie schon 
erwähnt, als vollständige Gra¬ 
fik vorhanden sein muß und für 
das zweite noch kein um zwei 
Einzelbilder zurückliegendes 
Bild vorhanden Ist. 

Der 

CONTINOUS- 

Play-Mode 

Bei manchen Animationen 
kommt es vor, daß das erste 
und letzte Bild identisch sind. 
In diesem Fall ist es nicht mehr 
notwendig, die Anfangsgrafik 
vollkommen neu aufzubauen, 
wie es beim Start der Anima¬ 
tion notwendig war. Diese liegt 
nun in identischer Form sowie¬ 
so Im Speicher vor. Mit ande¬ 
ren Worten: Bei einem zweiten 
Durchlauf erhalten wir nur 
dann einen fließenden Über¬ 
gang, wenn Start* und Endgra¬ 
fik vollkommen übereinstim¬ 
men. Ist diese Bedingung nicht 
gegeben, so wird die Anima¬ 
tion als »NON-CONTINOUS« 
bezeichnet. 

Wie oben schon erläutert, 
wird im IFF-ANIM-Standard ein 
Interleave-Faktor von 2 be¬ 
nutzt. Konsequenterwelse ge¬ 
nügt es dann nicht, für eine 
CONTINOUS-Animation nur 
Start- und Endbild gleich zu 
lassen, sondern es müssen die 


ersten und letzten beiden Bil¬ 
der identisch sein, da beim 
Start unseres Films ja bereits 
zwei Bilder als Grafikunterlage 
dienen (liegen n Bilder vor, so 
müssen 1 und n-1 sowie 2 und 
n übereinstimmen). 

Die Anwendung: 
»ANIM« 

Unsere beiden Programme 
»Play« und »Anim« können nur 
vom CLI aus bedient werden. 
Am besten kopieren Sie diese 
Tools In den c-Ordner oder in 
das aktuelle Verzeichnis. Wie 
schon erwähnt, dient »Anim« 
zur Erstellung eines IFF- 
Animationsflles. Ein Aufruf 
könnte so aussehen: 

anim dfOibild dfl: 
output.an im 

Der Parameter »dfO:bild« be¬ 
zeichnet die Bilderkette. Nach 
Programmstart versucht »An¬ 
im«, das File »df0:blld1.pic« zu 
öffnen. Ist die Suche erfolg¬ 
reich verlaufen, erscheint ein 
Screen und die Bilddaten wer¬ 
den eingelesen und angezeigt. 

Anschließend wird nachein¬ 
ander auf die Bilder »dfO:bild 
2.pic«, »df0:blld3.plc« bis zum 
letzten vorhandenen Bild der 
Kette zugegriffen. 

Gleichzeitig werden die da¬ 
bei anfallenden Differenzdaten 
In das File »df1:output.anim« 
geschrieben. Sollten die Re¬ 
geln des IFF-Standards beim 
Einlesen eines Bildes nicht be¬ 
achtet worden sein oder sind 
sonstige Fehler aufgetreten, 
wie zu wenig Speicher, wird die 
Routine abgebrochen. 

Leider Ist eine Diskette mit 
880 KByte schnell voll — be¬ 
sonders, wenn die Animation 
aus HIres-Graflken besteht. 
Um diesen Engpaß zu umge¬ 
hen, kann »Anim« noch wäh¬ 
rend des Arbeitens mit einem 
Malprogramm im Multi¬ 
tasking-Betrieb aufgerufen 
werden. Geben Sie einfach 
»run anim« vom CLI aus ein, 
nachdem das Malprogramm 
Ihrer Wahl bereits gestartet 
wurde. Es wird dann ein Fen¬ 
ster geöffnet, mit dessen Hilfe 
Sie sich einen Screen aus der 
Liste der gerade vorhandenen 
aussuchen können. Im Nor¬ 
malfall wird dies der Screen Ih¬ 
res Malprogrammes sein. An¬ 
hand der gezeigten Parameter 
können Sie leicht sehen, wel¬ 
ches der richtige Grafikhinter¬ 
grund ist. Das »First«-Gadget 
zeigt den ersten, das »Next«- 
Gadget den nächsten Screen 
der Liste an. Mit »OK« bestätigt 
man schließlich seine Wahl 
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und es wird ein weiteres Fen¬ 
ster geöffnet. Dieses Fenster 
ermöglicht die Erstellung des 
Animationsfiles und »klaut« 
sich die Grafiken sozusagen 
aus dem gerade ausgewählten 
Screen, 

Da dieses Fenster im 
Workbench-Screen geöffnet 
wird, muß immer zwischen die¬ 
sem und Ihrem Arbeitsscreen 
umgeschaltet werden. Dieses 
erreichen Sie am einfachsten 
mit <Amlga-N> und 
<Amiga-M>. 

Erstellung mit 
Deluxe Paint 

Nehmen wir an, bei Ihrem 
Malprogramm handelt es sich 
um »Deluxe Paint II«. Entwer¬ 
fen Sie nach Belieben das er¬ 
ste Bild des Films. Klicken Sie 
nun das »Save Next Frame«- 
Gadget an, um das erste Ein¬ 
zelbild zu speichern. Danach 
erscheint ein File-Requester, 
der die Auswahl des zu erzeu¬ 
genden Animationsfiles er¬ 
möglicht. Ist dies geschehen. 


werden die Grafikdaten in die¬ 
ses File geschrieben. In der Ti¬ 
telzelle unseres Fensters er¬ 
scheint dann »Working...Plea- 
se Walt.«. Sie sollten dann war¬ 
ten, bis der Amiga seine Arbeit 
erledigt hat. Nach jedem weite¬ 
ren erstellten Einzelbild wird 
wieder »Save Next Frame« be¬ 
tätigt, so daß jeweils immer die 
Differenzdaten im Output-File 
untergebracht werden können. 
Sind Sie der Meinung, das letz¬ 
te Bild gemalt zu haben, wird 
mit »Finish« der Vorgang been¬ 
det und unser Animationsfile 
geschlossen, was unter keinen 
Umständen vergessen werden 
sollte! Weiter sollten Sie zwei 
Punkte unbedingt beachten, 
um sich Enttäuschungen zu er¬ 
sparen: 

1. Es wird genau das gespei¬ 
chert, was auf dem Arbeits¬ 
screen zu sehen ist, bei »Delu¬ 
xe Paint II« also möglicherwei¬ 
se auch die Titelzelle und die 
Bedienungs-Gadgets auf der 
rechten Seite. Diese sind mit 
<F10> auszublenden (dies 
gilt natürlich nicht unbedingt 
für andere Malprogramme). 
Auch ein Pinsel (brush), der 


gerade in Gebrauch ist und mit 
der Maus auf der Arbeitsgrafik 
entlangfährt, kann möglicher¬ 
weise mit im angelegten File 
(outputflle) landen. 

2. Während In unserem Fen¬ 
ster die Meldung »Wor¬ 
king...Please wait.« zu sehen 
ist, dürfen im Arbeitsscreen 
keinerlei Änderungen vorge¬ 
nommen werden! Beachten 
Sie dies nicht, werden die Dif¬ 
ferenzdaten falsch ermittelt 
und die Chunks unseres Ani¬ 
mationsfiles erhalten fehler¬ 
hafte Längen. Bei »DPaint II« 
müßte daher beispielsweise 
darauf geachtet werden, daß 
schon durch leichte Mausbe¬ 
wegungen, zum Beispiel bei 
einem aktivem Brush, keine 
Manipulation der Grafik ent¬ 
steht. Dies gilt auch, wenn die 
Workbench im Vordergrund 
dargestellt wird! 

Dieses Verfahren erscheint 
anfangs äußerst unkomforta¬ 
bel. Wer aber jedes Bild spei¬ 
chern möchte, um es nachträg¬ 
lich noch verändern zu kön¬ 
nen, kommt bei langen Anima¬ 
tionen um eine Festplatte nicht 
herum. 


Spielereien 
mit »Play« 

Ist der Film nun endlich in ei¬ 
ner Datei untergebracht, kön¬ 
nen Sie mit unserem »Anim 
Player« das Ganze zum Leben 
erwecken. Nach dem oben er¬ 
klärten Beispiel müßte »play 
df1 :output.anim« eingegeben 
werden. 

Der digitale Film wird dann in 
den Speicher eingelesen — 
sofern er sich an die IFF- 
Konventlonen hält und genug 
Speicher vorhanden Ist und 
einmal abgespielt. Wem das 
zuwenig ist, der kann mittels 
»play -L df1:output.anim« den 
Film In einer Endlosschleife 
laufen lassen. Das gilt auch bei 
der Eingabe von »play -C 
df1:output.anim«, nur sollte es 
sich bei »output.anim« dann 
um eine Continuous-Anima- 
tlon handeln (siehe oben). 

Letztendlich kann der Trick¬ 
film mit der linken Maustaste 
angehalten und mit der rech¬ 
ten unterbrochen werden, so 
daß Sie sich wieder im CLI be¬ 
finden. (Christian Wolf/rs) 


Sie benötigen zu den hier abgedruckten Listings noch das 
Programm »mydir.c«, das wir im Amiga-Sonderheft 1 bereits 
auf der Seite 63 veröffentlicht haben. Sollten Sie nicht Im Be¬ 
sitz dieses Heftes sein, dann können Sie es bei der Redak¬ 
tionsassistenz (siehe Impressum) anfordern. Auf der Pro¬ 
grammservice-Diskette Ist »mydir.c« enthalten. 


Programmname: anim.c 


1 CVO 

#define OK 1 


2 a2 

#define NEXT 3 


3 r3 

#4efine FIRST 4 


4 7t 

#define PLAY 5 


5 6f 

#define SAVE 6 


6 GW 

#define FINISH 7 


7 am 

#define BUFFERSIZE 4000 


8 nr 

#define NextLong ReadLongWord(MyFile) 

9 rh 

#define MAKE_ID(a,b,o,d) ( (long)(a)<<24 ] (long)(b)< 

<16 ] (o)<<8 ] (d) ) 

10 QJ 

#define NOTITLE NULL 


11 g7 

#define FORM MAKE_ID('F', »0', 'R', 

'M') 

12 6G 

#define ILBM MAKE_ID('I‘, 'L', 'B', 

'M') 

13 PC 

#define BMHD MAKE_ID('B', 'M', 'H', 

'D') 

14 fe 

#define CMAP MAKE_ID('C', 'M', 'A', 

'P') 

15 AP 

#define BODY MAKE_ID('B', '0', 'D', 

'Y') 

16 Vv 

#define GRAB MAKILID^G', 'R', 'A', 

'B') 

17 Is 

#define DEST MAK^ID^D', 'E', 'S', 

'T') 

18 df 

#define SPRT MAKE_ID('S', 'P', 'R', 

'T') 

19 xc 

#define CAMG MAKE_ID('C', 'A', 'M', 

'G') 

20 og 

#define CRNG MAKE_ID0C', 'R', 'N', 

'G') 

21 GP 

#define CCRT MAKILIDOC', 'C', 'R', 

'T') 

22 Y6 

#define DPPV MAKE_ID('D', 'P', 'P', 

'V') 

23 mL 

struct BitMapHeader 


24 8V9 

UWORD w, h; 


25 q8 

UWORD X, y; 


26 Eu 

UBYTE Planes; 


,27 Oa 

UBYTE masking; 


*28 il 

UBYTE compression; 


29 Lt 

UBYTE padl; 


30 PD 

UWORD transparentColor; 


31 uZ 

UBYTE xAspect, yAspect; 


32 Rn 

WORD pageWidth, pageHeight; 



Programmname: 

anim.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Compiler: 

Aztek-C V3.6 

Aufrufe: 

cc +\ -s +idmp anim.c 

00 


34 ePO struct BitMapHeader BitMapHeader; 

35 8p char ColorMap[192]; 

36 ic char ^BodyChunk; 

37 II unsigned long BodySize; 

38 HM struct NewScreen NewSl = [ 

39 ss7 0,0,0,0,0,0,0,0,CUST0MSCREEN,NULL,NOTITLE,0 ] ; 

40 5e0 struct Screen »MyScreen; 

41 pv BOOL first_body=FALSE; 

42 3t USHORT MyLines[] = ( 0,0,69,0,69,11,0,11,0,0 ) ; 

43 Ih USHORT PlayLines[] = ( 0,0,119,0,119,11,0,11,0,0 ]; 

44 OZ USHORT SaveLines[] = [ 0,0,127,0,127,11,0,11,0,0 ) ; 

45 xb USHORT FinishLines[] = [ 0,0,55,0,55,11,0,11,0,0 ] ; 

46 IL struct Border MyBorder = { 0,0,l,3,JAM2,5,&MyLines,NULL ]; 

47 Ny struct Border PlayBorder = ( 0,0,l,3»JAM2,5,&PlayLines,NUL 

L]; 

48 MU struct Border SaveBorder = [ 0,0,l,3,JAM2,5,&SaveLines,NUL 

L }; 

49 EE struct Border FinishBorder = ( 0,0,l,3,JAM2,5,&FlnishLines 

,NULL ]; 

50 bK struct IntuiText TextNext = [ 1,0, JAM2,20,3,NULL,'T^ext'',NU 

LL I ; 

51 ex struct IntuiText TextFirst = [ 1,0,JAM2,16,3,NULL, "First'", 

NULL ); 

52 Gw struct IntuiText TextOk = ( 1,0,JAM2,28,3,NULL,"Ok",NULL ] 

i 

53 z2 struct IntuiText TextPlay = [ 1,0,JAM2,3>2,NULL,"Play Anim 

ation",NULL ] ; 

54 dO struct IntuiText TextSave = [ 1,0,JAM2,3,2,NULL,"Save Next 

Frame",NULL j ; 

55 zB struct IntuiText TextFinish = { 1,0,JAM2,3,2,NULL,"Finish" 

,NULL ]; 

56 mX struct Gadget GGNext = ( NULL,85,50,70,12,GADGHC0MP,RELVER 

IFY, 

Listing 1. »anim.c« erzeugt aus Grafiken bewegte Bilder. 
Bitte mit dem Checksummer (Seite 159) eingeben. 
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129 E2 RectFill(ThisRastPort,2,10,237,45); 

130 Ic SetDrMd(ThisRastPort,JAM2); 

131 DO SetAPen(ThisRastPort,l); 

132 Me Move(ThisRastPort,7,20); 

133 b3 Text(ThisRastPort,^es: ^,5); 

134 ri itoa(ThisScreen->Width,MyBuffer); 

135 lU Text(ThisRastPort,MyBuffer,strlen(MyBuffer)); 

136 uj Text(ThisRastPort, X ",3); 

137 uk itoa(ThisScreen->Height,MyBuffer); 

138 LX Text(ThisRastPort,MyBuffer,strlen(MyBuffer)); 

139 qJ Move(ThisRastPort,130,20); 

140 Oa Text(ThisRastPort, Depth: *',7); 

141 Bd itoa(ThisScreen->RastPort.BitMap->Depth,MyBuffer); 

142 Pb Text(ThisRastPort,MyB\iffer,strlen(MyBuffer)); 

143 fO Move(ThisRastPort,7,32); 

144 Zg Text(ThisRastPort,*'Title: ',7); 

145 lE if (ScreenName) Text(ThisRastPort,ScreenName,strlen(Scree 

nName)); 

146 hX eise Text(ThisRastPort,''untitled'',8); 

147 rF Move(ThisRastPort,7,44); 

148 sg Text(ThisRastPort,'^ode: ",6); 

149 4C if (Modes & HIRES) Text(ThisRastPort, TiIRES',5); 

150 XC eise if (Modes & HAM) Text(ThisRastPort, ^<",3); 

151 hW eise if (Modes & EXTRAJiALFBRITE) Text(ThisRastPort, '^TR 

A_HALFBRITE',15); 

152 fP eise Text(ThisRastPort,aORES',5); 

153 4P if (Modes & LAGE) Text(ThisRastPort, ^ INTERLACE*',10); 

154 A40 struct Screen »GetScreenO 

155 iWl ULONG Class; 

156 7A struct IntuiMessage »MyMessage; 

157 yw struct Screen <^CurrentScreen=IntuitionBase->FirstScreen; 

158 yx if (!(MyWindow=OpenWindow(&NewWindow))) retum FALSE; 

159 Tp ThisRastPort=MyWindow->RPort; 

160 At ShowScreenData(CurrentScreen); 

161 9q FOREVER 

162 9j3 WaitPort(MyWindow->UserPort); 

163 Ik if (MyMessage=GetMsg(MyWindow->UserPort)) 

164 0M8 Class=MyMessage->Class; 

165 Bq switch(Class) 

166 FhA case GADGETUP: 

167 An switch(MyMessage->IAddress->GadgetID) 

168 DfC case OK: 

169 yA CloseWindow(MyWindow); 

170 uk retum(CurrentScreen); 

171 aZ case NEXT: 

172 GN if (CurrentScreen->NextScreen) 

173 LFG ShowScreenData(CurrentScreen=CurrentScreen 

->NextScreen); 

174 JsC break; 

175 TI case FIRST: 

176 L4 ShowScreenData(CurrentScreen=IntuitionBase->F 

irstScreen); 

177 rav break; 

178 aU default: 

179 ox break; 

180 pyA break; 

181 dX default: 

182 rO break; 

183 PV3 ReplyMsg(MyMessage); 

184 GxO CopyBitMap(s,d) 

185 OCl struct BitMap ^ts,*d; 

186 tw char p=s->Depth, j=0; 

187 qW register unsigned long c; 

188 VQ unsigned long size = s->BytesPerRow * s->Rows; 

189 gl register char »sp,^tdp; 

190 IT while (p—) 

191 8w9 c=size; 

192 FR sp=s-> Planes [J 3; 

193 uO dp=d-> Planes [j-H-]; 

194 il while (c—) *dp-H-=*sp-H-; 

195 vhO MakeColorMap(MyScreen) 

196 bAl struct Screen *MyScreen; 

197 BA UWORD ^^cp=MyScreen->VlewPort.ColorMap->ColorTable; 

198 oN char »cd=MyColorMap; 

199 jl UWORD Count=MyScreen->ViewPort.ColorMap->Count,c; 

200 JY for (c=0;c< Count; C-H-) 

201 9P7 = (»cp>>4) & OxfO; 

202 oW *cd-H- = *cp & OxfO; 

203 raw «cd-H- = *cp-H- < < 4; 

204 CaO LoadColorMap(ThisView) 

205 y71 struct ViewPort ^^ThisView; 

206 3v char *c=ColorMap; 

207 4T unsigned short i,d=l< <BitMapHeader.Planes; 


57 BRP B00LGADGET,&MyBorder,0,&TextNext, 

0,0,NEXT,0] ; 

58 TOO struct Gadget GGFirst = ( 8eGGNext,7,50,70,12,GADGHC0MP,REL 

VERIFY, 

59 mKQ B00LGADGET,&MyBorder,0,&TextFirs 

t,0,0,FIRST,0j ; 

60 SraO struct Gadget GGOk = [ &GGFirst,l63,50,70,12,GADGHC0MP,REL 

VERIFY, 

61 pVN B00LGADGET,&MyBorder,0,&Text0k,0,0, 

OK,0] ; 

62 CXO struct Gadget GGPlay = { NULL,7,12,120,12,GADGHC0MP,RELVER 

IFY, 

63 uNP B00LGADGET,8tPlayBorder,0,&TextPla 

y,0,0,PLAY,0j ; 

64 U80 struct Gadget GGSave = [ &GGPlay,135,12,128,12,GADGHC0MP,R 

ELVERIFY, 

65 bnQ BOOLGADGET,&SaveBorder,0,&TextSa 

ve,0,0,SAVE,0] ; 

66 OHO struct Gadget GGFinish = ( &GGSave,271,12,56,12,GADGHC0MP, 

RELVERIFY, 

67 pXR BOOLGADGET,&FinishBorder,0,&Tex 

tFinish,0,0,FINISH,0]; 

68 RdO char MyTitle[] = "Delta Anim 0.6 1988 by CWF"'; 

69 FZ char Working[] = "Working.. .Please wait."'; 

70 LI struct NewWindow NewWindow = { 

71 Y97 0,0,240,66,0,1, 

72 NI GADGETUP, 

73 87 ACTIVATE) WINDOWDRAG) WINDOWDEPTH, 

74 4C &GG0k,NULL, 

75 fF "'Select your Screen", 

76 Qu NULL,NULL, 

77 vp 640,200,640,200, 

78 KO WBENCHSCREEN ] ; 

79 p50 struct NewWindow AniraWindow = [ 

80 d97 0,0,334,26,0,1, 

81 IQ GADGETUP] CLOSEWINDOW, 

82 r2 ACTIVATE] WINDOWDRAG]WINDOWDEPTH] WINDOWCLOSE, 

83 2h &GGFinlsh,NULL, 

84 3L MyTitle, 

85 Z3 NULL,NULL, 

86 4y 640,200,640,200, 

87 TX WBENCHSCREEN ] ; 

88 dcO struct Window »MyWindow; 

89 uN struct IntuitionBase «IntuitionBase; 

90 Er struct GfxBase ^^GfxBase; 

91 nZ struct RastPort «ThisRastPort; 

92 JO char MyBuffer[40]; 

93 DL char FullNarae[108],FileNarae[108]; 

94 Ij APTR Buffer; 

95 n9 BOOL Resident=TRUE; 

96 bQ char MyColorMap[3^^64]; 

97 V5 FILE *MyFile; 

98 vM unsigned long offset; 

99 sZ unsigned long planes[8]; 

100 ZU char Plc[5] = ".pic"',Number[4]; 

101 8d struct BitMap BackupBitMapl,BackupBitMap2; 

102 SS struct BitMap »bbral=&BackupBitMapl,»bbra2=&BackupBitMap2; 

103 nm reverse(s) 

104 ra61 char s[]; 

105 ck char c; 

106 2w int i,j; 

107 s2 for (i=0,j=strlen(s)-l;i<J;i-H-,J—) 

108 1J7 c=s[i]; 

109 Zs s[i]=s[j3; 

110 HO s[j]=c; 

111 VmO itoa(n,s) 

112 uEl char s[]; 

113 nz int n; 

114 i3 int i,sign; 

115 78 if ((sign = n) < 0) n=-n; 

116 qB 1=0; 

117 uH do 

118 tJ3 s[i++]=n$10+'0'; 

119 K52 ] while (( n /= 10) > 0); 

120 V71 if (sign < 0) s[i-H-] = '-«; 

121 GY s[i]='\0'; 

122 yO reverse(s); 

123 5x0 ShowScreenData(ThisScreen) 

124 LTl struct Screen »ThisScreen; 

125 wV char ^^ScreenNarae=ThisScreen->Title; 

126 il UWORD Modes=ThisScreen->ViewPort.Modes; 

127 yZ SetDrMd(ThisRastPort,JAM2); 

128 7t SetAPen(ThisRastPort,0); 
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208 VK 

unsigned short r,g,b; 


282 NAC 

eise 



209 Eq 

for (i*0;i<d;i-H-) 


283 rwH 

SetWindowTitles(MyWindow,Working,0) ; 

210 WZ7 

r=^^c++> >4; 


284 wP 

Offset += write_dlta(MyFile,bbm2,ThisBitM 

211 B3 

g=»c-H-> >4; 



ap); 



212 2p 

b=*c++> >4; 


285 kL 

CopyBitMap(ThisBitMap,bbm2); 

213 TU 

SetRGB4(ThisVlew,l,r,g,b)j 


286 Ht 

Swap=bbm2; 


214 mdO 

BOOL MakeBaclaipRaster(bra,dbm) 


287 S9 

bbm2 

=bbml; 


215 6G1 

struct BitMap *bm,*dbra; 


288 Ep 

bbml=Swap; 


216 c7 

uns igned short p=bra- > Depth, bpr=bra- > BytesPerRow, r=bin- > R 


289 vi 

SetWindowTitles(MyWindow,MyTitle,0) ; 


ows; 


290 bkC 

break; 



217 Kg 

unsigned short planesize=bpr*r; 


291 PJ 

default: 



218 yw 

char j=0; 


292 dm 

break; 



219 mT 

APTR PlanePtr; 


293 enA 

break; 



220 Kx 

InitBitMap(dbm,p,bpr*8,r)j 


294 AM 

case CLOSEWINDOW: 


221 Wy 

while (p— ) 


295 RB 

if (MyFile) CloseAnim(FullName); 

222 Q09 

if (PlanePtr=AllocMein(planesize,MEMF_PUBLIC) ) 


296 PU 

FreeBackupRaster(bbml) ; 


223 yME 

dbm- > Planes [ j ++]=PlanePtr ; 


297 SY 

FreeBackupRaster(bbm2); 


224 6S9 

eise retum(FALSE); 


298 3F 

CloseWindow(MyWindow); 


225 Mkl 

re tum TRUE; 


299 qP 

retum; 



226 reO 

FreeBackupRaster(bni) 


300 lu 

break; 



227 HAI 

struct BitMap *bra; 


301 ZT 

default: 



228 oJ 

unsigned short p=bm->Depth,bpr=bm->BytesPerRow,r=bra->R 


302 nw 

break; 




ows; 


303 LR3 

ReplyMsg(MyMessage); 


229 Ws 

unsigned short planesize=bpr*r; 


304 ryO 

BOOL InitDisplay(bmh) 



230 A8 

char J=0; 


305 pFl 

register struct BitMapHeader <fbmh; 


231 yf 

APTR PlanePtr; 


306 nl 

if (bmh->h > 256) NewSl.ViewModes ]= LACE; 

232 Hi 

while (p— ) if ( PlanePtr=bm->Planes[j-H-]) FreeMera(PlaneP 


307 xM 

if (bmh->w > 352) NewSl.ViewModes ]= HIRES; 


tr,planesize) ; 


308 C5 

NewSl.ViewModes ]= VP_HIDE; 


233 3s0 

MakeAnim(ThisScreen) 


309 RD 

NewSl.Width=bmh->w; 



234 7F1 

struct Screen »ThisScreen; 


310 83 

NewSl.Height=bmh-> h; 


235 Oo 

ULONG Class; 


311 N5 

NewSl.Depth=bmh-> Planes; 


236 PS 

struct IntuiMessage »MyMessage; 


312 HJ 

if (!(MyScreen=0penScreen(&NewSl))) retum FALSE; 

237 OW 

struct BitMap »fThisBitMap=ThisScreen->RastPort.BitMap,*S 


313 Pa ' 

if (!MakeBackupRaster(MyScreen->RastPort.BitMap,bbml)) r 


wap; 



eturn FALSE; 



238 IS 

BOOL FirstTime; 


314 Tf 

if (!MakeBackupRaster(MyScreen->RastPort.BitMap,bbm2)) r 

239 JT 

if (IThisScreen) retum; 



eturn FALSE; 



240 n3 

if (I (MyWindow=0penWindow(StAnimWindow) )) retum; 


315 TDO 

WriteBody(bmh) 



241 Uo 

if ( !MakeBackupRaster(ThisBitMap,bbml)) 


316 Prl 

struct BitMapHeader *bmh; 


242 Xc6 

FreeBackupRaster(bbml) ; 


317 lU 

char * (»PlanePtr) [8]=&MyScreen-> BitMap. Planes [0]; 

243 AM 

CloseWindow(MyWindow) ; 


318 IQ 

char »»CurrentPtr,»ReadPointer,»pointer ; 

244 xW 

retum; 


319 4u 

unsigned short h=bml 

-> h, bpl=bmh- > w >> 3, d=brah- > Planes, 

245 bwl 

if ( IMakeBackupRaster(ThisBitMap,bbni2) ) 



Plane0ffset=0; 



246 bg6 

FreeBackupRaster(bbml) ; 


320 Ua 

unsigned short j,count; 


247 ek 

FreeBackupRaster(bbin2) ; 


321 aV 

char n,x; 



248 FR 

CloseWindow(MyWindow) ; 


322 Og 

#asm 



249 2b 

retum ; 


323 vkD 

clr.l 

dO 


250 aHl 

FOREVER 


324 yo 

clr.l 

dl 


251 aA3 

WaitPort(MyWindow-> UserPort); 


325 Is 

clr.l 

d2 


252 JB 

if (MyMessage=GetMsg(MyWindow->UserPort)) 


326 3p 

move.1 

JBodyChunk,a0 ;a0 = Zeiger auf Dat 

253 Fn8 

ClasssMyMessage->Class; 



en 



254 cH 

switch(Class) 


327 vu 

move.1 

-4(a5),al 

;Zeiger auf Planes[0 

255 g8A 

case GADGETUP: 



] 



256 bE 

switch(MyMessage- > lAddress- > GadgetID) 


328 VJ 

move.w 

-18(a5),d0 

dO = Anzahl der Zeilen 

257 LNC 

case FINISH: 


329 oe 

move.w 

-20(a5),dl 

dl = Bytes pro Zeile 

258 qa 

if (MyFile) CloseAniin(FullName) ; 


330 4s 

move.w 

-22(a5),d2 

d2 = Anzahl der Planes 

259 6F 

break; 


331 ra7 

clr.l 

d4 

d4=Plane0ffset 

260 LB 

case PLAY: 


332 Iz 

clr.l 

d6 

d6=n=0 

261 Un 

if (MyFile) break; 


333 R7 

clr.l 

d5 

Plane0ffset=0 

262 06 

if ( IGetFileNarae(FileName,FullName,^Select Pia 


334 QD 

clr.l 

d3 



y File^,Buffer,BUFFERSIZE,Resident)) break; 


335 Kk 

clr.l 

d7 


263 Xr 

MyFile=0;. 


336 Tn 

bra 

hstart 


264 BK 

break; 


337 zxO 

hloop: move.w 

d2,d3 


265 JS 

case SAVE: 


338 9AD 

move.1 

al,a2 ;a2=CurrentPtr 

266 tZ 

if (lMyFile) 


339 Ac 

bra 

pstart 


267 eiH 

if ( !GetFileName(FileNaine,FullNarae, "Save 


340 r70 

ploop : move.1 

(a2)+,a3 ;a3=pointer 


Animation",Buffer,BUFFERSIZE,Resident) ) br 


341 2fD 

add.l 

d4,a3 ; 

PlaneOffset 


eak; 


342 BY 

clr.b 

d5 ; count=0 

268 ch 

SetWindowTitles(MyWindow,Working,0); 


343 pWO 

cloop: clr.w 

d6 


269 r2 

if (lOpenAnira(FullNarae)) break; 


344 GND 

move.b 

(a0)+,d6 ;n 

=ReadPointer-f+ 

270 cK 

MakeColorMap(ThisScreen) ; 


345 qX 

tst.b 

d6 


271 U4 

CopyBitMap(ThisBitMap,bbml) ; 


346 5E 

bmi 

eise 


272 X8 

CopyBitMap(ThisBitMap,bbni2); 


347 kV 

addq.b 

#l,d6 ;n++ 

273 Cr 

Offset += write_ilbra(MyFile,MyColorMap,bb 


348 Ox 

add.b 

d6,d5 ;count += n 


ml,ThisScreen-> ViewPort.Modes,TRUE ); 


349 kk 

bra 

cpstart 


274 gT 

SetWindowTitles ( MyWindow,MyTitle,0 ); 


350 jeO 

cploop: move.b 

(a0)+,(a3)+ 


275 yr 

FirstTime=TRUE; 


351 nC 

cpstart : dbra 

d6,cploop 


276 5NC 

eise if (FirstTime) 


352 KZD 

bra 

cstart 


277 IqH 

SetWindowTitles(MyWindow,Working,0) ; 


353 WVO 

eise: move.b 

(a0)+,d7 ;x 

=ReadPointer-t-+ 

278 nF 

Offset += write_dlta(MyFile,bbml,ThisBitM 


354 3cD 

neg.b 

d6 ;n 

= -n 


ap); 


355 s3 

addq.b 

#l,d6 ;n++ 

279 cC 

CopyBitMap(ThisBitMap,bbml) ; 


356 85 

add.b 

d6,d5 ;count += n 

280 mZ 

SetWindowTitles(MyWindow,MyTitle,0) ; 






281 BR 

FirstTime=FALSE; 
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Programmname: 

iff.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

C 

Compiler: 

Aztec-C V3.6 

Aufrufe: 

cc +l -s +idmp iff.c 


357 JU 

bra xcstart 

358 oBO 

xcloop: raove.b d7,(a3)+ 

359 aY 

xcstart: dbra d6,xcloop 

360 X3 

cstart: crap.b dl,d5 

361 dxD 

bne.s cloop 

362 iwO 

pstart: dbra d3,ploop 

363 MAD 

add.w dl,d4 ;PlaneOffset+=bpl 

364 W50 

hstart: dbra dO,hloop 

365 XRl 

# endasm 


366 BVO 

unsigned long ReadLongWord(MyFile) 

367 Vql 

unsigned long MyFile; 

368 Ns 

unsigned long 

Buffer; 

369 fY 

Read(MyFile,&Buffer,4); 

370 Z6 

retum Buffer 


371 IZO 

BOOL ReadlLBM(MyFile) 

372 avl 

unsigned long MyFile; 

373 KZ 

unsigned long ID,Length,Offset,End; 

374 dh 

BOOL Error=FALSE; 

375 cZ 

if ((ID=NextLong) == FORM) 

376 KT6 

End=NextLong-4; 

377 31 

if ((lD=NextLong) 1= ILBM) 

378 gGB 

printf(''Sorry, but this is not an IFF-FORM-File 


.. 

vn'); 

379 HW 

Error=TRUE; 

380 xkl 

eise 


381 JY6 

Error=TRUE; 

382 Rs 

printf('Sorry, but this is not anira IFF-ILBM-File... 
Xn'^); 

383 lil 

0ffset=0; 


384 Oo 

while (Offset 

< End && Error==FALSE ) 

385 n63 

ID=NextLong 


386 cg 

LengthsNextLong; 

387 t8 

if (Length & 1) Length-H-; 

388 iu 

Offset+=Length+8; 

389 3m 

switch (ID) 


390 nC5 

case BMHD 


391 Gk 

Read (My Fi le, 8cB i tMapHeader, s i zeo f (B i tMapHeade r)); 

392 FO 

break; 


393 Ot 

case CMAP 


394 UK 

Read(MyFile,ColorMap,Length); 

395 IR 

break; 


396 uG 

case CAMG 


397 4e 

NewSl.ViewModes=NextLong; 

398 LU 

break; 


399 TB 

case BODY 


400 pv 

BodySize=Length; 

401 ZL 

if (Ifirst_body) 

402 psA 

if (!InitDisplay(&BitMapHeader)) 

403 fuF 


Error=TRUE; 

404 Ra 


break; 

405 BKA 

LoadColorMap(&MyScreen-> ViewPort); 

406 HY 

first_body=TRUE; 

407 eK5 

if (I (BodyChunk=AllocMeni(Length,MEMF_PUBLIC))) Error= 
TRUE; 

408 PC 

eise 


409 JPA 

Read(MyFile,BodyChunk,Length); 

410 IG 

WriteBody(&BitMapHeader); 

411 uZ 

FreeMera(BodyChunk,Length); 

412 Zi5 

break; 


413 xN 

case GRAB 


414 rb 

case DEST 


415 py 

case SPRT 


416 hN 

case CCRT 


417 8m 

case CRNG 


418 QK 

case DPPV 


419 Ld 

Seek(MyFile,Length,0); 

420 hq 

break; 


421 VP 

default: 


422 L4 

printf('"Sorry, but this is a corrupted IFF-File\n'); 

423 zE 

Error=TRUI 


424 lu 

break; 


425 lYl 

retum Error; 


426 dio' 

void MakeFileName(FileNaine,count) 

427 nXl 

char »FileNara« 


428 mZ 

unsigned shor1 

count; 

429 QZ 

strcpy(FullName,FileName); 

430 OD 

itoa(count,Number); 

431 qQ 

strcat(FullName,Number); 

432 m8 

strcat(FullName,Pic); 

433 GD 

printf ("'^fsXn'' 

FullName); 

434 kLO 

BOOL ReadLFiles(SourceName,DestName) 

435 Hui 

char ^^SourceName,*DestName; 

436 bP 

ULONG SourceFile,DestFile; 


437 48 

UWORD c=l; 

438 pg 

BOOL FirstTime=FALSE,SecondTime=FALSE; 

439 DB 

struct BitMap *Swap; 

440 BC 

while (MakeFileName(SourceName,c++),SourceFile=Open(FullN 
ame,MODE_OLDFILE)) 

441 ZV9 

if (ReadlLBM(SourceFile)) 

442 ceE 

Close(SourceFile); 

443 4D 

break; 

444 8K9 

if (IFirstTime) 

445 v4E 

if (lOpenAnim(DestName)) 

446 fwJ 

printf("Can't open destination file...\ 

447 8H 

n ), 
break; 

448 kxE 

MakeColorMap(MyScreen); 

449 yR 

CopyBitMap(MyScreen-> RastPort.BitMap,bbml); 

450 IV 

CopyBitMap(MyScreen-> RastPort.BitMap,bbm2); 

451 dk 

Offset += write_ilbm(MyFile,MyColorMap,bbml, 
MyScreen-> ViewPort. Modes, TRUE); 

452 pi 

FirstTime=TRUE; 

453 Ru9 

eise if (ISecondTime) 

454 huE 

Offset += wr ite_dlta( MyFile, bbml, MyScreen-> 
RastPort.BitMap); 

455 4X 

CopyBitMap(MyScreen->RastPort.BitMap,bbml); 

456 IT 

SecondTime=TRUE; 

457 Cz9 

eise 

458 o2E 

Offset += write_dlta(MyFile,bbm2,MyScreen-> 
RastPort.BitMap); 

459 Ae 

CopyBitMap(MyScreen-> RastPort.BitMap,bbm2); 

460 5h 

Swap=bbm2; 

461 Gx 

bbm2=bbml; 

462 2d 

bbml=Swap; 

463 xz9 

Close(SourceFile); 

464 gol 

if (MyFile) CloseAnim(DestName); 

465 8D 

FreeBackupRaster(bbml); 

466 BH 

FreeBackupRaster(bbm2); 

467 Gy 

if (MyScreen) CloseScreen(MyScreen); 

468 cyO 

main(argc,argv) 

469 zZl 

int arge; 

470 b9 

char **argv; 

471 wB 

IntuitionBase=OpenLibrary( ''intuition.library'',0); 

472 SU 

GfxBase=0penLibrary( ''graphics.library'',0); 

473 f4 

arge—; 

474 xl 

argv-H-; 

475 uj 

if (argc==2) 

476 VB6 

Read_Files (^fargv, argv [ 1]); 

477 WJl 

eise 

478 cW6 

if (!(Buffer=AllocMem(BUFFERSIZE,MEMF_PUBLIC))) 

479 V9B 

printf('0ut of memory.. .Xn"); 

480 BZ 

exit(O); 

481 ly6 

MakeAnim(GetScreen()); 

482 zN 

FreeMem(Buffer,BUFFERSIZE); 

483 4dl 

CloseLibrary(IntuitionBase); 

484 Ek 

CloseLibrary(GfxBase); 

(C) 1988 M&T 

Listing 1. »anim.c« (Schluß) 


Programmname: iff.c 




1 JZO 

!«deflne MAKE_ID(a,b,o,d) 
<16 1 (e)<<8 1 (d) ) 

( (long)(a)< <24 ] (long)(b)< 

2 Xy 

#define FORM MAKE_ID('F', 

'0', 

'R’, 

'M') 

3 x7 

#define ILBM MAKE_ID0I', 

'L', 

•B', 

'M') 

4 gT 

#define BMHD MAKE_ID('B', 

’M', 

'H', 

•D') 

5 WV 

#define CMAP MAKE_ID^C', 

'M', 

'A', 

,p,) 

6 IG 

#define BODY MAKJLID('B', 

’O', 

'D', 

'Y') 

7 Mm 

#define GRAB MAKE_ID('G', 

’R', 

'A', 

'B') 

8 cj 

#define DEST MAKE_ID('D', 

’E', 

'S', 

»T') 

9 UW 

#define SPRT MAKE_ID('S', 

’P', 

'R', 

'T') 

10 oT 

# define CAMG MAKELID('C', 

’A', 

'M', 

•G') 

11 fX 

#define CRNG MAKELIDOC, 

’R', 

'N', 

•G') 

12 7G 

# def ine CCRT MAKELID^C, 

’C', 

•R', 

•T') 
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13 qY #define ANHD MAKE_ID('A‘, 'N', 'H', 'D') 

14 yO #define ANIM MAKELIDOA», 'N', 'M') 

15 oO #define DLTA MAKELIDOD', 'L', 'T', 'A‘) 

16 ux #define DIRECT 0 

17 SS #define XOR 1 

18 D2 #define LONDELTA 2 

19 N7 #define SHORTDELTA 3 

20 niN stnict ApimHeader 

21 Ii9 UBYTE Operation; 

22 uu UBYTE raask; 

23 hh UWORD w,h; 

24 Oj WORD x,y; 

25 hF ULONG abstime; 

26 Av ULONG reltime; 

27 8x UBYTE interleave; 

28 2Q UBYTE pad[21]; 

29 mi8 ]; 

30 toO stnict AnimHeader ThisAnim = { SHORTDELTA,0,0,0,0,0,1,1,1 


buf[0] = c; 
nbuf = 1; 
rstart = 0; 
break; 

if (c == laste) 

if (nbuf - rstart >= MINRUN) 
if (rstart > 0) 

if (file 1= NULL) 
if (putc(rst 
art-1, file) 
== EOF) 

re tum ( 


if (fwrite(b 
uf, rstart, 1 
, file) 1= 1) 
return( 


105 IIJ putsize += rs 

tart+1; 

106 J3c mode = RUN; 

107 flQ eise if (rstart == 0) 

108 15U mode = RUN; 

109 aNM eise 

110 kkQ rstart = nbuf - 1; 

111 irM break; 

112 HgA case RUN: 

113 qSM if ((c != laste) ] ] (nbuf - rstart > 

MAXRUN)) 

114 sKU if (file != NULL) 

115 WMZ if (putc( -(nbuf - rsta 

rt - 2), file) == EOF) 

116 LGf return(O); 

117 iPZ if (putc( laste, file) 

== EOF) 

118 Nif retum(O); 

119 LaU putsize += 2; 

120 CFQ buf[0] = c; 

121 00 nbuf = 1; 

122 EE rstart = 0; 

123 ZV mode = DUMP; 

124 v 4M break; 

125 e66 laste = c; 

126 hRl switch (mode) 

127 189 case DUMP: 

128 6YH if (file != NULL) 

129 hOP ^ if (putc(nbuf-l, file) == EOF) 

130 ZUX i*eturn(0); 

131 38P if (fwrite(buf, nbuf, 1, file) 1= 


31 gn Union bytes4 

32 jw8 char b4_naine[4]; 

33 mX long b4_type; 

34 m ); 

35 WXO struct iff_chunk 

36 bh8 Union bytes4 iff_type; 

37 6Q unsigned long iff_length; 

38 vr ]; 

39 ZaO struct form_chunk 

40 nn8 union bytes4 fc_type; 

41 rw long fc_length; 

42 Lu Union bytes4 fc_subtype; 

43 Ow j; 

44 7g0 struct BitMapHeader 

45 Tq8 UWORD w, h; 

46 BT UWORD x, y; 

47 FE UBYTE nPlanes; 

48 Lv UBYTE masking; 

49 3d UBYTE compression; 

50 gE UBYTE padl; 

51 kY UWORD transparentColor; 

52 Fu UBYTE xAspect, yAspect; 

53 m8 WORD pageWidth, pageHeight; 

54 B7 ); 

55 HoO struct ILBM_lnfo 

56 HZ8 struct BitMapHeader header; 

57 pi UBYTE cmap[32^^33; 

58 cF struct BitMap bitmap; 

59 GC ); 

60 pMO extern FILE »MyFlle; 

61 hP extern unsigned long offset,planes[8]; 

62 zx #define DUMP 0 

63 tL #define RUN 1 

64 gG #define MINRUN 3 

65 bV #define MAXRUN 128 

66 8a #define MAXDAT 128 

67 HK static int pack_row(file, source, size) 

68 EUl FILE »file; 

69 28 char »source; 

70 3f int size; 

71 A5 char c, 

72 kuH laste = '\0'; 

73 7W1 short mode = DUMP; 

74 AV short nbuf = 0; 

75 vo short rstart = 0; 

76 jF short putsize; 

77 ZK char buf[MAXDAT»3/2]; 

78 Xu putsize = 0; 

79 iE buf[0] s laste = »source-H-; 

80 LL nbuf = 1; 

81 sl size—; 

82 aM for (; size; —size) 

83 Le6 buf[nbuf++] = c = »source++; 

84 11 switch (mode) 

85 cSA case DUMP: 

86 SqM if (nbuf > MAXDAT) 

87 RtU if (file != NULL) 

88 81c if (putc(nbuf-2, fil 

e) == EOF) 

89 upk retum(O); 

90 GNc if (write(buf, nbuf- 

1, 1, file) 1= 1) 

91 wrg retum(O); 

92 pxU putsize += nbuf; 


132 bWX retum(O); 

133 X7H putsize += nbuf+1; 

134 5ED break; 

135 e39 case RUN: 

136 EgH if (file 1= NULL) 

137 neP if (putc( -(nbuf - rstart - 1), f 

ile) == EOF) 

138 heX retum(O); 

139 4lP if (putc( laste, file) == EOF) 

140 jeX retum(O); 

141 hwH putsize += 2; 

142 DMD break; 

143 sJl retum(putsize); 

144 wO static unsigned long pack_bitmap(file, bm) 

145 Tjl FILE »file; 

146 yr struct BitMap »bm; 

147 iQO short i, j; 

148 sP short row_length; 

149 3r unsigned short plane_offset=0; 

150 6j unsigned long compressed_length=0; 

151 Lp for (i=0; i<bin->Rows; i-H-) 

152 AL8 for (j = 0; j < bra->Depth; j++) 

153 nzG if ( (row_length * pack_row(file, bm->Pla 

nes[j] + plane_offset, 

154 3C0 bin->BytesPerRow)) == 0) 

155 yt retum(O); 

156 I7G compressecLlength += row_length; 

157 UG8 plane_offset += bm->BytesPerRow; 

158 OcO if ( compressed_length & 1) 
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159 b38 

if (file I* NULL) 


228 vT9 


if (pack_bitmap(file, bits) == 0) retum(O); 

160 KCG 

if ( putc( 0, file) == EOF) 


229 WJl 

eise 


161 4z0 

return(O); 


230 P19 


i = bits->Rows; 

162 Qh8 

compressecLlength-H-; 


231 Xj 


row_offset = 0; 

163 u20 

retum(compressecLlength); 


232 3T 


while (~i >= 0) 

164 YS 

unsigned long write_ilbni(file, colors, bits, ViewMode, com 


233 ZhH 


for (j=0; j <bits->Depth; J-h-) 


pressed) 


234 x2P 


if (fwrite( bits->Planes[j]+row_ 

165 n31 

FILE »file; 




Offset, blts->BytesPerRow, 

166 WS 

unsigned char »colors; 


235 r3f 


1, file) != 1) 

167 q7 

register struct BitMap »bits; 


236 HCX 


return(0); 

168 vD 

unsigned long ViewMode; 


237 EpH 


row_offset += bits->BytesPerRow; 

169 dx 

BOOL compressed; 


238 Nrl 

retum (chunk. f c_length+8); 

170 aJ 

struct fomL-chunk chunk; 


239 oAO 

unsigned long diff_bitraap(file,bo,bn) 

171 KE 

struct iff_chunk ichunk; 


240 OGI 

FILE »file; 

172 9R 

struct BitMapHeader header; 


241 ev 

struct BitMap »bo,»bn; 

173 Xn 

unsigned long bits_size; 


242 Pk 

char p 

=bo->Depth,j=0; 

174 H4 

short i,width; 


243 zR 

unsigned short planesize=(bo->BytesPerRow»bo->Rows) > > 

175 aA 

register short j; 



1; 


176 Hs 

register short row_offset; 


244 Mo 

unsigned short »w=0,last_offset,new_offset,start_offset,i 

177 zu 

unsigned short MaxCol= 1 << bits->Depth; 



9 


178 S9 

chunk.fc_type.b4_type = FORM; 


245 ew 

register unsigned short »s,»d,plane_offset; 

179 ul 

chunk.fc_subtype.b4_type = ILBM; 


246 Lh 

unsigned long chunk_offset=0; 

180 ia 

if (ViewMode & HAM) MaxCol=l6; 


247 FQ 

if (file) fwrite(planes, sizeof(planes), 1, file); 

181 kX 

if (ViewMode & EXTRAJALFBRITE) MaxCol=32; 


248 EP 

chunk_offset+=sizeof(planes); 

182 EV 

chunk.fc_length=4+3»sizeof(struct iff_chunk)+MaxCol»3+siz 


249 yQ 

while (p—) 


eof(struct BitMapHeader); 


250 FL9 


planes[j]=chunk_offset; 

183 39 

if (compressed) 


251 nh 


s=bo-> Planes [j]; 

184 S15 

if ( (bits_size = pack_bitraap(NULL, bits)) == 0) retu 


252 ac 


d=bn-> Planes[j ++]; 


m(0); 


253 cd 


plane_offset=0; 

185 RXl 

eise bits_size = bits->BytesPerRow»bits->Rows»bits->D 


254 4u 


last_offset=0; 


epth; 


255 5Q 


i=0; 

186 cW 

chunk.fc_length += bits_size; 


256 Im 


if (»s 1= »d) 

187 Yd 

chunk.fc_length += 12; 


257 vKE 


w=d; 

188 FkO 

/» if ((ViewMode & HAM) ]] (ViewMode & EXTRAJALFBRITE) ) c 


258 X7 


if (file) 


hunk.fc_length+=12; »/ 


259 WfJ 


new_offset=0; 

189 tnl 

if (fwrite(&chunk, sizeof(chunk) , 1, file) 1= 1) return(0 


260 hb 


fwr i te (8cnew_of f se t, 2, 1 , f ile); 


)J 


261 AS 


fwrite(w,2,1,file); 

190 Bl 

ichunk.iff_type.b4_type = BMHD; 


262 wGE 


chunk_of fset+=4; s-h-; d-H-; 

191 Lb 

ichunk.iff_length = sizeof(header); 


263 Dr 


plane_offset-H-; 

192 zZ 

if (fwrite(&ichunk, sizeof(ichunk), 1, file) != 1) retum 


264 Yi9 


while (plane_offset < planesize) 


(0); 


265 iBH 


if (»s == »d) 

193 Yx 

header.masking = 0; 


266 kaM 


switch (i) 

194 lu 

header.padl = 0; 


267 JZO 


case 0: 

195 Sw 

header.transparentColor = 0; 


268 dA 


s++;d++; 

196 Dj 

if (compressed) header.compression = 1; 


269 GP 


break; 

197 kg 

eise header.compression =0; 


270 Of 


case 1: 

198 tK 

width = bits->BytesPerRow»8; 


271 kK 


if (file) 

199 82 

header.w = width; 


272 IQT 


new_offset=start_offset-last_ 

200 ba 

header. h = bitS“>Rows; 




Offset; 

201 MS 

header. nPlanes = bits->Depth; 


273 uo 


fwrite(&new_offset,2,1,file); 

202 bM 

header.X = 0; 


274 Nf 


fwrite(w,2,1,file); 

203 gS 

header.y = 0; 


275 SsO 


last_offset=plane_offset-l; 

204 DP 

header.pageWidth = width; 


276 w7 


chunk^of fset+s4; i=0; s-h-; d-H-; 

205 SK 

header. pageHeight = bits->Rows; 


277 OX 


break; 

206 zl 

header.xAspect = 5 » width/320; 


278 C6 


default: 

207 90 

header.yAspect = 11; 


279 sS 


if (file) 

208 Iv 

if (fwrite(&header, sizeof(header) , 1, file) != 1) return 


280 vDT 


new_offset=last_offset-start_ 


(0); 




offset-1; 

209 86 

ichunk.iff_type.b4_type = CMAP; 


281 2w 


fwrite(&new_offset,2,l,file) ; 

210 Cz 

ichunk.iff_length = MaxCol»3; 


282 Cu 


fwrite(&i,2,1,file); 

211 Is 

if (fwrite(&ichunk, sizeof(ichunk) , 1, file) != 1) return 


283 EQ 


fwrite(w,2,i,file); 


(0); 


284 blO 


last_offset=plane_offset-l; 

212 kd 

if (fwrite(colors, 3*MaxCol, 1, file) 1= 1) retum(O); 


285 Wh 


chunk_offset += 4;chunk_offset += 

213 Ju 

ViewMode &= (VPJIDE »»???? Oxffff); 




( i»2) ; i=0; S-H-; d-H-; 

214 X5 

ichunk.iff_type.b4_type = CAMG; 


286 Xg 


break; 

215 9u 

ichunk.iff_length = 4; 


287 SFH 


eise 

216 Nx 

if (fwrite(&ichunk, sizeof( ichunk), 1, file) != 1) retum 


288 SVM 


if (Ü-H-) 


(0); 


289 RqR 


w=d; 

217 P3 

if (fwrite(&ViewMode, sizeof(ViewMode), 1, file) 1= 1) re 


290 zD 


start_offset=plane_offset; 


tum(O); 


291 OXM 


s-H-;d-H-; 

218 spO 

/» if (ViewMode & EXTRA_HALFBRITE) 


292 gKH 


plane_offset-H-; 

219 cA6 

ichunk.iff_type.b4_type * CAMG; 


293 6g9 


if (file) 

220 Ez 

ichunk.iff_length = 4; 


294 8NE 


putc(0xff,file); 

221 S2 

if (fwrite(&ichunk, sizeof(ichunk), 1, file) 1= 1) r 


295 90 


putc(0xff,file); 


etura(O); 


296 S49 


chunk_of f set-»-=2 ; 

222 U8 

if (fwrite(&ViewMode, sizeof ( ViewMode), 1, file) 1= 


297 Kel 

return 

chunk_offset ; 


1) return(O); 


298 E70 

unsigned long write_dlta(file,bo,bn) 

223 SM5 

} V 


299 xDl 

FILE »file; 

224 ZU 

ichunk.iff_type.b4_type = BODY; 


300 bs 

struct BitMap »bo,»bn; 

225 Qd 

ichunk.iff_length = bits_size; 


301 hQ 

struct 

form_chunk chunk; 

226 X7 

if (fwrite(&ichunk, sizeof(ichunk), 1, file) 1= 1) return 


302 RL 

struct 

iff_chunk ichunk; 


(0); 


303 dt 

unsigned long bits_size; 

227 Ir 

if (compressed) 


304 UB 

chunk. 

rc_type.b4_type = FORM; 
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305 wn 

chunk.fc_subtype.b4_type = ILBM; 

306 qc 

chunk.fc_length=4+2<^sizeof(struct iff_chunk)+slzeof(struc 
t AnimHeader); 

307 hR 

bits_size=diff_bitmap(NULL,bo,bn); 

308 aU 

chunk.fc_length += bits^size; 

309 ln 

fwrite(&chunk, sizeof(chunk), 1, file); 

310 8y 

ichunk.iff_type.b4_type = ANHD; 

311 01 

ichunk.iff_length = sizeof(struct AnimHeader); 

312 Bh 

fwrite(&ichunk, sizeof(ichunk), 1, file); 

313 00 

fwrite(&ThisAnim, sizeof(struct AnimHeader), 1, file);. 

314 t8 

ichunk.iff_type.b4_type = DLTA; 

315 s5 

ichunk.iff_length = bits_size; 

316 Fl 

fwrite(&ichunk, sizeof(ichunk), 1, file); 

317 vi 

bits_size=diff_bitmap(file,bo,bn); 

318 f9 

retum(chunk. fc_length+8); 

319 edO 

BOOL OpenAnim(FileName) 

320 4ol 

char »FileName; 

321 af 

struct fomuchunk AnimChunk; 

322 wT 

if (I(MyFile=fopen(FileName,"w"))) return FALSE; 

323 raj 

AnimChunk.fc_type.b4_type = FORM; 

324 2V 

AnimChunk.fc_subtype.b4_type = ANIM; 

325 RE 

AnimChunk.fc_length=0; 

326 LV 

if (fwrite(&AnimChunk, sizeof(AnimChunk), 1, MyFile) 1* 1 
) re tum FALSE; 

327 gg 

offset=4; 

328 m80 

CloseAnim(FileName) 

329 Dxl 

char »FileName; 

330 kO 

ULONG Dummy; 

331 LZ 

fclose(MyFile); 

332 il 

MyFile=Open(FileName,M0DE_0LDFILE); 

333 OV 

Read(MyFile,&Dummy,4); 

334 6V 

Write(MyFile,&offset,4); 

335 Xb 

Close(MyFile); 

336 i2 

MyFile=0; 

(C) 1988 

M&T 

Listing 2. »iff.c« (Schiuß) 


Programmname: 

copper.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Compiler: 

Aztec-C V3.6 

Aufrufe: 

cc +l -s +idmp copper.c 


Prograimnnarae: copper.c 


1 hSO 


2 rq 


Copper and Display Utitlities 


3 uj 

/» 

written by: Christian Wolf 


4 GT 

/* 

Matthias-Claudius-Weg 58 


5 mP 

/* 

2190 Cuxhaven 1 

V 

6 QI 

/* 

04721/24269 



7 nY 

8 5o #define COPIL 0x80 

9 H5 #define C0P2L 0x84 

10 A7 #define COPJMPl 0x88 

11 b9 #define C0PJMP2 0x8a 

12 o2 #define DIWSTRT 0x8e 

13 a6 #define DIWSTOP 0x90 

14 Ge #define DDFSTRT 0x92 

15 iL #define DDFSTOP 0x94 

16 iS #define BPLIP OxeO 

17 Xs #define BPLCONO 0x100 

18 k3 #define BPLCONl 0x102 

19 xE #define BPLC0N2 0x104 

20 ZT #define BPLIMOD 0x108 

21 2a #define BPL2M0D OxlOa 

22 8s #define SPROP 0x120 

23 EX #define COLOROO 0x180 

24 hc #define INTREQ 0x9c 

25 mG #define CopperEnd *((ULONG *)CurrentInstr)=Oxfffffffe 

26 f6 UWORD »CopperList,^tCurrentInstr,*LastCopperList,*DuinmyData 

,*CopperList2; 

27 Cs UWORD CurrentOffset=0; 


WRAFIK-TOOLS 


28 6z char Unused[] * { 'Unused'' ]; 

29 Vg char *RegisterName[] = 

30 Nil { '^LTDDAT'','T)MACONR'^,^OSR'^,^POSR^,'T>SKDATR',''JOYODAT 

"J0Y1DAT^ 

31 513 ''CLXDAT"ADKCONR'T^OTODAT'"POTIDAT '^POTGOR"SERDAT 

R^, 'DSKBYTR'", 

32 39 "INTENAR'", "INTREQR'^, 'T)SKPTH^, 'TDSKPTL", 'DSKPTH*', n)SKLEN^ 

, T)SKDAT", 'TlEFPTR'^, 

33 oO '^OSW', 'WOSW^, '^COPCON'^, "SERDAT", '^SERPER'', '^POTGO'^, '"JO 

YTEST'','"STREQU'", 

34 mR '"STRVBL'", '"STRHOR", "STRLONG'", '"BLTCONO'", "BLTCONl'", "BLTAFW 

M",'"BLTALWM'", 

35 r3 "BLTCP'rH'',^LTCPTL'",'"BLTBPTH",'"BLTBPTL'",'"BLTAPTH'','BLTA 

PTL", ^LTSIZE'', 

36 8e Unused,Unused,Unused,'"BLTCMOD'",''BLTBMOD'",'^LTAMOD'','"BLT 

DMOD'',Unused, 

37 n9 Unused,Unused,Unused,Unused,'"BLTCDAT'",'"BLTBDAT"','"BLTADA 

T^iUnused, 

38 gx Unused,Unused,Unused,''DISKSYNC^,'"COPlLCH'','"COPlLCL'","CO 

P2LCH^ '"C0P2LCL^ 

39 Mu '"COPJMPl'"C0P2JMP ", "COPINS ", "DIWSTRT", "DIWSTOP", "DDFST 

RT", "DDFSTOP", 

40 LV "DMACON","CLXCON","INTENA", "INTREQ", "ADKCON","AUDOLCH", 

"AUDOLCL", 

41 9J "AUDOLEN","AUDOPER","AUDOVOL","AUDODAT",Unused,Unused," 

AUDILCH", 

42 Wr "AUDILCL", "AUDILEN", "AUDIPER ", "AUDIVOL", "AUDIDAT ",Unuse 

d,Unused, 

43 S7 "AUD2LCL", "AUD2LCH", "AUD2LEN", "AUD2PER", "AUD2V0L", "AUD2 

DAT",Unused, 

44 tG Unused, "AUD3LCL","AUD3LCH","AUD3LEN","AUD3PER","AUD3V0L 

","AUD3DAT", 

45 kV Unused,Unused,"BPLlPTH","BPLlPTL","BPL2PTH","BPL2PTL"," 

BPL3PTH", 

46 42 "BPL3PTL", "BPL4PTH", "BPL4PTL", "BPL5PTH", "BPL5PTL", "BPL6 

PTH", "BPL6PTL", 

47 Qx Unused,Unused,Unused,Unused,"BPLCONO","BPLCONl","BPLCON 

2",Unused, 

48 Su "BPLIMOD", "BPL2M0D",Unused,Unused,'"BPL1DAT","BPL2DAT"," 

BPL3DAT", "BPL4DAT", 

49 xl "BPL5DAT","BPL6DAT",Unused,Unused, 

50 hk "SPROP'TH", "SPROPTL", "SPRIPTH", "SPRIPTL", "SPR2PTH", "SPR2 

PTL", "SPR3PTH", 

51 Ir "SPR3PTL", "SPR4PTH", "SPR4PTL", "SPR5PTH", "SPR5PTL", "SPR6 

PTH", "SPR6PTL", 

52 R8 "SPR7PTH", "SPR7PTL", "SPROPOS", "SPROCTL", "SPRODATA", "SPR 

ODATB", "SPRIPOS", 

53 Al "SPRICTL", "SPRIDATA", "SPRIDATB", "SPR2P0S", "SPR2CTL", "SP 

R2DATA", 

54 AP "SPR2DATB", "SPR3POS", "SPR3CTL", "SPR3DATA", "SPR3DATB", "S 

PR4POS", "SPR4CTL", 

55 j g "SPR4DATA ","SPR4DATB","SPR5P0S","SPR5CTL","SPR5DATA","S 

PR5DATB","SPR6POS", 

56 8A "SPR6CTL ","SPR6DATA","SPR6DATB","SPR7P0S","SPR7CTL","SP 

R7DATA", "SPR7DATB", 

57 gJ "COLOROO","COLOROl","C0L0R02","C0L0R03","COLOR04","COLO 

R05", "C0L0R06", 

58 TJ "C0L0R07", "C0L0R08", "C0L0R09", "COLORIO", "COLORll", "COLO 

R12","C0L0R13", 

59 GJ ■ "COLOR14","COLOR15","C0L0R16","C0L0R17","COLOR18","COLO 

R19", "C0L0R20", 

60 rp "C0L0R21", "C0L0R22", "C0L0R23 ", "C0L0R24 ", "COLOR25 ", "COLO 

R26", "C0L0R27", 

61 lu "C0L0R28", "C0L0R29", "COLOR30", "C0L0R31" ] ; 

62 UPO ShowCopperList(StartPointer) 

63 ijl ULONG ^fStartPointer; 

64 Dz ULONG Instruction; 

65 D3 UWORD DataWord,Register,x,y; 

66 5S do 

67 5c3 ' Instruction = ^^StartPointer-H-; 

68 UX if (Instruction & 0x00010000) 

69 uV8 y = ( (Instruction >> 24) & Oxff); 

70 wW X = ( (Instruction >> 16) & Oxfe); 

71 WZ if (Instruction & 0x00000001) 

72 OZD printf("Skip $Jgx,$5{x\n",x,y); 

73 0n8 eise 

74 IHD pfintf("WAIT $J{x,$$x\n",x,y); 

75 2p3 eise 

76 4F8 DataWord = Instruction & Oxffff; 

Listing 3. »copper.c« ist ein Modul, das die 
Programmierung der Customchips erleichtert. 

Die Routine wird von »play« benötigt. 
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77 HB Register = (Instruction >> 17) & Oxff; 

78 o7 printf('^OVE $$x,J{s\n^,DataWord,RegisterNaine[Regis 

ter]); 

79 aQ2 ] while ( Instruction 1= Oxfffffffe ); 

80 230 #define DiwStop(h,v) DiwStrt(h,v) 

81 Pw DWORD DiwStrt(h,v) DWORD h,v; [ retum ((h & Oxff) ] (v < 

< 8 )); ) 

82 Y2 DWORD DDFStrt(hstart,HiRes) 

83 cNl DWORD hstart; 

84 pQ BOOL HiRes; 

85 vl if (HiRes) retum (((hstart-9) > >1) & Oxfffc); 

86 pQ eise retum (((hstart-17) > >1) & 0xfff8); 

87 8m0 DWORD DDFStop(ddfstrt,w) DWORD ddfstrt,w; { retum (ddfstr 

t + (w> >1) - 8); ] 

88 Jp CopperWait(x,y,xmask,yraask) 

89 6rDl DWORD x,y,xinask,yniask; 

90 Em if (y<256) 

91 L16 *CurrentInstr-H- = ((y << 8) ] (x >> 1)) ] 0x0001 

J 

92 2D ^^Currentlnstr-H- * ((yraask < < 8) ] (xraask >> 1)) 

& Oxfffej 

93 RQ Current0ffset+=4; 

94 L81 eise 

95 9J6 CopperWait(448,0xff,0xlff,0xff); 

96 7J CopperWait(x,y & Oxff,Oxlff,Oxff); 

97 eQO CopperMove(DataWord,Register) 

98 Ohl DWORD DataWord,Register; 

99 8w ^^CurrentInstr-H• = Register & OxOlfe; 

100 JM *CurrentInstr++ = DataWord; 

101 ZY Current0ffset+=4; 

102 8b0 CopperMoveL(Address,Register) 

103 CPl DLONG Address; 

104 gP DWORD Register; 

105 el CopperMove((DWORD)(Address> >16),Register); 

106 GN CopperMove((DWORD)(Address & 0xffff),Register+2); 

107 gYO CopperSkip(x,y,xinask,ymask) 

108 P51 DWORD x,y,xinask,ymask; 

109 kK if (y < 256) 

110 e46 *CurrentInstr++ = ((y << 8) ] (x >> 1)) ] 0x0001 

i 

111 xo *CurrentInstr++ = ((yraask < < 8) ] (xraask >> 1)) 

] 0x0001; 

112 iD CurrentInstr+=4; 

113 ahO DWORD MakeViewMode(ViewMode,Depth) 

114 jpl DWORD ViewMode,Depth; 

115 Df DWORD BplCon0=0; 

116 NT BplConO=Depth < <12; 

117 WZ if (ViewMode & HIRES) BplConO ] = HIRES; 

118 nF if (ViewMode & HAM) BplConO ] = HAM; 

119 rar if (ViewMode & DDALPF) BplConO ) = DDALPF; 

120 GG if UiewMode & EXTRAJALFBRITE) BplConO &= (HAM] DDALPF)»«0 

xffff; 

121 Ck if (ViewMode & LACE) BplConO ] = LACE; 

122 OK retum BplConO ] (l<<9); 

123 luO BOOL MakeCopperList(NewSl,NewS2,ColorMap,SecondCopperList, 

LOFCopperList) 

124 bDl register struct NewScreen *NewSl,^^NewS2; 

125 Rp char ^^ColorMap; 

126 h2 DWORD ^^SecondCopperList; 

127 Bs DWORD »LOFCopperList; 

128 9u DWORD d,J,x,y,w=NewSl->Width,h=NewSl->Height; 

129 tl DWORD r,g,b,swap; 

130 Fx struct BitMap »bra=NewSl->CustoraBitMap; 

131 AM DWORD L0FModulo=0; 

132 uV DWORD 0ddRows=0; 

133 MC BOOL Mode=FALSE; 

134 04 unsigned char »MyPtr=ColorMap; 

135 raV if (SecondCopperList) 

136 ps 6 LastCopperList=CurrentInstr=CopperList2=SecondCopper 

List; 

137 YYl eise if (LOFCopperList) 

138 Qt6 CurrentInstr=LOFCopperList; 

139 ID OddRows=bm->BytesPerRow; 

140 5sl eise 

141 VD6 if (I(CopperList=AllocMera(4096,MEMF_CHIP]MEMF_CLEAR) 

)) retum FALSE; 

142 TS LastCopperList=CurrentInstr=CopperList; 

143 vral if (ColorMap) 

144 cG6 d=l< <NewSl->Depth; 

145 JD if (NewSl->ViewModes & HAM) d=l6; 

146 Mi j=0; 


147 Yo while (d~) 

148 4eC r=»MyPtr-H-> >4; 

149 j8 g=»MyPtr++> >4; 

150 au b=»MyPtr-H->>4; 

151 ND CopperMove( (r < < 8) ] (g < < 4) ] b,C0L0R0 

0 + j); 

152 Jh j+=2; 

153 Tri if (h > 256) NewSl-> ViewModes ]= LACE; 

154 7i if (NewSl-> ViewModes & HIRES) 

155 eL6 Mode=TRDE; 

156 30 w >>= 1; 

157 nul if (NewSl-> ViewModes & LACE) 

158 tr6 h > > =1; 

159 ag LOFModulo=bra“>BytesPerRow; 

160 2S1 CopperMove(0,BPLC0Nl); /» kein Scrolling »/ 

161 S1 CopperMove(0,BPLC0N2); /» Priorität egal »/ 

162 e5 CopperMove(MakeViewMode(NewSl->ViewModes,NewSl->Depth), 

BPLCONO); 

163 We CopperMove(LOFModulo,BPLlMOD); /» Bitplanegröße==Displayg 

röße -> Modulo=0 »/ 

164 A6 Copperf<ove(L0FModulo,BPL2M0D); 

165 Dy y=4l; 

166 JO x=129-(w-320); 

167 H2 CopperMove(DiwStrt(x,y),DIWSTRT); 

168 cw CopperMove(DiwStop(x+w,y+h),DIWST0P); 

169 Tz CopperMove(d=DDFStrt(x,Mode),DDFSTRT); 

170 j 3 CopperMove(DDFStop(d,w,Mode),DDFSTOP); 

171 S1 if (bin) 

172 Tv6 d=NewSl->Depth; 

173 n9 j=0; 

174 IZ while (d~) CopperMove!(bin->Planes[j-H-]+OddRows,BPL 

1P+(J<<2)); 

175 SsO /» Alternative CopperList erstellen »/ 

176 CA /» für interlaced Display »/ 

177 Gvl if ((NewSl->ViewModes & LACE) && 1LOFCopperList) 

178 JK6 CopperMoveL(CurrentInstr+6,C0P1L); 

179 hC CopperEnd; 

180 u4 if (l(MakeCopperList(NewSl,0,ColorMap,0,CurrentInstr 

+2))) retum FALSE; 

181 861 eise if (NewSl->ViewModes & LACE && LOFCopperList) 

182 hn6 CopperMoveL(LastCopperList,COPlL); 

183 10 CopperEnd; 

184 btl eise CopperEnd; 

185 c20 /» Alternative CopperList erstellen */ 

186 BE /» für double buffered Display »/ 

187 uQl if (NewS2) 

188 xd6 if (!MakeCopperList(NewS2,0,ColorMap,CurrentInstr+2, 

0)) retum FALSE; 

189 mAl retum TRDE; 

190 tgO FreeCopperListO 

191 yOl if (CopperList) FreeMera(CopperList,4096); 

(C) 1988 M&T 


Listing 3. »copperx« (Schluß) 


Programmname: 

play.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Compiler: 

Aztec-C V3.6 

Aufrufe: 

cc +l -s +idmp play.c 


Prograramnarae: play.c 


1 jZO #define MAKELID(a,b,c,d) ( (long) (a) < <24 ) (long)(b)< 


2 IB 

3 Yz 

<16 ] (c)<<8 ] (d) ) 

#define NOTITLE NDLL 
#define FORM MAKE_ID('F', 

'0', 

’R', 

'M') 

4 y8 

#define ILBM MAKELID^I», 

'L', 

’B', 

'M') 

5 hD 

#deflne BMHD MAKE-ID^B’, 

'M', 

’H', 

’D') 

6 XW 

#define CMAP MAKELID(»C', 

•M«, 

’A', 

ipi) 
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Grafik-tools 


7 2H 

#define BODY MAKE_ID('B', '0', 'D', 'Y') 

8 Nn 

#defIne GRAB MAKILIDÖG', 'R', 'A', 'B') 

9 dk 

#define DEST MAKJLIDOD', ’E', 'S', 'T') 

10 VX 

#define SPRT MAKE_ID(‘S', 'P', 'R', 'T') 

11 pU 

#define CAMG MAKE_IDOC', 'A', 'M', ‘G') 

12 gY • 

#define CRNG MAKE_ID('C', 'R», ’N', ‘G') 

13 8H 

#define CCRT MAKE_ID('C‘, 'C', 'R', •!') 

14 rZ 

#define ANHD MAKELIdÖa', 'N', 'H', 'D') 

15 zl 

#define ANIM MAKJLID('A', ’N», 'I', 'M') 

16 pl 

#define DLTA MAKE_ID('D', 'L', 'T', »A») 

17 QR 

struct FormChunk { unsigned long FomuID; 

18 sVJ 

unsigned long Length; 

19 s3 

unsigned long ID; 

20 dZH 

): 

21 UjO 

Struct IFFChunk [ unsigned long Chunk_ID; 

22 wZI 

unsigned long Length; 

23 gcG 

1; 

24 250 

#define DIRECT 0 

25 aa 

#define XOR 1 

26 LA 

#define LONDELTA 2 

27 VF 

#define SHORTDELTA 3 

28 Sg 

#define VERTDELTA 5 

29 vW 

struct AnimHeader 

30 Rr9 

UBYTE Operation; 

31 33 

UBYTE mask; 

32 qq 

UWORD w,h; 

33 Xs 

WORD x,y; 

34 qO 

ULONG abstime; 

35 J4 

ULONG reltime; 

36 H6 

UBYTE interleave; 

37 Nz 

UBYTE padO; 

38 Yra 

ULONG bits; 

39 WO 

UBYTE pad[18]; 

40 xt8 

): 

41 4d0 

Struct BitMapHeader 

42 Qn9 

UWORD w, h; 

43 8Q 

UWORD X, y; 

44 WC 

UBYTE Planes; 

45 Is 

UBYTE masking; 

46 Oa 

UBYTE compression; 

47 dB 

UBYTE padl; 

48 hV 

UWORD transparentColor; 

49 Cr 

UBYTE xAspect, yAspect; 

50 j5 

WORD pageWidth, pageHeight; 

51 848 

]; 

52 VZO 

#define NextLong ReadLongWord(MyFile) 

53 eC 

#define LOOP 2 

54 IS 

#define CONT 1 

55 kO 

#define ONCE 0 

56 01 

struct BitMapHeader BitMapHeader; 

57 69 

struct AnimHeader AnimHeader; 

58 Ps 

struct IntuitionBase »IntuitionBase; 

59 JM 

struct GfxBase »GfxBase; 

60 9D 

struct BitMap bml,bm2; 

61 10 

extern UWORD *CopperList,*CopperList2; 

62 fk 

struct NewScreen NewSl = [ 

63 9a7 

0,0,640,256,3,0,1.HIRES,CUST0MSCREEN,NULL,N0TITLE,0 
,&bml ] ; 

64 kqO 

struct NewScreen NewS2 = ( 

65 Df7 

0,0,640,256,3,0,1,HIRES,CUSTOMSCREEN,NULL,NOTITLE,0 
,&bm2 ); 

66 dKO 

char ColorMap[192]; 

67 3g 

struct DLTAChunk ( struct DLTAChunk ^^Next; 

68 NzJ 

unsigned short Size; 

69 AfH 

} *Start=0,*Current,*Last=0; 

70 CAO 

char ^^BodyChunk; 

71 Jq 

unsigned long BodySize; 

72 pi 

BOOL Mode=ONCE,FirstTime=TRUE; 

73 qF 

UBYTE DeltaMode; 

74 8h 

ULONG MuIuTable[626]; 

75 x9 

InitMuluTable(bpr) 

76 oQl 

short bpr; 

77 Fm 

short x; 

78 E4 

for (x=0;x<626;x++) MuluTable[x]=bpr*x; 

79 YsO 

unsigned long ReadLongWord(MyFile) 

80 sDl 

unsigned long MyFile; 

81 kF 

unsigned long Buffer; 

82 2v 

Read(MyFile,&Buffer,4); 

83 wT 

re tum Buffer; 

84 gCO 

PlayAnimO 

85 001 

MakeCopperList(&NewSl,&NewS2,ColorMap,0,0); 


86 Sp 

ForbidO; 




87 jU 

DisableO; 




88 kU 

if (DeltaMode==SHORTDELTA) ShortDelta(8tBitMapHeader); 

89 CJ 

if (DeltaMode==VERTDELTA) VertDelta(&BitMapHeader); 

90 IZ 

PermitO; 




91 gZ 

EnableO; 




92 IHO 

ShortDelta(bmh) 



93 oGl 

struct BitMapHeader »tbmh; 


94 WH 

char *(^^PlanePtr) [8]=&bml.Planes[0]; 


95 7t 

char ^^^^CurrentPtr=&bm2. Planes [0]; 


96 M2 

#asm 




97 bgD 


xdef 

_CopperList,_CopperList2 

98 L50 

FOREVER: 

pea 

JBitMapHeader 


99 MUD 


Jsr 

_WriteBody 


100 Do 


add.w 

#4,sp 


101 OS 


pea 

_bm2 


102 KN 


pea 

_bml 


103 nx 


jsr 

_CopyBitMap 


104 T8 


add.w 

#8,sp 


105 IL 


movem.l 

a4/a5,-(a7) 


106 KR 


move.1 

_Start,aO 

aO = Zeiger auf Date 

107 PN 


n 

move.1 

-4(a5),d7 

Zeiger auf bml.Plane 



s[0] 



108 ce 


move.1 

-8(a5),d6 

Zeiger auf bm2.Plane 



s[0] 



109 Kb 


move.1 

_CopperList,d5 


110 kg 


move.1 

_CopperList2,d4 

111 gR 


move.w 

_Mode,d2 


112 vt 


move.w 

#$0000000110100000,$dff096 ;dma sp 



erren 



113 6c 


move.1 

d5,$dff080 


114 az 


clr.w 

$dff088 


115 BI 


move.w 

# 01111111111111111,$dff 09c 

116 RX 


move.w 

#$ffff,d3 


117 wX 


move. 1 

a0,a4 


118 g9 


move.w 

#32,$dff09c 

VBL-RequestBit löse 



hen 



119 nvO 

WaitNext: 

move.w 

$dff01e,d0 ; 

auf den nächsten VBL 


warten 




120 ziD 


and.w 

#32,d0 


121 PH 


beq 

WaitNext 


122 TY 


move.w 

#$8000,$dff02a ; LOF B 



it setzen 



123 EU 


move.w 

# $1000000110000000,$dff096 ;Copper 



und Plane DMA an 


124 GTO 

NextFrame: 

lea 

6(a0),al 

; Zeiger auf Differen 


zdaten 




125 MdD 


move. 1 

al,a5 

; al sichern 

126 WZ 


move. 1 

d6,a3 

; Zeiger auf Planes[0 



] in a3 



127 wF 


bra 

dstart 

; Schleife starten 

128 8B0 

dloop: 

move. 1 

d0,a2 

; Offset in a2 

129 b9D 


adda.l 

a5, a2 

; absolute Adresse be 



rechnen 



130 73 


move.1 

(a3)+,a6 

; a6=Zeiger auf Bitpl 



euie 



131 iVO 

wloop: 

move.w 

(a2)+,dl 

; Datenwort holen 

132 TXD 


bmi 

next 

; negativ ? ja -> ne 



xt 



133 Sc 


add.w 

dl,dl 

; dl 2 

134 qD 


add.w 

dl,a6 

; Adresse des Wortes 



zu a6 addieren 


135 FR 


move.w 

(a2)+,(a6) 

; in Bitplane schreib 



en 



136 sM 


bra 

wloop 

; nächstes Wort 

137 H90 

next: 

eor.w 

d3,dl 


138 7gD 


beq 

dstart 

;dl=0 ? ja -> next p 



lane 



139 S2 


add.w 

dl, dl 

dl verdoppeln 

140 Kl 


add.w 

dl,a6 

Adresse des ersten W 



ortes in 

der Bpi 


I4l Iv 


move.w 

(a2)+,d0 

Anzahl holen und ... 

142 r6 


bra 

copystart 


143 XCO 

copyloop: 

move.w 

(a2)+,(a6)+ 


144 nc 

T 

copystart: 

dbra 

dO,copyloop 

kopieren 
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145 InD 


suba.w 

#2,a6 ; BitplaneZeiger korr 


211 Be 


move.w 

#32,$dff09c 

VBL-RequestBit löse 



igieren 





hen 



146 zD 


bra 

wloop ; weiter geht's 


212 aWO 

WaitNextl: 

and.w 

#32,$dff01e 

auf den nächsten VB 

147 elO 

dstart: 

move.1 

(al)+,dO ; Zeiger auf Daten inn 



L warten 





erhalb des 

Dhunks 



213 GPD 


beq 

WaitNextl 


148 EKD 


bne.s 

dloop ; ungleich 0 ? ja -> 


214 x2 


move.w 

#$8000,$dff02a ; LOF B 



nächste 

Plane 




it setzen 


149 Rw 


and.w 

#1024,$dff016 ; rechte Maustaste g 


215 iy 


move.w 

#$1000000110000000,$dff096 ;Copper 



edrückt 

? 




und Plane DMA an 


150 35 


beq 

Exit 


216 ivO 

NextFramel: 

lea 

6(a0),al 

Zeiger auf Differen 

151 bP 


andi.b 

#64,$bfe001 ; linke Maustaste gedr 



zdaten 






ückt 



217 5PD 


move. 1 

al,d5 

al sichern 

152 HJ 


bne 

Skip 


218 Hy 


move. 1 

-8(a5),a3 

Zeiger auf Planes[0 

153 OcO 

WaitMousel: 

andi.b 

#64,$bfe001 




] in a3 



154 ADD 


beq 

WaitMousel 


219 Fp 


bra 

dstartl 

Schleife starten 

155 JEO 

Skip: 

exg 

d6,d7 ; Zeiger auf Planes[0] 


220 auO 

dloopl: 

move. 1 

d0,a2 

Offset in a2 


austauschen 




221 BmD 


adda.l 

d5,a2 

absolute Adresse be 

156 RyD 


exg 

d4,d5 ; Zeiger auf CopperList 




rechnen 





austauschen 


222 tv 


move. 1 

(a3)+,d6 

d6=Zeiger auf Bitpl 

157 x7 


move.1 

(a0),a0 ; Ende der Animation 




ane 



158 pR 


cmpa.l 

#0,a0 ; erreicht ??? 


223 VT 


move. w 

d4,d3 

d3=Zähler für Spalt 

159 Xs 


bne.s 

NotEnd 




en 



160 YH 


cmpi.w 

#0,d2 


224 NL 


subq.w 

#l,d3 


161 01 


beq.s 

Exit 


225 IKO 

Sloop: 

clr.w 

dO 


162 dN 


cmpi.w 

#l,d2 


226 AOD 


move.b 

(a2)+,d0 

Anzahl der Opcodes 

163 HB 


beq.s 

Loop 


227 2x 


move.1 

d6,a6 

Zeiger auf Bitplane 

164 Kl 


movem.1 

(a7)+,a4/a5 




in a6 



165 44 


move.w 

#$0000000110100000,$dff096 ;DMA sp 


228 Vc 


bra 

OpStart 

Schleife starten 



erren 



229 JhO 

OpLoop: 

clr.w 

dl 

dl löschen 

166 We 


bra 

FOREVER 


230 eSD 


move.b 

(a2)+,dl 

Opcode holen 

167 VCO 

Loop: 

move.1 

a4,a0 ; wieder von Anfang an 


231 It 


bne.s 

not-same 

ungleich 0 ? Ja -> 

168 8aD 


move.1 

(a0),a0 




not same 


169 8g0 

NotEnd: 

move.w 

#32,$dff09c 


232 ox 


move.b 

(a2)+,dl 

Opcode = same : dl= 

170 pV 

WaitFrame: 

move.w 

$dff01e,d0 ; auf nächsten 




Anzahl 



171- BJD 


and.w 

#32,dO ; VBL 


233 KQ 


subq.w 

#l,dl 


172 Qt 


beq 

WaitFrame ; warten... 


234 bF 


move.b 

(a2)+,d7 ; 

Datum holen 

173 3x 


move.w 

#$8000,$dff02a ; LOF Bit setzen ( 


235 870 

floop: 

move.b 

d7,(a6) ; 

und kopieren 



falls Interlace) 


236 5SD 


adda.w 

d4,a6 ; 

Zeiger um Spaltenan 

174 It 


move.1 

d5,$dff080 ; neue Copperliste 




zahl erhöhen 


175 QN 


clr.w 

$dff088 ; und in CopperPC 1 


237 Wy 


dbra 

dl,floop ; 

nächstes Bytes 



aden 



238 p3 


dbra 

dO,OpLoop 


176 vn 


bra.s 

NextFrame ; nächstes Bild bea 


239 TD 


addq 

#l,d6 




rbeiten 



240 Gf 


dbra 

d3,Sloop 


177 4J0 

Exit: 

movem. 1 

(a7)+,a4/a5 


241 Jp 


move.1 

(al)+,d0 ; 

Zeiger auf Daten in 

178 HHD 


move.w 

#$0000000110100000,$dff096 ;DMA sp 




nerhalb 

ies Chunks 




erren 



242 N3 


bne.s 

dloopl ; 

ungleich 0 ? Ja -> 

179 Gv 


move. 1 

_GfxBase,a0 ; alte CopperList 




nächste 

Plane 


180 sd 


move.1 

38(a0),$dff080 ; zurück schreiben 


243 Da 


bra 

RMouse 


181 RG 


clr.w 

$dff088 ; und starten 


244 vjO' 

not-same: 

bmi.s 

uniq ; 

bit 7 gesetzt ? Ja 

182 JV 


move.w 

#$1000000110100000,$dff096 ; DMA w 



-> uniq 






ieder an 



245 CcD 


add.w 

dl,dl 


183 bVl 

# endasm 




246 Pb 


add.w 

dl,dl ; 

dl *= 4 

184 ALO 

VertDelta(bmh) 



247 BL 


adda.l 

(a4,dl),a6 


185 Ikl 

struct BitMapHeader *brah; 


248 zD 


dbra 

dO,OpLoop 


186 01 

char * (*PlanePtr) [8] =&bnil. Planes [0]; 


249 dN 


addq 

#l,d6 


187 bN 

char *^^CurrentPtr=&bin2. Planes [0]; 


250 Qp 


dbra 

d3,Sloop 


188 FR 

short BytesPerRow=((bmh->w) > >4)< <1; 


251 Dr 


move.1 

(al)+,d0 

; Zeiger auf Daten i 

189 Kp 

ULONG Swapl 

,Swap2,Start; 




nnerhalb 

des Chunks 


190 sY 

#asm 




252 v4 


bne.s 

dloopl 

; ungleich 0 ? Ja - 

191 7CD 


xdef 

.CopperList,_CopperList2 




> nächste Plane 


192 Du 


move. 1 

-CopperList,-14(a5) 


253 Nk 


bra 

RMouse 


193 Hq 


move.1 

_CopperList2,-18(a5) 


254 nXO 

uniq: 

and.b 

#127, dl 

; opcode = uniq : Bi 

194 PQO 

FOREVERl: 

pea 

JitMapHeader 



t 7 löschen 




195 u2D 


Jsr 

-WriteBody 


255 gmD 


subq.w 

#l,dl 


196 IM 


add.w 

#4,sp 


256 ZtO 

copyloopl: 

move.b 

(a2)+,(a6) 


197 wO 


pea 

_btn2 


257 mVD 


adda.w 

d4,a6 ; 

a6 um Spaltenanzahl 

198 SV 


pea 

_bml 




erhöhen 



199 LV 


Jsr 

-CopyBitMap 


258 8u 


dbra 

dl,copyloopl 


200 lg 


add.w 

#8,sp 


259 RGO 

OpStart: 

dbra 

dO,OpLoop 


201 qt 


movem.1 

a4/a5,-(a7) 


260 oYD 


addq 

#l,d6 


202 sz 


move.1 

-Start,aO ;a0 Zeiger auf Date 


261 MEO 

sstart: 

dbra 

d3,Sloop 




n 



262 NN 

dstartl: 

move.1 

(al)+,d0 j 

Zeiger auf Daten in 

203 Av 


move.w 

_Mode,d2 



nerhalb des 

Chunks 



204 PN 


move.w 

#$0000000110100000,$dff096 ;draa sp 


263 iOD 


bne.s 

dloopl ; 

ungleich 0 ? Ja -> 



erren 





nächste 

Plane 


205 Bh 


move.1 

-CopperList,$dff080 


264 kOO 

RMouse: 

Eind.w 

#1024,$dff016 

; rechte Maustaste g 

206 4T 


clr.w 

$dff088 



edrückt ? 




207 fm 


move.w 

# 01111111111111111,$dff09c 


265 YUD 


beq 

Exitl 


208 kr 


move.1 

a0,-22(a5) 


266 XY 


andi.b 

#64,$bfe001 

; linke Maustaste ge 

209 4Q 


move.w 

-10(a5),d4 ; d4=Anzahl der Spalte 




drückt 





n 



267 m8 


bne 

skipl 


210 8f 


lea 

-MuluTable,a4 


268 LVO 

WaitMouse2: 

andi.b 

#64,$bfe001 
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269 76D 


beq 

WaitMouse2 



338 az 

cpstart: dbra d6,cploop 

270 FxO 

skipl: 

raove.1 

-4(a5),d7 



339 7MD 

bra cstart 

271 IPD 


move.1 

-8(a5),-4(a5) 


340 JIO 

eise: move.b (a0)+,d7 ;x=ReadPointer-H- 

272 tv 


move.1 

d7,-8(a5) 

; Zeiger auf Planes 


341 qPD 

neg.b d6 ;n = -n 



[0] austauschen 



342 fq 

addq.b #l,d6 jn-H- 

273 h4 


raove.1 

-I4(a5),d7 



343 VS 

add.b d6,d5 jcount += n 

274 kW 


raove.1 

-18(a5),-l4(a5) 


344 6H 

bra xcstart 

275 Ih 


move.1 

d7,-18(a5) 

; Zeiger auf CopperList 


345 byO 

xcloop: move.b d7,(a3)+ 



austauschen 



346 NL 

xcstart: dbra d6,xcloop 

276 s2 


move.1 

(aO),a0 

; Ende der Animation 


347 Kq 

cstart: crap.b dl,d5 

277 kM 


cmpa.1 

#0,a0 

; erreicht ??? 


348 QkD 

bne.s cloop 

278 Ht 


bne.s 

NotEndl 



349 VJO 

pstart: dbra d3,ploop 

279 TC 


cmpi.w 

#0,d2 



350 9xD 

add.w dl,d4 ;PlaneOffset+=bpl 

280 xl 


beq.s 

Exitl 



351 JsO 

hstart: dbra dO,hloop 

281 YI 


crapi.w 

#l,d2 



352 KEl 

# endasm 

282 qe 


beq.s 

Loopl 



353 f40 

/* 

283 Fg 


movera.l 

(a7)+,a4/a5 



354 521 

ReadPointer=BodyChunk; 

284 zz 


move.w 

#$0000000110100000,$dff096 ;DMA sp 


355 AU 

while (h~) 



erren 




356 617 

J=d; 

285 Xw 


bra 

FOREVERl 



357 70 

CurrentPtr=PlanePtr; 

286 OTO 

Loopl: 

move.1 

-22(a5),a0 

; wieder von Anfang 


358 Lh 

while (j—) 


an 





359 qlD 

pointer=*CurrentPtr-H- + PlaneOffset; 

287 3VD 


move.1 

(a0),a0 



360 9s 

count=0; 

288 170 

NotEndl: 

move.w 

#32,$dff09c 


361 12 

while (count 1= bpi) 

289 DW 

WaitFrame1 

and.w 

#32,$dff01e 

; auf nächsten 


362 LNG 

if ((n = *ReadPointer-H-) >= 0) 

290 yLD 


beq 

WaitFramel 

; warten... 


363 nqL 

n-H-; 

291 xr 


move.w 

# $8000,$dff02a ; LOF Bit setzen ( 


364 aC 

count += n; 



falls Interlace) 



365 rL 

while (n—) *pointer-H-=*ReadPointer-H- 

292 Ix 


move.1 

-l4(a5),$dff080 ; neue Copperl 



; 



iste setzen 



366 jWG 

eise 

293 KH 


clr.w 

$dff088 

; und in CopperPC 1 


367 VRL 

X = ^^ReadPointer-H-; 



aden 




368 Pz 

n = -n; 

294 TF 


bra.s 

NextFramel 

j nächstes Bild bea 


369 tw 

n++; 



rbeiten 




370 gl 

count += n; 

295 wbO 

Exitl: 

movem.l 

(a7)+,a4/a5 



371 4x 

while (n— ) *pointer-H-=x; 

296 BBD 


move.w 

# $0000000110100000,$dff096 jDMA sp 


372 ln8 

PlaneOffset += bpi; 



erren 




373 4T1 

*/ 

297 Ap 


move. 1 

_GfxBase,a0 

; alte CopperList 


374 KIO 

CopyBitMap(s,d) 

298 mX 


move. 1 

38(a0),$dff080 ; zurück schreiben 


375 4G1 

struct BitMap *s,*d; 

299 LA 


clr.w 

$dff088 

; und starten 


376 xO 

char p=s->Depth,J=0; 

300 DP 


move.w 

# $1000000110100000,$dff096 ; DMA w 


377 ua 

register unsigned long c; 



ieder an 



378 ZU 

unsigned long size = s- > BytesPerRow * s->Rows; 

301 VPl 

# endasm 





379 kp 

register char *sp,*dp; 

302 GOO 

WriteBody(bnih) 




380 5X 

while (p— ) 

303 Cel 

struct BitMapHeader *bmh; 



381 C09 

c=size; 

304 uf 

char *(*PlanePtr)[8]=&bml.Planes[0] ; 


382 JV 

sp=s->Planes [j ]; 

305 oD 

char **CurrentPtr,*ReadPointer,^^pointe^; 


383 y4 

dp=d-> Planes[j ++]; 

306 rh 

unsigned short h=bml 

-> h,bpl=bmh- > w > > 3,d=bmh- > Planes, 


384 mp 

while (c —) <^dp++=»sp++; 


Plane0ffset=0; 




385 RNO 

FreePlanes(bm) 

307 HN 

unsigned 

short j,countj 



386 Drl 

register struct BitMap *bm; 

308 NI 

char n,x; 





387 Ns 

unsigned short p=bm->Depth,bpr=bra->BytesPerRow,r=bra->R 

309 hT 

#asra 






ows; 

310 iXD 


clr.l 

•dO 



388 5R 

unsigned short planesize=bpr*r; 

311 Ib 


clr.l 

dl 



389 Jh 

char j=0; 

312 of 


clr.l 

d2 



390 XE 

APTR PlanePtr; 

313 qc 


raove.1 

_BodyChunk,a0 ;a0 = Zeiger auf Dat 


391 qH 

while (p —) if (PlanePtr=bm-> Planes[J-H-]) FreeMem(PlaneP 



en 





tr,planesize) ; 

314 ih 


move.1 

-4(a5),al 

;Zeiger auf Planes[0 


392 ZfO 

CloseAnira(bra) 



] 




393 Aql 

struct DLTAChunk »Terap; 

315 16 


move.w 

-18(a5),d0 

dO s Anzahl der Zeilen 


394 Ui . 

FreeCopperList(); 

316 bR 


move.w 

-20(a5),dl 

dl = Bytes pro Zeile 


395 i5 

FreePlanes(&bml); • 

317 rf 


move.w 

-22(a5),d2 

d2 = Anzahl der Planes 


396 p8 

FreePlanes(&bra2); 

318 Zu 


clr.l 

d4 

d4=Plane0ffset 


397 ql 

if (BodyChunk) FreeMera(BodyChunk,BodySize); 

319 om 


clr.l 

d6 

d6=n=0 


398 bN 

Current=Start; 

320 Eu 


clr.l 

d5 

Plane0ffset=0 


399 L6 

while (Current) 

Temp=Current-> Next; 

321 DO 


clr.l 

d3 



400 tI3 

322 7X 


clr.l 

d7 



401 00 

FreeMem(Current,Current->Size); 

323 Ga 


bra 

hstart 



402 JI 

Current=Terap; 

324 nikO 

hloop: 

move.w 

d2,d3 



403 7el 

Start=Current=Last=0; 

325 wxD 


move.1 

al,a2 ;a2=CurrentPtr 


404 VrO 

MakeColorMap(ThisView) 

326 xP 


bra 

pstart 



405 CLl 

struct ViewPort »ThisView; 

327 euO 

ploop: 

move.1 

(a2)+,a3 ;a3=pointer 


406 H9 

char »c=ColorMap; 

328 pSD 


add.l 

d4,a3 ; 

h= PlaneOffset 


407 Ih 

unsigned short i,d=l< <BitMapHeader.Planes; 

329 yL 


clr.b 

d5 ; count=0 


408 JY 

unsigned short r,g,b; 

330 cJO 

cloop: 

clr.w 

d6 



409 S4 

for (i=0;i<d;i++) 

331 3AD 


move.b 

(a0)+,d6 ;n 

=ReadPointer++ 


410 kn7 

r=*c++> >4; 

332 dK 


tst.b 

d6 



411 PH 

gs#c-H->>4; 

333 sl 


bmi 

eise 



412 G3 

b=#c-H-> >4; 

334 Xi 


addq.b 

#l,d6 ;n++ 


413 hi 

SetRGB4(ThisView,i,r,g,b); 

335 nk 


add.b 

d6,d5 jcount += n 


4l4 tXO 

BOOL InitRaster(bm,w,h,d) 

336 XX 


bra 

cpstart 





337 WRO 

cploop: 

move.b 

(a0)+,(a3)+ 
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WRAFIK-TOOLS 

Fonts mit allen Iticks 


Der Amiga wird selbst mit vielen ver¬ 
schiedenen Zeichensätzen spielend fer¬ 
tig. Bisher gab es aber nur wenige Pro¬ 
gramme, mit denen Zeichensätze zu be¬ 
arbeiten oder selbst zu erstellen sind. Mit 
dem »Fbntdesigner« wird das anders. 


D urch die Darstellung 
von Texten als Grafik 
stehen dem Amiga- 
Anwender zahlreiche Zeichen¬ 
typen zur Wahl. Eine Vielzahl 
verschiedener Standardfonts 
steht bereit. Aber kreative 
Amiga-Benutzer möchten na¬ 
türlich auch eigene Zeichen¬ 
sätze entwerfen oder beste¬ 
hende ändern. Genau dieser 
Wunsch wird mit dem »Fontde¬ 
signer« Wirklichkeit. Bearbei¬ 
ten Sie mit dem Fontdesigner 
alle Amiga-Zeichensätze, die 
eine Höhe von 50 Punkten 
nicht überschreiten. Sogar ein 
Programmiermodus ist enthal¬ 
ten, mit dem gezielt Zeichen¬ 
sätze oder auch Teile daraus 
geändert werden. In Tabelle 1 
(Seite 53) finden Sie eine Be¬ 
schreibung aller Fähigkeiten 
dieses Programms. 

Der Fontdesigner ist in der 
Programmiersprache C ge¬ 
schrieben. Geben Sie die Li- 
stings 1 bis 6 mit dem Check¬ 
summer (Seite 159) ein. Nach¬ 
dem die Listings alle einzeln 
auf einer Diskette gespeichert 
wurden, verwenden Sie die 
Hinweise in Tabelle 2a (für 
Aztec-Compiler V3.4a) bezie¬ 
hungsweise Tabelle 2b (für 
Lattice-Compiler), um das Pro¬ 
gramm zu compilieren und zu 
linken. Besitzen Sie die 
Programmservice-Diskette, 
entfällt diese Arbeit natürlich. 


die lauffähige Version befindet 
sich auf dieser. 

Bevor Sie das Programm 
starten, noch einige Tips: 

Der Fontdesigner benötigt 
den CLI-Befehl »Assign« beim 
Laden von Zeichensätzen. 

Letzte 

Vorbereitungen 

Falls Sie nur ein Laufwerk be¬ 
sitzen, sollten Sie den Font¬ 
designer in der Startup- 
Sequence starten und alle 
Fonts auf dieser Diskette ver¬ 
walten, um sich häufiges 
Wechseln der Diskette zu er¬ 
sparen. Außerdem sollten Sie 
in jedem Fall dafür sorgen, daß 
die Datei »Assign« im Verzeich¬ 
nis »c« und die Datei »disk- 
font.library« im Verzeichnis 
»libs« auf Ihrer Bootdiskette zu 
finden sind. Besitzen Sie zwei 
Laufwerke, booten Sie einfach 
mit Ihrer Workbench; haben 
Sie nur ein Laufwerk, so sollten 
Sie die beiden genannten Da¬ 


teien auf Ihre Fontdesigner- 
Diskette In die richtigen Ver¬ 
zeichnisse kopieren. 

Nachdem Sie das Pro¬ 
gramm mit 

Fontdesigner <RETURN> 

vom CLI aus gestartet haben, 
gelangen Sie in den Hauptbild¬ 
schirm (Bild 1). Von hier aus 
werden alle Funktionen des 
Programms kontrolliert; dies 
geschieht durch Anklicken des 
gewünschten »Schalters«. Der 
Hauptbildschirm ist — auch 
wenn er nicht so aussieht 
ein ganz normales Amlga- 
Fenster, so daß mit Hilfe der 
Gadgets oben rechts andere 
Fenster nach vorne geklickt 
werden können, um das Multi¬ 
tasking des Amiga zu nutzen. 

Den größten Teil des Bild¬ 
schirms nimmt die Zeichenma¬ 
trix ein. Da sie 64 Kästchen 
breit und 50 Kästchen hoch ist, 
verarbeitet das Programm 
Fonts mit einer maximalen 
Größe von 64 mal 50 Punkten. 

Um einen Punkt in der Ma¬ 


trix zu setzen, wird er einfach 
mit der linken Maustaste ange¬ 
klickt, die rechte Maustaste 
dient zum Löschen bereits ge¬ 
setzter Punkte. Sie können 
durch Überfahren der Matrix 
mit niedergehaltener linker 
Maustaste In diese sozusagen 
»hineinmalen«. 

Wichtig: Base- 
und Heipiine 

In der Matrix befinden sich 
ferner ein Rechteck und zwei 
Linien in oranger Farbe (alle 
Farbangaben gelten für eine 
Workbench, auf der die Bild¬ 
schirmfarben der Orlginal- 
Workbench-Dlskette nicht ver¬ 
ändert wurden). Das Rechteck 
umgrenzt das Feld, das beim 
Speichern eines Zeichensat¬ 
zes auf die Diskette geschrie¬ 
ben wird — es gibt also die Grö¬ 
ße der Zeichen an. Die waage¬ 
rechte Linie Ist die sogenannte 
Baseline, die bei der Gestal¬ 
tung von Unterlängen (etwa 
beim »g«) wichtig ist (Bild 2). 
Die senkrechte Linie Ist die 
»Helpline« — sie hat bei den 
Funktionen »spiegeln« und 
»Scrollen« eine wichtige Be¬ 
deutung. 

Das Feld neben dem »PRO- 
GRAMM«-Schalter dient zur 
Anwahl des Zeichens, das man 
bearbeiten will. Bevor eine Ver¬ 
änderung des Zeichensatzes 
durchgeführt werden kann, 
müssen natürlich erst einmal 
die vorhandenen Schriftarten 
(Fonts) von Diskette in den Ar¬ 
beitsspeicher geladen werden. 
Verwenden Sie dazu den 
Schalter »LOAD«. Genaues 
hierzu finden Sie weiter unten. 

Im obersten Feld steht der 
ASCII-Code des aktuellen Zei¬ 
chens; klickt man dieses Feld 
an, kann ein neuer Code mit 
der Tastatur eingegeben wer¬ 
den. Mit den beiden Pfeilen 
wird die Zahl im obersten Feld 
hinauf- und heruntergezählt. 
Wenn Sie einen bestimmten 
Buchstaben bearbeiten wol¬ 
len, tippen Sie ihn einfach per 
Tastatur ein. 

Rechts neben der Zeichen¬ 
matrix befinden sich zwei klei¬ 
ne Fenster. Das obere Fenster 
stellt den In der Zeichenmatrix 
vergrößert dargestellten Buch¬ 
staben in Normalgröße dar. Im 
unteren Fenster ist der Inhalt 
eines Zwischenspeichers zu 
sehen, der von den »SNP«- und 
»CPY«-Funktionen verwendet 
wird. 


Rechteck begrenzt 
Buchstabenbereich 


bearbeitetes Zeichen 



Zeichen an 
Helpline spiegeln 


Buchstaben an 
Baseline spiegeln 


- DEL. SNR CPY für ganze 
Matrix 

_ DEL. SNP. CPY nur für 
umrahmten Bereich 

— Zeichen/Matrix löschen 

_ Zeichen/Matrix In 

Zwischenspeicher ablegen 

_ Zwischenspeicher in Matrix 
kopieren 


Zwischenspeicher 
Scrolling 

Scrollquadranten 
Buchstabenbreite 
-|— Buchstaben höhe 
Baselinehöhe 


Helplineposition 


Buchst, rotieren 


Buchst, invertieren 


\ bearbeitetes Zeichen 
gesamten Zeichens, anzeigen 
Programmodus einschalten 
Buchstaben bereichsweise verschieben 


Bild 1. Der »Fontdesigner« gestattet kreative Veränderungen an den Zeichensätzen. 
Sogar die Programmierung diverser Änderungen ist vorgesehen. 
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Oben rechts im Hauptdis¬ 
play befinden sich fünf Schal¬ 
ter mit den Aufschriften ALL, 
MAT, DEL, SNP und CPY 
ALL und MAT 

Ist ALL aktiviert, gelten die 
unteren drei Befehle für die ge¬ 
samte Zeichenmatrix; ist MAT 
eingeschaltet, gelten sie nur 
für den Bereich des gelben 
Rechtecks. 

DEL 

Der gerade bearbeitete 
Buchstabe wird gelöscht. 

SNP 

Kopiert den aktuellen Buch¬ 
staben in einen Zwischenspei¬ 
cher. 

CPY 

Kopiert den Zwischenspei¬ 
cher in die Matrix. 

Unterhalb der gerade be¬ 
schriebenen Schalter befindet 
sich das Scrollfeld. Es besteht 
aus den Richtungssymbolen 
und dem Quadrantenfeld In 
der Mitte. Die Helpline und die 
Baseline teilen die orange um¬ 
randete Buchstabenmatrix In 
vier Quadranten, die alle ein¬ 
zeln in alle Richtungen ge- 
scrollt werden können. Bevor 
sie also den Scroll-Vorgang mit 
einem Mausklick auf einen der 
Richtungspfeile starten, müs¬ 
sen Sie den gewünschten 
Quadranten im Quadranten¬ 
feld anklicken. Vorsicht: 
Aus dem Quadranten »heraus- 
gescrollte« Punkte gehen ver¬ 
loren! Sie sind dann nur noch 
durch »UNDO« zu retten, wenn 
zwischendurch keine andere 
Operation durchgeführt wurde. 
Die Schalter XM, YM, BL 
und HL 

Mit diesen Schaltern wird die 
Größe des orangen Rechtecks 
sowie die Position von Help- 
und Baseline eingestellt. Mit 
XM ändert man die Höhe der 
Matrix; mit YM ihre Breite. BL 
und HL verschieben die Posi¬ 
tion der Base- beziehungswei¬ 
se Helpline. Um die angezeig¬ 
ten Zahlenwerte zu ändern, 
klickt man mit der Maus auf 
den gewünschten Pfeil. Die 
Pfeilspitze zeigt dabei in die 



Richtung, In die sich die jeweili¬ 
ge Linie oder Rechteckbegren¬ 
zung verschiebt. Sollen die 
Zahlenwerte mit der Hand ein¬ 
gegeben werden, so klickt man 
auf die zu ändernde Zahl und 
gibt den neuen Wert mit der Ta¬ 
statur ein. 

Unterhalb der Zeichenma¬ 
trix befinden sich weitere Be¬ 
fehle des Programms, die wie 
gewohnt mit der Maus ange¬ 
klickt werden. Sie beziehen 
sich nur auf das orange umran¬ 
dete Rechteck. 

MIRR_H 

Der Buchstabe wird an der 
Helpline gespiegelt. 

MIRR_B 

Der Buchstabe wird an der 
Baseline gespiegelt. 

Rotieren, 

spiegeln, 

vergrößern 

ROTATE 

Der ganze Buchstabe wird 
um 90 Grad nach links ver¬ 
dreht. Dazu werden innerhalb 
der Gelb umrandeten Matrix 
die Zellen und Spalten ver¬ 
tauscht. 

INVERT 

Der Buchstabe wird Inver¬ 
tiert. 

EXPAND_X und EXPAND_Y 

Der Buchstabe wird in X- be¬ 
ziehungsweise Y-Richtung 
vergrößert. 

LOAD 

Lädt einen Zeichensatz von 
der Diskette. Beim Anklicken 
von LOAD erscheint der LOAD- 
Requester (Bild 3), In dem der 
gewünschte Zeichensatz zum 
Laden ausgewählt wird. Das 
Programm lädt nun automa¬ 
tisch das Verzeichnis 
»DFOifonts« und zeigt es auf 
dem Bildschirm an. Um einen 
Zeichensatz von einem ande¬ 
ren Diskettenlaufwerk zu la¬ 
den, klicken Sie einfach auf 
»DF1:«, »DF2:« oder »DF3:«. 
Dann wird das »Fonts«- 
Verzeichnls des gewählten 
Laufwerks angezeigt. Mit Hilfe 


der beiden Pfeile wird ein Ver¬ 
zeichnis hinauf- und herunter- 
gescrollt, falls es nicht vollstän¬ 
dig in das Ausgabefenster 
paßt. Wollen Sie aus einem Un¬ 
terverzeichnis in das überge¬ 
ordnete (also eine Ebene hö¬ 
her liegendes) Verzeichnis 
springen, klicken Sie auf 
»PARENT«. Um beliebige 
Verzeichnis- und Device- 
Namen eingeben zu können, 
klickt man das Feld rechts ne¬ 
ben «Drawer« mit der Maus an 
und gibt den gewünschten Na¬ 
men per Tastatur ein. 

Wie Sie sicher wissen, befin¬ 
den sich im Verzeichnis »fonts« 
für jeden Zeichensatz ein Un¬ 
terverzeichnis (Beispiel: »ru- 
by«) und eine Steuerdatei (Bei¬ 
spiel: »ruby.font«). Der Fontde¬ 
signer stellt Unterverzeichnis¬ 
se In Gelb und Dateien in 
Schwarz dar. Wichtig für das 
Laden von Zeichensätzen sind 
nur die Unterverzeichnisse! 
Wollen Sie also zum Beispiel 
von Ihrer Workbench-Diskette 
den Zeichensatz »ruby« laden, 
so klicken Sie auf das Unter¬ 
verzeichnis »ruby«. Sie sehen 
dann In schwarzer Farbe die 
von diesem Zeichensatz vor¬ 
handenen Font-Höhen. Nach 
einem Klick auf die gewünsch¬ 
te Höhe und auf »OK« wird der 
ausgewählte Zeichensatz ge¬ 
laden. Eines sollten Sie aller¬ 
dings beachten: Zeichensätze 
mit einer Höhe von mehr als 50 


kann der Fontdesigner nicht 
bearbeiten. 

Beschleunigtes 

Directory 

Da der Amiga beim Laden 
von Verzeichnissen bekannter¬ 
maßen nicht gerade schnell ist, 
läßt sich mit einem Klick auf 
»FAST« ein Fast-Directory im 
momentan ausgewählten Ver¬ 
zeichnis erzeugen. Besonders 
interessant ist das natürlich für 
die »fonts«-Verzelchnisse Ihrer 
Disketten. Beim Speichern ei¬ 
nes Zeichensatzes wird das 
Fast-Directory im Verzeichnis 
»fonts« daher auch automa¬ 
tisch auf den neuesten Stand 
gebracht. Verändern Sie ande¬ 
re Verzeichnisse, so ist das 
Fast-Directory mit einem weite¬ 
ren Klick auf »FAST« zu aktuali¬ 
sieren. 

Wenn Sie Ihre Zeichensätze 
nicht nach der auf dem Amiga 
üblichen Methode (also im Un¬ 
terverzeichnis »fonts«) abspei¬ 
chern, beachten Sie bitte die 
Hinweise in der Tabelle 3. 

Sie müssen nicht immer den 
gesamten Zeichensatz laden. 
Geben Sie bei »FROM ASCII« 
den Bereichsanfang und bei 
»TO ASCII« das Bereichsende 
an. Die Eingaben dabei bezie¬ 
hen sich auf die Nummer des 
ASCII-Zeichens (65 entspricht 
beispielsweise dem großen 
»A«, 98 dem kleinen »a«). 



Bild 2. So muß die Baseline bei Unterlängen verwendet 
werden, damit das »g« richtig auf der Zeile sitzt 
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Bild 4. Durch Auswahl im »PROGRAMM«-Fenster wird vieles 
automatisch erledigt. 


Streng genommen läßt sich 
auch ein einzelnes Zeichen 
aus einem Zeichensatz laden. 
Der restliche Zeichensatz im 
Speicher wird dabei nicht ge¬ 
löscht. Wählen Sie ALL, wird 
der gesamte Zeichensatz gela¬ 
den. 

Um den angewählten Zei¬ 
chensatz zu laden, klickt man 
schließlich »OK« an; »CAN- 
CEL« dient zum Abbruch der 
Funktion. 

SAVE 

Zeichensatz abspeichern. 
Wie schon bei LOAD öffnet 
sich ein weiteres Fenster, in 
dem verschiedene Eingaben 
erfolgen können: 

1. Der vollständige Font- 
Name, also der Pfadname, der 
zu diesem Font führt. 

2. »HEIGHT« ist die Font-Hö¬ 
he. Es wird, falls Sie die Höhe 
nicht ändern, automatisch der 
Wert für YM (Y-Matrix) benutzt. 

3. »LO CHAR« und »HIGH 
CHAR«: Nicht jeder Zeichen¬ 
satz muß alle ASCII-Codes 
ausfüllen. In diesen beiden 
Feldern steht der erste »LO« 
beziehungsweise der letzte 
»HIGH«-ASCII-Code, der zu 
diesem Font gehört. Verändern 
Sie diese Werte — falls nötig — 
durch einfaches Anklicken mit 
der Maus und anschließender 
Eingabe des Wertes über die 
Tastatur. 

Proportional 
oder nicht? 

4. »PROPORTIONAL« und 
»FIXED WIDTH«: Bei einem 
Proportionalzeichensatz kann 
jeder Buchstabe eine indivi¬ 
duelle Breite besitzen (sie wird 
vom Programm beim Spei¬ 
chern automatisch berechnet); 

»Flxed-Width«-Zelchensätze 
haben dagegen bei allen Zei¬ 
chen die Breite, die bei »XM« 
eingestellt wurde. Wählen Sie 
also mit der Maus, wie Ihr Zei¬ 
chensatz abgespeichert wer¬ 
den soll. 

5. »OK«: Zeichensatz spei¬ 
chern. Da der Speichervor¬ 
gang vor allem bei größeren 
Zeichensätzen einige Minuten 
dauern kann, werden während 
des Spelcherns In der linken 
oberen Ecke des Bildschirms 
einige Zwischenmeldungen 
angezeigt: 

»Writing xxxx.font«: Die 
».font«-Datei für den jeweiligen 
Zeichensatz wird erzeugt. 

»Examining Font«: Interne 
Berechnungen werden durch¬ 
geführt. 

»Writing char data«: Der ei¬ 
gentliche Zeichensatz wird ge¬ 
schrieben. 

»Creating new Fast-Dir«: Das 


Fast-Dlrectory wird (falls eines 
vorhanden war) aktualisiert. 

Falls Sie die Meldung »Error! 
Font not saved!« bekommen 
sollten, haben Sie wahrschein¬ 
lich versucht, einen Zeichen¬ 
satz in ein nicht existierendes 
Verzeichnis zu speichern. 

6. »GET NAME«: Name wie 
unter LOAD beschrieben aus¬ 
wählen. 

7. »CANCEL«: Zeichensatz 
nicht speichern. 

Mehr Komfort 
mit UNDO 

UNDO 

Dieser Befehl macht die letz¬ 
te Operation rückgängig. 

MOVE 

Verschiebung von Zeichen 
innerhalb eines Zeichensat¬ 
zes. Sie müssen bei MOVE drei 
Zahlenwerte in das geöffnete 
Fenster eingeben: 

1. Bei »FROM ASCII«: den 
Anfang des Bereichs, der ver¬ 
schoben werden soll. 

2. Bei »UNTIL ASCII«: das 
Ende dieses Bereichs. 

3. Bei »TO ASCII«: den An¬ 
fang des Bereichs, an den ver¬ 
schoben werden soll. 

Beispiel: Sie möchten die 
Zeichen mit den ASCII-Codes 
65 bis 90 nach 128 verschie¬ 
ben. Dann Ist FROM ASCII- 
65; UNTIL ASCII=90; TO 
ASCII=128. 

PROGRAMM 

Dies ist eine der interessan¬ 
testen Funktionen von »Font- 
Designer«! Möchten Sie bei ei¬ 
nem Zeichensatz mehrere 
ASCII-Codes auf die gleiche 
Art und Weise verändern, kön¬ 
nen Sie das getrost dem Amiga 
überlassen. Geben Sie dazu in 
den entsprechenden Feldern 
den ersten (»START«) und letz¬ 
ten ASCII-Code (»END«) sowie 
die Schrittweite (»STEP«) an. 
Nun werden die einzelnen 
Funktionen ausgewählt, die 
der Amiga mit dem gewählten 
Zeichenbereich durchführen 
soll. 

Die Aufschrift der Schalter 
entspricht In etwa der Auf¬ 
schrift im Hauptdisplay (Bild 4). 
»Ql« bis »04« bezeichnen die 
Quadrantenauswahl für das 
Scrollen. Dabei steht »01« für 
oben links, »02« für oben 
rechts, »03« für unten links und 
»04« für unten rechts. Das 
»Programm« wird einfach mit 
Hilfe von Mausklicks auf die 
gewünschten Felder eingege¬ 
ben. Sollten Sie sich »vertippt« 
haben, so läßt sich das einge¬ 
gebene Programm durch ei¬ 
nen Klick auf »PZ« löschen. 
Schließlich wird der Vorgang 
mit »GO« gestartet — mit die¬ 


sem Schalter kann das Pro¬ 
gramm auch wieder abgebro¬ 
chen werden. Rechts unten be¬ 
findet sich der PZ (Programm¬ 
zähler), in dem der zuletzt ein¬ 
gegebene Programmschritt 
angezeigt wird. 

Die Programm- 
Automatik 

Ein Beispiel: Sie wollen 
sämtliche kleinen Buchstaben 
ihres Zeichensatzes nach links 
drehen. Dann geben Sie nach 
dem Klick auf »PROGRAMM« 
bei »START« 97 und bei »END« 
123 ein. Nun klicken Sie einmal 
auf »ROT«. Daraufhin erscheint 
bei »PZ« der gerade eingege¬ 
bene Programmschritt »ROT«. 
Nun starten Sie das Ganze mit 
»GO«. Rechts unten neben 
dem Programmfenster wird 
der ASCII-Code des gerade 


bearbeiteten Zeichens ange¬ 
zeigt. 

Verlassen Sie dieses Fen¬ 
ster durch Betätigen des 
Schlleß-Gadgets oben links. 

SHOW 

Zeigen des gesamten Zei¬ 
chensatzes. Von jedem Zei¬ 
chen wird der durch das oran¬ 
ge Rechteck umgrenzte Be¬ 
reich In Originalgröße ange¬ 
zeigt. Sollten alle Zeichen nicht 
auf einmal auf den Bildschirm 
passen, wird mit der rechten 
Maustaste weitergeschaltet. 
Die linke Maustaste beendet 
die Ausgabe. 

Um sich mit den vielen Fä¬ 
higkeiten des Fontdesigners 
vertraut zu machen, brauchen 
Sie einfach ein bißchen 
Übung. Ein Vorschlag: Versu¬ 
chen Sie doch einmal, Ihre 
Lieblingszeichensätze mit 
deutschen Sonderzeichen zu 
versehen. (Richard Aretz/ 
Andreas Lietz/rs) 


— Zeichensätze sind bis zu einer Größe von 64 x 50 Punkten 
zu bearbeiten. 

— Das angewählte Zeichen wird in einer Matrix vergrößert 
und In Originalgröße dargestellt. Um es zu verändern, 
»malt« man mit der Maus in die Matrix. 

— Ein Zeichen ist in einen Zwischenspeicher zu kopieren, um 
es an anderer Stelle zu verwenden. 

— Zeichen invertieren, spiegeln, drehen, vergrößern, scrol- 
len. 

— Mit UNDO Befehle rückgängig machen. 

— Mit Hilfe eines Programm-Modus diese Veränderungen 
bei vielen Zeichen automatisch durchführen. 

— Alle Zeichen auf einmal in Originalgröße anzelgen. 

— Zeichen innerhalb eines Zeichensatzes bereichsweise 
verschieben. 

— Standard-Amiga-Zelchensätze laden und speichern. 

— Zeichensätze mit Proportionalschrift oder gleichbleiben¬ 
der Breite speichern. 


Tabelle 1. Was kann der Fontdesigner? 

Die Kurzübersicht zeigt alle Vorzüge des Programms. 
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COMPILIEREN: 

cc hO.c +1 -s 

CG hl.c +1 -s 

cc h2.c +1 -s 

cc h3.c +1 -s 

cc fontdesigner +1 -s 

LINKEN: 

ln fontdesigner.o hO.o hl.o h2.o h3.o -lm32 -lc32 


Tabelle 2a. Die Compiler- und Linker-Anweisungen für den 
Aztek-C-Compiler, Version 3.4a 


COMPILIEREN: 

Ic hO 
Ic hl 
Ic h2 
Ic h3 

Ic fontdesigner 
LINKEN: 

blink LIB:c.o + fontdesigner.o + hO.o + hl.o + h2.o + 
h3.o LIB LIB:ainiga.lib + LIB: m.lib + LIB: c.lib 


Tabelle 2b. Die Anweisungen für den Lattice-C-Compiler 


Unter normalen Umständen ist es das beste, wenn Sie Ihre 
Zeichensätze immer In einem Verzeichnis mit dem Namen 
»fonts« verwalten. Sollten Sie sie aber In ein anderes Verzeich¬ 
nis speichern wollen (z.B. bei Verwendung einer Festplatte), 
dann beachten Sie bitte, daß der Amiga beim Laden von Dis¬ 
kettenfonts den Befehl »Assign fonts: newdir:« benötigt, wobei 
»newdir« für den Namen Ihres Fontverzeichnisses steht. Der 
»Assign«-Befehl wird normalerweise von Fontdesigner auto¬ 
matisch bei der Auswahl eines anderen Diskettenlaufwerks für 
das Verzeichnis »fonts« dieser Diskette ausgeführt. 

Um den Befehl auf Ihr Zeichensatzverzeichnis manuell an¬ 
zuwenden, klicken Sie im LOAD-Requester einfach auf 
»ASSIGN«, sobald Sie Ihr Zeichensatzverzeichnis ausgewählt 
haben. Dann können Sie den gewünschten Font-Namen an¬ 
klicken, sich In dem nun erscheinenden neuen Verzeichnis 
eine Font-Höhe aussuchen und den Zeichensatz laden. 

Falls Sie den Klick auf »ASSIGN« vergessen sollten, er¬ 
scheint die Meldung »I can’t find this font«, und der Zeichen¬ 
satz »topaz 8« wird automatisch geladen. Sollte Ihnen das pas¬ 
sieren, klicken Sie Im LOAD-Requester auf »PARENT«, an¬ 
schließend auf »ASSIGN« und dann auf den Namen Ihres Zei¬ 
chensatzes. Nach dem Klick auf »OK« sollten nun keine Pro¬ 
bleme mehr auftreten. 


Tabelle 3. Wichtige Hilfestellung bei Problemen mit dem 
Fontdesigner 


Programmname: »Fo ntdesigner« 

Computer: A500, A1000, A2000 mit Kickstart 1.2 

_ Sprache: C _ 

Compiler: Aztec-C V3.4a / Lattice-C 

Aufrufe: siehe Tabelle 2a bzw. 2b 

Bemerkung: siehe Tabelle 3 sowie Text 


Programm : FontDesigner 


1 HyO /* —(FontDesigner)-File test.c (Hauptprogramm)- 

- */ 

2 H6 #include 'Header.h'' 

3 82 /*- Globale Variablen - 

- 

4 XO struct IntuitionBase ^^IntuitionBase; 

5 rU struct GfxBase »GfxBase; 

6 cl ULONG DiskfontBase,DosBase; 

7 K9 long XMatrix=8,YMatrix=8,BaseLine=7,HelpLine=4,DMode=l,Ascii 

=65; 

8 Kd long Quadrant=l,undoasci1=65; 

9 Az struct TextFont ^^tftopaz,*tfuser; 

10 I4 struct Window ^twind; 

11 ht struct RastPort *rast; 

12 xK ULONG *cmatrix; 

13 wt BYTE ^^drawmera; 

14 h6 struct Image *oiraa,*driraa,*raima; 

15 PI struct FilelnfoBlock *f_info; 

16 qh ULONG maske[]= 

17 Dg ( 

18 mC3 0x80000000,1073741824,536870912,268435456,134217728,67108 

864, 

19 Gr 33554432,16777216,8388608,4194304,2097152,1048576,524288, 

20 17 262144,131072,65536,32768,16384,8192,4096,2048,1024,512,2 

56,128, 

21 r2 64,32,16,8,4,2,1, 

22 fbO ] ; 

23 Gr ULONG cmemo[100],scmemo[100],undoraem[100]; 

24 ev extern short recdat[][4],FAscii,TAscii; 


•HAUPTPROGRAMM 


ULONG dass; 

USHORT Code; 

short mox,moy,i,raode,j; 

long *adr,*point; 

BYTE flag=0; 

! OplibsO; 

if(GetMeraory(l) <0) 

I 

I Shure(3); 

CllibsO; 

exit(O); 

) 

if(Display()<0) 

{ 

Shure(3); 

CllibsO; 

GetMemory(O); 
exit(O); 

) 

tfuser=tftopaz=rast-> Font; 

FOREVER 

[ 

Wait(1< < wind- > UserPort- > mp_SigBit); 
while(ExaIntui(wind,&class,&code)) 

( 

raox=wind-> MouseX;moy=wind-> MouseY; 
switch (dass) 

[ 

case CLOSEWINDOW: 

if(Shure(0)==l)break; 

if(flag==l)[ ReraFont(tfuser);CloseFont(tfuser 

); ] 

CloseWindow(wind); 

GetMemory(O); 

CllibsO; 

exit(O); 

case VANILLAKEY: 

adr=craatrix+100*Ascii;point=undomem; 

undoascii=Ascii; 

for(j=0;J < =99;j-H-,point++,adr++)*point=*adr; 
Ascii=code; 
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68 tra 

AsciiOutO; 

69 CQ 

Mera_to_Matrix(); 

70 3C 

break; 

71 bzC 

case MOUSEBUTTONS: 

72 wu 

if(codeI=SELECTDOWN && CodeI=MENUDOWN)break; 

73 6f 

mode=l; 

74 d9 

if(code==MENUDOWN)mode=0; 

75 X5 

i=Prurec(raox,raoy,recdat,0,40); 

76 3t 

lf(i<0)break; 

77 kl 

if(i>=4 && i<=15){ ChangeMatrix(i);break; ] 

78 Pn 

IfU 1= 32) 

79 Dg 

[ 

80 YOF 

adr=craatrix+100«Ascii;point=undoraera; 

81 Qz 

undoascii=Ascii; 

82 pX 

f or (j =0; J < =99; J ++, point-f+, adr-H-) «point=«adr; 

83 LqC 

1 

84 rah 

if(1> =29)Invert(rast,recdat[i]); 

85 pf 

switch (i) 

86 Kn 

{ 

87 WpF 

case 0: Drawlnto(mode);break; 

88 XV 

case 1: case 2: case 3: 

89 nml 

ChangeAscii(i-l); 

90 NW 

break; 

91 zcF 

case 16: 

92 Rgl 

if(DMode==l)break; 

93 bO 

DMode=l; 

94 79 

Invert(rast,recdat[16]);Invert(rast,recdat 
[17]); 

95 Sb 

break; 

96 71F 

case 17: 

97 Uil 

if(DMode==0)break; 

98 dl 

DMode=0; 

99 CE 

Invert(rast,recdat[16]);Invert(rast,recdat 
[17]); 

100 Xg 

break; 

101 Y8F 

case 18: case 19: case 20: 

102 oPI 

Invert(rast,recdat[i]); 

103 Jq 

Delete(i-18); 

104 xy 

Invert (rast,recdat[i]); 

105 cl 

break; 

106 bXF 

case 21: case 22: case 23: case 24: 

107 tUI 

Invert(rast,recdat[i]); 

108 ik 

Scroll(i-21); 

109 vW 

Invert(rast,recdat[i]); 

110 hq 

break; 

111 iaF 

case 25: case 26: case 27: case 28: 

112 xll 

if((i-25)==Quadrant)break; 

113 c8 

Invert(rast,recdat[Quadrant+25]); 

114 fN 

Quadrant=i-25; 

115 Ic 

Invert(rast,recdat[i]); 

116 nw 

break; 

117 OxF 

case 29: case 30: Mirror(i-29);break; 

118 Qe 

case 31: Rotate();break; 

119 nX 

case 32: Undo();break; 

120 ra2 

case 33: Revers();break; 

121 R4 

case 34: 

122 dUI 

if(flag==l){ RemFont(tfuser);CloseFont(tfu 
ser); ] 

123 Vt 

flag=l; 

124 TU 

j=LoadDiskFont(); 

125 Zf 

if(j==-3)[ flag=0;Shure(3);break; ] 

126 pt 

if(j==-2){ flag=0;break; j 

127 TK 

if(J==-l) 

128 OT 

l 

129 IgL 

tfuser=tftopaz; 

130 q3 

Shure(l); 

131 by 

flag=0; 

132 8dl 

1 

133 MG 

lf(flag.=l)Shure(6); 

134 17 

eise Shure(7); 

135 xl 

for(j=FAscii;j <=TAscii;j-H-) 

136 2ML 

Font_to_Mem(j); 

137 GUI 

Shure(6); 

138 78 

Ascii=65; 

139 Sb 

XMatr ix=tfuser- > tf_JCSize; 

140 xl 

if(XMatrix > 64)XMatrix=64; 

l4l Ci 

YMatrix=tfuser-> tf_YSize; 

142 Q2 

if(YMatrix > 50)YMatrix=50; 

143 J1 

BaseLine=tfuser-> tf_Baseline; 

144 Ff 

if(BaseLine > 50)BaseLine=49; 

145 WU 

HelpLine=XMatrix/2; 

146 Rf 

Mera_to_Matrix(); 


URAFIK-TOOLS 


147 cn 

AsciiOutO ;Matout(); 

148 JS 

break; 

149 nAF 

case 35: case 36: 

150 in 

if(i==35) Expand_x(); 

151 2g 

eise Expand_y(); 

152 NW 

break; 

153 oYF 

case 37: SaveFont();break; 

154 kN 

case 38: Prograrara();break; 

155 NZ 

case 39: Show();break; 

156 uu 

case 40: MoveAscii();break; 

157 X2C 

j 

158 yt 

if(i> =29)Invert(rast,recdat[i]); 

159 Z49 

) 

160 a56 

) 

I6l b63 

i 

162 c70 ] 


(C) 1987 M&T 

Listing 1. 

Das Programm »fontdesigner« ist in der 

Sprache C geschrieben. Geben Sie das Listing bitte mit 

dem Checksummer (Seite 159) ein. Beachten Sie bitte 

die Compiler- und Linker-Anweisungen in Tabelle 2a 

beziehungsweise 2b. 


Programmname: hO.c 

Computer: s. Listing 1 

Programnmame: hO.c 


1 UO — (FontDesigner)-File hO.c-*/ 

2 9E #include <exec/meniory.h> 

3 Rg #include < intuition/intuition.h> 

4 L9 #include <Intuition/intuitionbase.h> 

5 3q #include <libraries/dos.h> 

6 i5 #include <graphics/gfxmacros.h> 

7 MB #include 'Header.h'^ 

8 aN /* -Externe Variablen aus raain- 

- */ 

9 TS extern struct TextFont »tfuser,^^tftopaz; 

10 48 extern short *drawmera; 

11 18 extern long XMatrix,YMatrix,BaseLine,Asciij 

12 Az extern ULONG »craatrix; 

13 nb extern struct FilelnfoBlock *f_info; 

14 fl extern struct RastPort «rast; 

15 JL extern struct Iraage «oiraa,«rairaa; 

16 GY /«- Daten für GetFilenarae() - 

-V 

17 Xo short fdat[][4]= 

18 IB3 [ 10,16,48,28 ] , 

19 9b ( 69,16,107,28 ), 

20 yi [ 128,16,166,28], 

21 13 { 187,16,225,28 ], 

22 2X [ 248,16,302,28 ) , 

23 Mb ( 70,33,302,45 ], 

24 kC ( 10,50,272,152 ] , 

25 Bg [ 282,50,302,60 ], 

26 jL [ 282,142,302,153 ] , 

27 PO ( 10,174,194,186 ], 

28 gA { 10,191,64,203 ] , 

29 DI ( 248,191,302,203 ] , 

30 03 ( 264,174,302,186 j , 

31 El ( 202,174,256,186 ], 

32 Sa [ 10,157,128,169 ], 

33 4P [ 149,157,251,169 ], 

34 ZN ( 272,157,302,169 ] , 

35 c8 { 97,191,215,203 ], 

36 tpO ]; 

37 8n char »ftxt[]i 

38 cc3 'DFO: 'T)F1:'DF2: 'T)F3: ", "PARENT", "DRAWER", 

OK", 

39 NH "CANCEL", "FAST", "ASSIGN", "FROM ASCII: ", "TO ASCII: ", "ALL 

f 

40 dp "10 Error: none", 

41 yuO ]; 

42 ai short fpfeil[][7]= 

43 uI3 { 292,51,284,59,300,59,-2 ], 


Listing 2. »hO.c« bitte mit dem Checksummer eingeben 
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44 w9 { 292,151,284,143,300,143,-2 j , 

45 2y0 ]; 

46 wl struct Stringinfo gf_infol,gf_info2; 

47 nF struct Gadget gf_gad2= 

48 D83 NULL,14,177,178,9,GADGHC0MP,NULL,STRGADGET, 

49 if NULL,NULL,NULL,NULL,&gf_info2,l,NULL, 

50 730 }; 

51 pG struct Gadget gf_gadl= 

52 NR3 &gf_gad2,74,36,228,9,GADGHC0MP,RELVERIFY,STRGADGET, 

53 hd NULL,NULL,NULL,NULL,&gf_infol,l,NULL, 

54 B70 ]; 

55 Oa char edrawer[100] = 'T)F0:fonts^; 

56 zA char efname[100]; 

57 tT short FAscii=0,TAscii=255; 

58 rl - Daten für SaveFont() - 

- »/ 

59 YM unsigned long ublockl[]= 

60 Cy3 0x3f3,0,l,0,0,0x35e,0x3e9,0x35e,0x70004e75,0,0,0x0c0000 

00, 

61 39 0x001a0f80,0x00010000,0,0,0,0,0,0,0,0,0,0,0xc00,0xla,0, 

62 zO 0,0x0062000f,0x00060001,0,0x6e,0x66e0000,0x9f20000,0xbb 

40000 

63 KGO j; 

64 fU unsigned long ublock2[]= 

65 3W3 0,0x03ec0000,0x00060000,0x0,OxOOOeOOOO,0x00440000,0x005 

cOOOO, 

66 Th 0x00620000,0x00660000,0x006a0000,0,0x03f20000, 

67 OKO j ; 

68 zT short sdat[][4]s 

69 t43 { 10,16,64,28 }, 

70 Zs ( 74,16,300,28 j, 

71 ID { 10,33,88,45 ], 

72 VF { 88,33,190,45 j, 

73 6M { 190,33,300,45 ], 

74 XY ( 10,50,112,62 ], 

75 pro { 206,50,300,62 } , 

76 Wt { 10,67,64,79 }, 

77 R9 ( 246,67,300,79 ], 

78 k4 { 120,67,190,79 ), 

79 aWO ); 

80 SK char »stxt[]s 

81 wK3 "DRAWER^, 'HIGHT: "LOW CHAR; ", "HIGH CHAR: ", "PROPORTI 

ONAL", 

82 5r "FIXED WIDTH"," OK", "CANCEL", "GET NAME", 

83 eaO ); 

84 Vn struct Stringinfo s_info; 

85 pE struct Gadget s_gad= 

86 f63 NULL,78,19,218,9,GADGHC0MP,NULL,STRGADGET, 

87 UO NULL,NULL,NULL,NULL,&s_info,l,NULL, 

88 jfO ]; 

89 te char fontbreit[256]; 

90 Ih /*h0.1-Diskfont laden- 

-V 

91 oe BYTE LoadDiskFontO 

92 fi struct TextAttr txtatr; 

93 5K BYTE erfolg,hmem[100]; 

94 DJ long i; 

95 x7 double atof(); 

96 mQ static BYTE count=0; 

97 uJ3 if(count==0) 

98 L86 strcpy(efname,""); 

99 fH strcpy(edrawer,"DFOrfonts"); 

100 8U count++; 

101 ss3 erfolg=GetFilenaine(edrawer,efnaine); 

102 ry if (erfolg < 0) retum (erfolg); 

103 gE strcpy(hinera,edrawer); 

104 OX strcpy(edrawer+strlen(edrawer),".font"); 

105 uf txtatr.t8L_Name=edrawer; 

106 Gw txtatr.ta_YSize=(UWORD)atof(efname); 

107 HT txtatr.t8LjStyle=0; 

108 tN txtatr. t€L_Flags=0; 

109 up tfuser=OpenDiskFont(&txtatr); 

110 k5 i=0; 

111 Ww if(tfuser==0) 

112 UP6 tfuser=tftopaz; 

113 Pn 1=-1; 

114 s63 edrawer[strlen(edrawer)-5]=0; 

115 Oq retum(l); 

116 OSO /^^hO.2-Filename Holen- 

- 

117 Iw BYTE GetFilenaine(drawer, filename) 

118 Ga char filename[],drawer[]; 

119 fF ULONG flags=WINDOWDRAG] WINDOWCLOSE] WINDOWDEPTH] SMARTJREFRE 



SH) 

120 JFC 

ACTIVATE; 

121 DIO 

ULONG iflags=MOUSEBUTTONS] CLOSEWINDOW) GADGETUP] GADGETDOWN] 
DISKINSERTED; 

122 xd 

struct Window *wn; 

123 HX 

struct RastPort *rp; 

124 PV 

BYTE i,offs=3,*naraes,*point,flag,mode=0; 

125 KY 

short mox,moy; 

126 n7 

ULONG dass; 

127 v8 

USHORT Code; 

128 81 

short fzahl,Start=l,nr,aktdrive=0; 

129 EP 

short DirScrollO; 

130 wJ3 

wn=Make_Window(20,10,320,209,"GET FILENAME",flags,iflag 
s,0); 

131 Fl 

if(wn==0) retum(-3); 

132 eg 

names=AllocMem(1024,MEMF_CLEAR); 

133 pm 

lf(names==0) retum(-3); 

134 Bv 

rp=wn->RPort; 

135 Ic 

SetAPen(rp,l);RectFill(rp,0,11,320,209); 

136 9d 

Box(rp,2,12,317,207,0,JAM1); 

137 IJ 

for(U0;i<=17;i-H-) 

138 J96 

SetAPen(rp,0); 

139 Ul 

ReotniKrp, fdat[i] [0], fdat[l] [1], fdat [1] [2], fdat[i] 

[3])i 

140 Uh 

Box(rp,fdatCi][0],fdat[i][1],fdat[i][2],fdat[i][3],2 


,JAM1); 

I4l Ki 

Box(rp,fdat[l]fdat[l][1],fdat[l][2]+l,fdat[l][ 
3],2,JAM1); 

142 mT 

lf(l==5) 

143 1D9 

offs=-57;SetAPen(rp,0); 

144 L5 

RectFill(rp,10,33,64,45); 

145 2Z6 

eise offs=3; 

146 Hq 

Text_out(rp,fdat[l][0]+offs,fdat[lKl]+3.3.0,JAM2,ft 

xt[l],0); 

147 qY3 

FDrawPolygon(rp,fpfeil[0],3,JAM2); 

148 wf 

FDrawPolygon(rp,fpfeil[l],3,JAM2); 

149 XF 

gf_infol.Buffer=drawer;gf_info2.Buffer= filename; 

150 al 

gf.infOl.UndoBuffersNULL;gf_info2.UndoBuffer=NULL; 

151 RD 

gf_infol.MaxChars=100;gf_info2.MaxChars=100; 

152 bO 

AddGadget(wn,&gf_gadl,-1);AddGadget(wn,&gf_gad2,-1); 

153 Pr 

RefreshGadgets(&gf_gadl,wn,NULL); 

154 Or 

fzahl=GetDir(names,drawer,mode); 

155 qN 

DirOut(rp,names,Start,fzahl); 

156 41 

FOREVER 

157 ww6 

while (Exalntui(wn,&class,&code)) 

158 ZJ9 

mox=wn-> MouseX;moy=wn-> MouseY; 

159 DV 

switch (dass) 

160 OCC 

case CLOSEWINDOW: 

161 luF 

flag=-2; 

162 5zC 

ende: 

163 3vF 

FreeMem(names,1024); 

164 zx 

ReraoveGadget(wn,&gf_gadl);RemoveGadget(wn,& 
gf_gad2); 

165 FZ 

CloseWindow(wn); 

166 BK 

retum(flag); 

167 oiC 

case DISKINSERTED: 

168 zHF 

strcpy(drawer,ftxt[aktdrive]); 

169 al 

strcpy(&drawer[4],"fonts"); 

170 uZ 

Assign(drawer); 

171 dAC 

case GADGETUP: case GADGETDOWN: 

172 UF 

RefreshGadgets(&gf_gadl,wn,NULL); 

173 JA 

fzahl=GetDir(names,drawer,mode); 

174 ZO 

startsl; 

175 Ah 

DirOut(rp,names,Start,fzahl); 

176 lu 

break; 

177 JhC 

case MOUSEBUTTONS: 

178 bpF 

if(code 1= SELECTDOWN)break; 

179 zS 

i=Prurec(mox,moy,fdat,0,16); 

180 JZ 

if(i<0)break; 

181 cq 

, if(l!=6 && i<l4)Invert(rp,fdat[i]); 

182 wV 

switch(i) 

183 Ael 

case 0: case 1: case 2: case 3: case 4: 
case 12: 

184 mpL 

if(il=4 && 11=12) 

185 n50 

aktdrive=i; 

186 GR 

strcpy(drawer,ftxt[i]); 

187 s3 

strcpy(&drawer[4],"fonts"); 

188 Cr 

Assign(drawer); 

189 sfL 

eise 

190 VBO 

if(i==4) 

191 LWQ 

Parent(drawer); 

192 IXL 

if(i==12)mode=l; 

193 dU 

fzahl=GetDir(names,drawer,mode); 
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Grafik-tools 


194 IZ 



mode=0; 


264 vf6 

switch (mode) 

195 K9 



start=l; 


265 Vs9 

case 7: 

196 V2 



DirOut(rp,names,Start,fzahl); 


266 DpC 

if(start>l) 

197 cd 



Invert(rp,fdat[i]); 


267 mHF 

Start--; 

198 7G 



break; 


268 IK 

DirOut(wn-> RPort,names,Start,fzahl); 

199 PlI 



case 6: 


269 GPC 

break; 

200 pQL 



nr=(raoy-52)/10+start; 


270 c09 

case 8: 

201 OF 



if (nr> =fzahl)break; 


271 olC 

if(Start<(fzahl-10)) 

202 RC 



l=52+(nr-start)»10; 


272 h8F 

start-H-; 

203 vq 



SetDrMd(rp,COMPLEMENT); 


273 6P 

DirOut(wn-> RPort,names,Start,fzahl); 

204 9U 



Rectfill(rp,11,i,271,i+7); 


274 LUC 

break; 

205 raj 



Delay(5);RectFill(rp,11,i,271,i+7); 


275 Um6 

if (Exalntui(wn, Sjclass, &code) )break; 

206 dY 



point=names; 


276 RS3 

retum( Start); 

207 5K 



for(i=l;i< =nr-l;i++) 


277 VZO 

/»hO.3---Direktory laden- 

208 WtO 



point-H-; 



-»/ 

209* cB 



point+=s trlen(point)+1; 


278 LR 

short GetDir(namen,dirname,mode) 

210 gKL 



moy=»po in t; po int-H-; 


279 ZS 

BYTE mode; 

211 uY 



if(moy==l) 


280 oX 

char »namen,»dirname; 

212 ToO 



if(drawer[strlen(drawer)-l] 1= 


281 hc 

struct FileLock »lockp; 




) 


282 Tc 

register short anz; 

213 yKR 



strcpy(drawer+strlen(drawer),V 


283 qm 

short flag; 




\0"); 


284 Ln 

char »point=namen; 

214 qjO 



strcpy(drawer+strlen(drawer),point 


285 p93 

if((lockp=Lock(dirnarae,ACCESS_READ))==0) 




); 


286 fG6 

retum(-l); 

215 zq 



fzahl=GetDir(names,drawer,mode); 


287 he3 

if(Examine(lockp,f_info)==0)return(-1); 

216 fU 



start=l; 


288 g4 

if(f_info-> fibJ)irEntryType<0) retum(-l); 

217 qN 



DirOut(rp,names,Start,fzahl); 


289 Kd 

flag=FastDir(0,dimame,point,anz); 

218 I2L 



eise strcpy(filename,point); 


290 CO 

if(flag>0 && mode==0) 

219 Sb 



break; 


291 S16 

SortDir(point,flag); 

220 wMI 



case 7: case 8: 


292 DM 

re tum (flag); 

221 aEL 



start=DirScroll(wn,names,Start,fzahl. 


293 y23 

while(ExNext(lockp,f_info)==-l) 




i); 


294 8o6 

if(f_info-> fib_DirEntryType < 0) 

222 12 



Invert(rp,fdat[i]); 


295 4k9 

*naraen=0; 

223 Wf 



break; 


296 b06 

eise 

224 Lei 



case 10: case 11: 


297 Ar9 

»namen=l; 

225 aqL 



if(i=d0) flag=0; 


298 Bb6 

namen++; 

226 AZ 



eise flag=-2; 


299 Ym 

strcpy (namen, f_info-> fib_FileName); 

227 ef 



Delay(5);Invert(rp,fdat[i]); 


300 5v 

namen+=(strlen(f_info-> fib_FileName)+l); 

228 92 



goto ende; 


301 Ml 

anz-H-; 

229 4el 



case 13: 


302 f23 

UnLock(lockp); 

230 FML 



ModifyIDCMP(wn,wn->IDCMPFlags&(»»ÖDISK 


303 J2 

if (IoErr()==ERR0IUI0_M0R£LJ:NTRIES) 




INSERTED)); 


304 1U6 

if(mode==l) FastDir(l,dimame,point,anz); 

231 tY 



Assign(drawer); 


305 Jf 

SortDir(point,anz); 

232 HN 



ModifyIDCMP(wn,wn-> IDCMPFlags] DISKIN 


306 pA 

retum(anz); 




SERTED); 


307 pD3 

eise retum(-l); 

233 CD 



Invert(rp,fdat[i]); 


308 FsO 

/»hO.4 - Direktory ausgeben - 

234 hq 



break; 



-i-v 

235 Dol 



case 14: 


309 JB 

void DirOut(rp,names,Start,max) 

236 VIL 



SetAPen(rp , 3 ); SetDrMd ( rp,JAM2 ); 


310 cG 

char »names; 

237 Z8 



FAscii=(short)input_zahl(wn,fdat[l4] [ 


311 JZ 

struct RastPort »rp; 




0]+91, 


312 XG 

short Start,max; 

238 Pik 



fdat[l4][l]+ 


313 zr 

short xa=13,ya=52,i,anz=max-start; 




3,3,"^); 


314 5F 

char färbe; 

239 awL 



if(FAscil<0 1] FAscii>TAscii)FAscli 


315 YH3 

SetAPen(rp,0);Se tDrMd ( rp,JAMI ); 




=0; 


316 F3 

RectFill(rp,11,51,271,151) ; 

240 nw 



break; 


317 Zf 

for(i=l;i<=start-l;i-H-) 

241 Myl 



case 15: 


318 z56 

names++; 

242 bOL 



SetAPen(rp,3);SetDrMd(rp,JAM2) ; 


319 y4 

names+=strlen(naraes)+l; 

243 L6 



TAscii=(short)input_zahl(wn,fdat[15] [ 


320 JT3 

if(anz>10)anz=10; 




0]+75, 


321 ET 

for( i=l; i < =anz; i-H-,ya+=10) 

244 Yvn 



fdat[15][ 


322 Rk6 

färbe=2; 




l]+3,3,"'') 


323 wG 

if(»names==l) 




> 


324 Wq9 

farbe=3; 

245 vML 



if(TAscii>255 ]] TAscii<FAscii)TAsc 


325 6C6 

names-H-; 




ii=255; 


326 3S 

Text_out(rp,xa,ya,farbe,0,JAM2,names,0) ; 

246 t2 



break; 


327 60 

names+=strlen(names)+l; 

247 V8I 



case 16: 


328 eqO 

/»hO.5 - Io Fehler ausgeben - 

248 RSL 



Invert(rp,fdat[i]); 



-»/ 

249 UR 



FAscii*0;TAscii=255; 


329 HF 

void ErrOut(rp) 

250 Kb 



Delay(5); 


330 cs 

struct RastPort »rp; 

251 Jb 



Invert(rp,fdat[16]) ; 


331 28 

long err; 

252 z8 



break; 


332 2A 

char htxt[15]; 

253 ITF 



RefreshGadgets(&gf_gadl,wn,NULL); 


333 raw3 

err=IoErr(); 

254 9c9 


ErrOut(rp); 


334 Gj 

if(err<103 ]] err >231) 

255 qbO 

/♦— 

Unterfunktion zu hO.2 — »/ 


335 tB6 

strcpy(htxt,ftxt[17]); 

256 45 

short DirScroll(wn,names,Start, f zahl,mode ) 


336 F23 

eise 

257 8o 

struct 

Window 

»wn; 


337 oY6 

sprintf(htxt,'^10 Error: ^3*0f(float)err) ; 

258 mQ 

char »names; 



338 al3 

Textu.out ( rp, f dat [ 17] [0] +3, f dat [ 17] [ 1] +3,3, 0 , JAM2, htxt, 1 

259 3U 

short 

start, f zahl,mode ; 



4); 

260 xH 

ULONG 

dass; 



339 6G 

sprintf(htxt, ''jC3.0f (float)FAscii); 

261 51 

USHORT Code; 





262 wE3 

Delay(10); 





263 nU 

FOREVER 
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340 wl Text_out(rp,fdat[l4][0]+91,fdat[l4][l]+3,3,0,JAM2,htxt. 


returnO; 

case MOUSEBUTTONS: 

if(code != SELECTDOWN)break; 
i=Prurec(mox,moy,s dat,2,9); 
if(i<0) break; 

SetAPen(rp,l); 

switch(i) 
case 2: 

YMatrix=(long)input_zahl(wn,61,36,2 


sprintf(htxt, '^?f3.0f',(float)TAscii); 
Text_out(rp,fdat[15][0]+75,fdat[15][l]+3,3,0,JAM2,htxt, 


Fast Directory lesen oder erzeugen 


short FastDir(mode,drawer,nara,anz) 
char mode,*drawer,^^nam; 
short anz; 

ULONG datei; 

char dateiname[80],text[10],^^point=nam; 
short bytes=0,i; 

strcpy(dateinarae,drawer); 
if(drawer[strlen(drawer)-l]=s':') 

strcpy(text, ''fd.fdir"); 
eise 

strcpy(text, Vfd.fdir*'); 

, strcpy(dateiname+strlen(dateiname),text); 
switch(mode) 
case 0; 

datei=0pen(dateinarae,M0DE_0LDFILE); 
if (datei==0)retum(-l); 
if(Read(datei,&anz,2)1=2) goto abbruch; 

Read(datei , nam,1024); 

* break; 
case 1: 

for(i=l;i< =anz-l;1++) 

point-H-; 

bytes+=strlen(point)+2; 
point+=strlen(point)+l; 
datei=Open(dateiname,MODE_NEWFILE); 
if(datei==0)retum(-l); 
if(Write(datei,&anz,2)1=2) goto abbruch; 
if(Write(datei,nam,bytes)l=bytes) goto abbruch; 
break; 

Close(datei); 
re tum (anz); 
abbruch: 

Close(datei); 
retum(-l); 

/*h0.7-Textfont auf Diskette schreiben • 


if(YMatrix<0 ]] YMatrix>50) YMatrix 


break; 
case 3: 

lochar=(short)input_zahl(wn,163,36,3 


if(lochar>hichar ]] lochar<0) locha 

r=32; 

break; 


hichar=(short)input_zahl(wn,273 ^ 36,3 


if(hichar<lochar ] ] hichar>255) hic 

har=255; 

break; 


case 5 


if(proflag==l)break; 

proflag=l; 

Invert(rp,sdatC5]);Invert(rp,sdat[6]) 


break; 
case 6: 

if(proflag==0)break; 

proflag=0; 

Invert(rp,sdat[5]);Invert(rp,sdat[6]) 


break; 

case 7: case 8: 

Invert(rp,sdat[i]); 
if(i==7) 

if(MakeFont(pro flag,lochar,hichar) 
<0) 

Shure(2); 

Ascii=help;AsciiOut(); 

Delay(5); 
goto ende; 
break; 
case 9: 

Invert(rp,sdat[i]); 

GetFilename(edrawer,efname); 
YMatrix=(long)atoi(efnarae); 

Invert(rp,sdat[i]); 
break; 

RefreshGadgets(&s_gad,wn,NULL); 
zahl_out(rp,lochar,hichar); 

/*-Unterfunktion zu hO.7- */ 

void zahl_out(rp,lochar,hichar) 
struct RastPort ^^rp; 
short lochar,hichar; 
char htext[10]; 

sprintf (htext, ''J{2. Of % (float) YMatrix); 

Text_out(rp,61,36,1,0,JAM2,htext,0); 
sprintf (htext, '"<3 • Of'', (float) lochar); 
Text_out(rp,l63,36,l,0,JAM2,htext,0); 
sprintf (htext, "'$3. Of '^, (float) hichar); 

Text_out(rp,273,36,1,0,JAM2,htext,0); 

/*h0.8-Font berechnen und schreiben- 


void SaveFont0 

ULONG flags=ACTIVATEl WINDOWCLOSE] WINDOWDRAG; 

ULONG iflags=M0USEBUTT0NS] CLOSEWINDOW; 

ULONG dass; 

USHORT Code; 

long i,help=Ascii; 

struct Window *wn; 

struct RastPort ^^rp; 

short mox,moy,lochar=32,hichar=255; 

BYTE proflag=l; 
void zahl_out(); 

wn=Make_Window(50,20,318,90, ''SAVE F0NT'',flags,iflags,0) 


if(wn==0)retum(); 
rp=wn->RPort; 

SetAPen(rp,l);RectFill(rp,0,ll,318,90); 
Box(rp,2,12,315,88,0,JAMl); 
for(i=0;i<=9;i-H-) 

SetAPen(rp,0); 

RectFill(rp,sdat[i][0],sdat[i][1],sdat[i][2],sdat[i] 
[3]); 

Box(rp,sdat[i][0],sdat[i][1],sdat[i][2],sdat[i][3] ,2 
,JAM1); 

Text_out(rp,sdat[i][0]+3,sdat[i][1]+3,3,0,JAM2,stxt[ 
i],0); 

s_info.Buffer=edrawer; 
s_info.UndoBuffer=NULL; 
s_info.MaxChars=100; 

AddGadget(wn,&s_gad,-1); 

RefreshGadgets(&s_gad,wn,NULL); 
zahL_out(rp,lochar,hichar); 

Invert(rp,sdat[5]); 

FOREVER 

while (ExaIntui(wn,&class,&code)) 
mox=wn-> MouseX;moy=wn-> MouseY; 
switch(class) 

case CLOSEWINDOW: 
ende: 

RemoveGadget(wn,&s_gad); 

CloseWindow(wn); 


BYTE MakeFont(pflag,lochar,hichar) 

BYTE pflag; 

short lochar,hichar; 

ULONG datei; 

BYTE mode,hmem[100],*nam; 

short modulo=0,anz=hichar-lochar+1,i,anzl,hl; 

USHORT ^^point=&ublockl[5]; 

void WriteLine(),WriteCharLoc(),WriteSpace(),WriteKera() 
mode=PruConf(edrawer,YMatrix); 
if(WriteFont(mode,edrawer,YMatrix) <0)return(-l); 
sprintf (hmem, "^s/Jfl. Of ", edrawer, (f loat) YMatrix); 
Shure(8); 

for(i=lochar;i< =hichar;i++) 

Ascii=i;AsciiOut(); 
fontbreit[i]=Breit(pflag,i); 


58 


AMIGA-SONDERHEFT 2 














RAFIK-100LS 


488 

2m 

modulo+=fontbreit[i]; 


489 

pT3 

modulo/=8;modulo+=(4-inoduloJf4); 


490 

AY 

hl=0x6e+raodulo*YMatrix; 


491 

vz 

anzl5:modulo^fYMatrix+anz^f8+8 j 


492 

6T 

point++; 


493 

Wg 

i^point= (anzl+112)/4; point+=4; 


494 

DB 

*fpoint= (anzl+112) /4; point=&ublockl[27]; 


495 

GF 

»tpoint=anzl ; point-H-; 


496 

hk 

*point=YMatrix;point++; 


497 

11 

<^point=98; 


498 

CZ 

point-H-; 


499 

Bh 

»point=(USHORT)XMatrix;pointH-; 


500 

xP 

«point=(USHORT) BaseLine; point-f=3; 


501 

mc 

*point=256»lochar+hichar; po int-»-=3; 


502 

nJ 

»po int=raodulo; point-f=2; 


503 

DY 

»point=hl; point-f=2; 


504 

11 

»point=hl-fanz»4-f4; point-f=2; 


505 

Ga 

»point=hl-f(anz»4-f4)-f-(anz»2-f2); 


506 

qra 

point=drawraem; 


507 

Ga 

Shure(8); 


508 

ol 

datei=Open(hmein,MODE_NEWFILE); 


509 

SY 

if(datei==0)return(-l); 


510 

Mh 

Shure(9); 


511 

Gg 

if(Write(datei,ublockl,l42)I=l42) goto abbruch; 

512 

De 

/* - CharData schreiben -»/ 


513 

nd 

for( i=0; i < =YMatrix-l; in) 


514 

£z6 

BltClear(point,modulo,l); 


515 

wM 

WriteLine(i,lochar,hichar); 


516 

9in 

if(Write(datei,point,modulo)I=raodulo) 

goto abbruch; 

517 

4L3 

/» - CharLoc schreiben -»/ 


518 

J1 

WriteCharLoc(lochar,hichar); 


519 

aO 

if (Write(datei,point,anz»4-h4) 1 =anz»4-H4) 

goto abbruch; 

520 

VC 

/* - CharSpace schreiben -»/ 


521 

P2 

WriteSpace(lochar,hichar); 


522 

FX 

if(Write(datei,point,anz»2-f2) !=anz»2-f2) 

goto abbruch; 

523 

OJ 

/»-CharKem schreiben-»/ 


524 

Te 

WriteKem(lochar,hichar); 


525 

la 

i f (Wr i te (dat e i, po int, anz»2-f 2) I = anz»2-f 2) 

goto abbruch; 

526 

eC 

if(Write(datei,ublock2,46)!=46) goto abbruch; 

527 

VO 

Close(datei); 


528 

ez 

Shure(9); 


529 

JG 

/n -Fast Direktory erzeugen-»/ 


530 

Rm 

if(mode 1= 0) 


531 

h86 

sprintf (hmem, ^5Cs/fd. fdir"',edrawer); 


532 

a8 

DeleteFile(hraem); 


533 

ÜC3 

if(mode==2) 


534 

TY6 

nam=AllocMem(l024,MEMF_CLEAR); 


535 

Jw 

if(nain 1= 0) 


536 

fD9 

strcpy(hinem,edrawer); 


537 

3X 

Parent(hmem); 


538 

TS 

sprintf (hmem, *'JCs/fd. f dir*, hmem); 


539 

HJ 

datei=Open(hmem,MODELOLDFILE); 


540 

15 

if(datei 1= 0) 


541 

JeC 

Close(datei); 


542 

60 

Shure(lO); 


543 

9d 

Parent(hmem); 


544 

Lt 

GetDir(nam,hmem,l); 


545 

9R 

Shure(lO); 


546 

Rx9 

FreeMem(nam,1024); 


547 

ID3 

retum(O); 


548 

YEO 

abbruch: 


549 

zK3 

Shure(9); 


550 

sl 

Close(datei); 


551 

wX 

retum(-l); 


552 

CIO 

/*— Unterfunktionen zu hO.8-»/ 


553 

2x 

void WriteLine(i,lochar,hichar) 


554 

rl 

short i,lochar,hichar; 


555 

Oz 

register short j,k; 


556 

oJ 

register ULONG »adr; 


557 

eN 

register long count=0; 


558 

y3 

long »point=drawmem; 


559 

tQ3 

for(j=lochar;j <=hichar;J-H) 


560 

G16 

adr=craatr ix-f 100» j -f2» i; 


561 

fk 

for (k=0; k < sfontbreit [ j ]-1; k-H-, count-H) 

562 

919 

if(TestBit(adr,k)) 


563 

fJC 

SetBit(point,count); 


564 

vi9 

eise 


565 

OrC 

ClrBit(point,count); 


566 

MAO 

/* - 


567 

ZM 

void WriteCharLoc(lochar,hichar) 


568 

5a 

short lochar,hichar; 


569 

fp 

register short »point=drawmem,offs=0,i; 


570 

oN3 

for( i=lochar; i < =hichar; i-n) 



571 kC6 

Ascii=i;Ascii0ut(); 

572 xO 

»point=of f s; pointH; 

573 Je 

»point=fontbreit[i] ;pointH; 

574 06 

offs-f=fontbreit[i]; 

575 Jw3 

»po int=0; po intn; »po int=0; 

576 FqO 

/Ä- 

577 VM 

void WriteKem(lochar,hichar) 

578 Fk 

short lochar,hichar; 

579 YG 

register short »point=drawmem,i; 

580 yX3 

for( i=lochar; i < =hichar; i-n) 

581 uM6 

Ascii=i;AsciiOut(); 

582 Vu 

»point=l; 

583 Zw 

point-H; 

584 Tr3 

»point=0; 

585 ZxO 

/* - 

586 NV 

void WriteSpace(lochar,hichar) 

587 Ot 

short lochar,hichar; 

588 hP 

register short »point=drawmera,i; 

589 7g3 

for( i=lochar; i < =hichar; in) 

590 3V6 

Ascii=i;AsciiOut(); 

591 KP 

if(fontbreitCi]==0) 

592 lg9 

»point=XMatrix; 

593 0B6 

eise 

594 nT9 

»po int=f ontb reit[i]-fl; 

595 186 

pointH; 

596 f33 

»point=0; 

597 0X0 

/»hO.9-Ermittelt die Breite eines Zeichens 


- 

598 Bn 

short Breit(pflag,ascii) 

599 iA 

BYTE pflag; 

600 JM 

short ascii; 

601 q4 

ULONG »adr=cmatrix-fl00»ascii; 

602 8Z 

long i,J,flag=0; 

603 zq3 

if (pflag==0)retum(XMatrix); 

604 gZ 

for (i=XMatrix-l; i > =0; i—) 

605 h96 

for(j=0;j<=YMatrix;jH) 

606 1C9 

if (TestBit(adr, j»64-fi)) 

607 JhC 

flag=l; 

608 ob3 

if(flag==l)break; 

609 35 

if(flag==0)return(0); 

610 ms 

retum(i■^l); . 

611 tfO 

/»hO.lO-Prüft ob Diskfont vorhanden- 


-*/ 

612 IM 

BYTE PruConf(drawer,high) 

613 Oj 

char drawer[]; 

614 fc 

short high; 

615 s5 

ULONG datei; 

616 s2 

char hmem[100],h; 

617 oR 

struct FileLock »lock; 

618 d73 

sprintf (hmem, *jCs/%1.0f *,drawer,(float)high); 

619 Zb 

datei=0pen(hmem,MODELOLDFILE); 

620 04 

if( datei 1= 0) [ Close(datei);retum(O); ] 

621 nO 

lock=Lock(drawer,ACCESSJREAD); 

622 ZV 

if(lock 1= 0) h=l; 

623 sf 

eise 

624 Nv6 

lock=CreateDir(drawer); 

625 9V 

h=2; 

626 RW3 

UnLock(lock); 

627 CI 

retum(h); 

628 DgO 

/»hO.ll-Erzeugt den File xxxx.font- 


- 

629 j r 

BYTE WriteFont(mode,drawer,high) 

630 E7 

BYTE mode; 

631 11 

char drawer[]; 

632 XU 

short high; 

633 mW 

char puffer[264],filename[100]; 

634 tq 

long help; 

635 Wo 

short i; 

636 DQ 

ULONG datei; 

637 MK3 

if(mode==0)retum(0); 

638 5G 

if (datei==0) {Shure(ll); 

639 rxl 

return(-l);j 

640 RC3 

for(i=0;i<=263;iH) puffer[i]=0; 

641 xJ 

puffer[0]=0x0f;puffer[3]=l;puffer[263]=0x62;puffer[261] 


=high; 

642 Lf 

for(isstrlen(drawer);i> =0;i—) 

643 Ms6 

if(drawer[i]==V' )] drawer[i]==•: •) 

644 JS9 

break; 

645 xz3 

sprintf(filename, "Xs .font *,drawer); 

646 5i 

sprintf (&puf fer [4], *jts/Jtl.0f *,&drawer[i-»-l], (float)high) 

ß 

Listing 2. (Fortsetzung) 
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Programmname: h1 .c 


Computer: siehe Listing 1 
Sprache: C 


18 bXO 

); 

19 Pa 

UBYTE rawkey[]=[ 1,2,3,4,5,6,7,8,9,10,57,18,58,68,61,62,63,4 
5,46,47,29,30,31, 

20 9zA 

15,60,74,67,70,65,69,79,78] ; 

21 onO 

UBYTE ascii[]=[49,50,51,52,53,54,55,56,57,48,46,101,45,13,5 
5,56,57,52,53,54, 

22 s59 

49,50,51,48,46,45,13,1,8,27,2,3]; 

23 rdO /*hl.l-Zeichnet eine Linie- 


-V 

24 MB 

void Line(rp,xa,ya,xe,ye,co,drmd) 

25 hx 

struct RastPort *rp; 

26 U4 

short xa,ya,xe,ye; 

27 KM 

BYTE co,drmd; 

28 Or 


29 KP3 

SetAPen(rp,co);SetDrMd(rp,drrad); 

30 Ye 

Move(rp,xa,ya); 

31 Av 

Draw(rp,xe,ye); 

32 WIO ] 

33 bl 

/*hl.2-Zeichnet ein Rechteck- 

. V 

34 8k 

void Box(rp,xa,ya,xe,ye,co,drmd) 

35 r7 

struct RastPort ^frp; 

36 eE 

short xa,ya,xe,ye; 

37 UW 

BYTE CO, drrad; 

38 Y1 

( 

39 UZ3 

SetAPen(rp,co);SetDrMd(rp,drmd); 

40 io 

Move(rp,xa,ya); 

41 jB 

Draw(rp,xe,ya);Draw(rp,xe,ye); 

42 yw 

Draw(rp,xa,ye);Draw(rp,xa,ya); 

43 hCO 

] 

44 tR 

/*hl.3-Installiert ein Fenster- 

-V 

45 ZT 

ULONG Make_Window (x,y,w,h,name,flags,iflags,screen) 

46 KT 

short x,y,w,h; 

47 GZ 

char *name; 

48 Zq 

ULONG flags,iflags; 

49 LJ 

struct Screen ^^screen; 

50 kD 

( 

51 oU 

struct Window *wn; 

52 gT 

struct NewWindow NewWindow; 

53 VZ3 

NewWindow.LeftEdge=x; 

54 bC 

NewWindow.TopEdge=y; 

55 QA 

NewWindow.Width=w; 

56 5V 

NewWindow.Height=h; 

57 Ve 

NewWindow.DetailPen=0; 

58 SG 

NewWindow.BlockPen=l; 

59 Gy 

NewWindow.Title=name; 

60 Mf 

NewWindow.Flags=flags; 

61 6V 

NewWindow.IDCMPFlags=iflags; 

62 e7 

if(screen==NULL) 

63 RY6 

NewWindow.Type=WBENCHSCREEN; 

64 Gm3 

eise NewWindow.Type=CUST0MSCREEN; 

65 fS 

NewWindow.FirstGadget=NULL; 

66 n9 

NewWindow.CheckMark=NULL; 

67 t7 

if (screen==NULL) 

68 xm6 

NewWindow.Screen=IntuitionBase-> FirstScreen; 

69 xy3 

eise NewWindow.Screen=screen; 

70 WM 

NewWindow.BitMap=NULL; 

71 PD 

NewWindow.MinWidth=w; 

72 wQ 

NewWindow.MinHeight=h; 

731iX 

NewWindow.MaxWidth=w; 

74 Ek 

NewWindow.MaxHeight=h; 

75 db6 

wn=0penWindow(&NewWindow); 

76 yk 

retum(wn); 

77 FkO ] 

78 t j 

/*hl.4-Holt Intuition-Message- 

---*/ 

79 KZ 

BYTE Exalntui (wn,class,code) 

80 Hx 

struct Window *wn; 

81 KG 

ULONG belass; 

82 Mq 

USHORT *code; 

83 Hk 

[ 

84 BU 

struct IntuiMessage *mesg; 

85 Am3 

mesg=GetMsg(wn-> UserPort); 

86 RW 

if (mesg 1= NULL) 

87 Lo 

( 

88 U76 

*class=mesg-> dass; 

89 Yz 

*code=raesg-> Code; 

90 cg 

ReplyMsgCmesg); 

91 Ow 

retum(l); 

92 Uz3 

1 

93 yt 

retum(O); 

94 WIO ] 


647 aD switch(mode) 

648 Ül6 case 1: 

649 x39 datei=Open(filename,MODELOLDFILE); 

650 jp if(datei==0)return(-l); 

651 Nw if(Read(datei,&help,4)1=4) goto abbruch; 

652 Gx help-H-; 

653 Rw Seek(datei,0,0FFSET_BEGINNING); 

654 CL if(Write(datei,&help,4)1=4) goto abbruch; 

655 4n Seek(datei,0,0FFSET_END); 

656 vm if(Write(datei,&puffer[4],260)I=260)goto abbruch; 

657 Wf break; 

658 gy6 case 2: 

659 yF9 datei=Open(filename,MODE_NEWFILE); 

660 6ra if(datei==0) (shure(ll); 

661 DJN retum(-l);] 

662 vf9 if(Write(datei,puffer,264)!=264) goto abbruch; 

663 cl break; 

664 8R3 Shure(ll); 

665 je Close(datei); 

666 D8 return(O); 

667 T90 abbruch: 

668 CV3 Shure(ll); 

669 ng Close(datei); 

670 rS retum(-l); 

671 xdO /*h0.12-Ermittelt übergeordnetes Verzeichnis- 

-V 

672 DS void Parent(name) 

673 Mf char *name; 

674 PT register short i,flag; 

675 KL3 for(i=strlen(name);i>=0;i~) 

676 H06 if(name[i3==V') [ flag=0;break; j 

677 H7 if(narae[i]==':') [ flag=l;break; j 

678 cF3 if(flag==l)i-H-; 

679 ww name[i]=0; 

680 yPO /^^h0.13-Zeichnet kleines Image- 

- */ 

681 Qu void DrawLittle(mode,x,y,adr) 

682 4x BYTE mode; 

683 qp short x,y; 

684 sN register ULONG *adr; 

685 4Z register ULONG *adrl=drawmem; 

686 nM register short i; 

687 YI3 for(i=0;i<=99;*adrl=^^adr,adr-H-,adrl-H-,i-f+); 

688 iB oima->ImageData=mima->ImageData=drawmem; 

689 oe if(mode==0) 

690 1T6 DrawImage(rast,oima,x,y); 

691 yi3 eise 

692 zP6 Drawlmage(rast,mima,x,y); 

693 xlO /* - 

- */ 

(C) 1988 M&T 

Listing 2. (Schluß) 


Programm 

: hl.c 


1 FoO /* —(FontDesigner)-File hl.c- 


2 9E 

#include < exec/meraory.h > 


3 Rg 

#inclüde <intuition/intuition.h > 


4 L9 

#inclüde <Intuition/intuitionbase.h > 


5 3q 

# include <libraries/dos.h> 


6 i5 

#include < graphics/gfxraacros.h> 


7 MB 

# include 'lieader. h ^ 


8 LW 

- 

main- 

9 hh 

extern struct IntuitionBase *IntuitionBase; 


10 IC 

extern struct GfxBase *GfxBase; 


11 ZC 

extern ULONG DiskfontBase,DosBase; 


12 MH 

extern BYTE »drawmem; 


13 4C 

extern long *cmatrix,Ascii; 


14 VY 

-*/ 

15 Bx 

unsigned char bmaske[]= 


16 Cf 

( 


17 tI3 

128,64,32,16,8,4,2,1 



60 


AMIGA-SONDERHEFT 2 




































RAFIK-TDOLS 


95 RJ /*hl.5-Gibt Text aus- 

-V 

96 xF void Text_out (rp,x,y,apen,bpen,drmd,text,maxien) 

97 r7 struct RastPort »rp; 

98 tl short x,y,maxien; 

99 nb BYTE apen,bpen,drmd; 

100 Og char *text; 

101 Z2 { 

102 193 Move(rp,x,y+rp->TxBaseline); 

103 2p SetAPen(rp,apen);SetBPen(rp,bpen);SetDrMd(rp,drrad); 

104 9n if(maxlen==0)Text(rp,text,strlen(text)); 

105 ^ eise Text(rp,text,maxlen); 

106 iDO ] 

107 pE /^^hl.6-Zeichnet ein ausgefülltes Polygon- 

- 

108 uQ BYTE FDrawPolygon(rp,koord,co,drmd) 

109 3J struct RastPort *rp; 

110 ya short koord[]; 

111 gi BYTE co,drmd; 

112 kD [ 

113 VO struct Areainfo ainfo; 

114 Kq ULONG Speicher; 

115 Z4 short abuffer[250],i; 

116 bg struct TmpRas tmp; 

117 Dj3 speicher=drawmem; 

118 2V InitArea(&ainfo,abuffer,50); 

119 zra rp->TmpRas=(struct TmpRas *)InitTrapRas(&tmp,Speicher,20 

480); 

120 IS rp->AreaInfo=8cainfo; 

121 zm SetDrMd(rp,drmd);SetAPen(rp,co); 

122 y5 AreaMove(rp,koord[0],koord[l]); 

123 5S i=2; 

124 yE while(koord[i]>=0) 

125 xQ ( 

126 dx6 AreaDraw(rp,koord[i],koord[i+l]); 

127 sF i+=2; 

128 4Z3 ) 

129 fW AreaEnd(rp); 

130 Rv rp->TmpRas=NULL;rp->AreaInfo=NULL; 

131 ea retum(l); 

132 8d0 j 

133 4p /*hl.7-Ermittelt Mausklickfeld- 

- 

134 yh BYTE Prurec (mox,moy,feld,anf,end) 

135 FV register short mox,moy; 

136 nG short feld[][4]; 

137 eO register BYTE anf,end; 

138 Ad [ 

139 27 register BYTE i; 

140 wF3 for (i=anf;i<=end;i++) 

141 Dg { 

142 yf6 if (mox >= feld[i][0] && mox <= feld[i][2] && moy > 

= feld[i][l] 

143 CHC && moy <= feld[i][3]) 

144 TJ9 retum(i); 

145 Lq3 ) • 

146 PO retum(-l); 

147 NsO ] 

148 ak /^^hl.8-Eingabe einer double Zahl- 

- 

149 Ja double input_zahl(wind,xa,ya,maxien,defs) 

150 6N struct Window »wind; 

151 sx short xa,ya; 

152 NI UBYTE maxien; 

153 Xj char »defs; 

154 Qt { 

155 8s struct IntuiMessage »msg; 

156 o4 struct RastPort »rp; 

157 Ln ULONG class,iflags; 

158 hq UBYTE code,i,pruef(),cpos=0; 

159 sh char ps[31]; 

160 OA double atof(); 

161 G7 void crs_out(); 

162 wA iflags=wind->IDCMPFlags; 

163 aD ModifyIDCMP(wind,M0USEBUTT0NSlRAWKEY); 

164 vW maxien—; 

165 5f rp=wind->RPort; 

166 D3 for (i=0;i<=29;i-H-)ps[i]=32; 

167 11 ps[30]=0; 

168 qx ya+=rp->TxBaseline; 

169 WU Move(rp,xa,ya);SetDrMd(rp,JAM2);Text(rp,ps,maxlen+l); 

170 MN if(strlen(defs) 1=0) 

171 hA ( 


172 ib3 strcpy(ps,defs); 

173 ke cpos=strlen(defs); 

174 vz ps[cpos]=32; 

175 pKO ] 

176 LW ps[maxlen+l]=0; 

177 HX Move(rp,xa,ya);SetDrMd(rp,JAM2);Text(rp,ps,Strien(ps)); 

178 AR crs_out (rp,cpos,xa,ya); 


179 R83 FOREVER 

180 qJ ( 

181 4J9 while(msg=(struct IntuiMessage »)GetMsg(wind->Use 

rPort)) 

182 sL ( 

183 XyC class=msg->Class; 

184 GG code=msg->Code; 

185 rz ReplyMsg(msg); 

186 ew switch (dass) 

187 xQ ( 

188 UsF case MOUSEBUTTONS: 

189 mOL if(code 1= SELECTDOWN)break; 

190 qk crs_out(rp,cpos,xa,ya); 

191 Sd ModifyIDCMP(wind,iflags); 

192 6B retum (atof(ps)); 

193 FhF case RAWKEY: 

194 ba Code=pruef(Code); 

195 NM if (code==128)break; 

196 Ib switch (code) 

197 7a ( 

198 iil case 1: /» Delete »/ 

199 VML if(cpos==maxlen) 

200 Ad { 

201 OYO ps[cpos]=32;ps[cpos+l]=0;break; 

202 GIL ] 

203 k8 for(i=cpos;i< = (maxlen-l);i-H-)ps[i]=ps 

[i+l]; 

204 Y1 ps[maxien]=32; 

205 EN break; 

206 X4l case 8: /» Backspace »/ 

207 QOL if(cpos==0)break; 

208 Ax cpos—; 

209 qE for(i=cpos;i< = (maxlen-l);i-H-)ps[i]=ps 

[i+l]; 

210 er ps[maxien]=32; 

211 KT break; 

212 OEI case 2: /» Cursor left »/ 

213 JEL if(cpos >0) cpos—; 

214 NW break; 

215 Pgl case 3: Cursor right »/ 

216 REL if(cpos<maxien)cpos++; 

217 QZ break; 

218 xpl case 13: /» Carrige Retum »/ 

219 JDL crs_out(rp,cpos,xa,ya); 

220 v6 ModifyIDCMP(wind,iflags); 

221 Ze retum (atof(ps)); 

222 lil case 27: /» ESC »/ 

223 PzL for(i=0;i<=maxlen;i+-t-)ps[i]=32; 

224 4s cpos=0; 

225 Yh break; 

226 MGI default: 

227 IKL for(i=maxlen;l>=(cpos+l);i—)psti]=ps 

[i-1]; 

228 IB ps[cpos]=code; 

229 CN ps[maxlen+1]=0; 

230 9e if (cpos < maxien)cpos-H-; 

231 JEI ) 

232 ou Move(rp,xa,ya); 

233 8N SetDrMd(rp,JAM2); 

234 3T Text(rp,ps,strlen(ps)); 

235 ZT crs_out(rp,cpos,xa,ya); 

236 oJC ) 

237 pK9 1 

238 qL6 ) 

239 rMO ] 

240 rj /»-Unterfunktionen zu hl.8-»/ 


241 i7 void crs_out(rp,cpos,xa,ya) 

242 CS struct RastPort »rp; 

243 Pu UBYTE cpos; 

244 NS short xa,ya; 

245 tM ( 

246 Iq register BYTE i; 

247 cJ3 Move(rp,xa+TextLength(rp,'',l)»cpos,ya); 

Listing 3. Geben Sie »>h1.c« bitte mit dem Checksummer 
ein 


AMIGA-SONDERHEFT 2 


61 



















248 4Q SetDrMd(rp,COMPLEMENTl INVERSVID); 

249 nk Text(rp,^ '*'#!); 

250 2X0 ] 

251 8v UBYTE pruef(code) 

252 w9 USHORT code; 

253 lU { 

254 uC register UBYTE i; 

255 ur3 for(i=0;i<=31;i++) 

256 4X I 

257 676 if(code==rawkey[i]) return(ascii[i]); 

258 Af3 ] 

259 kb return(l28); 

260 ChO } 

261 S4 /*hl.9-Öffnet Libraries- 

- »/ 

262 dL BYTE Oplibs() 

263 Be [ 

264 ln3 IntuitionBase=OpenLibrary( *'intuition.library'',OL); 

265 XH GfxBase=OpenLibrary('"graphics. library OL); 

266 4Q DosBase=OpenLibrary( ''dos.library*',OL); 

267 72 DiskfontBase=OpenLibrary( "diskfont.library*',OL); 

268 Ji if(DiskfontBase==0) 

269 Hk { 

270 FV6 Shure(4); 

271 eD CloseLibrary(IntuitionBase); 

272 oK CloseLibrary(GfxBase); 

273 qE exit(O); 

274 Qv3 ] 

275 up return(O); 

276 SxO j 

277 hL /»hl.lO---Schließt Libraries- 

- 

278 uO void CllibsO 

279 Ru { 

280 PD3 CloseLibrary(DosBase); 

281 ck CloseLibrary(DiskfontBase); 

282 yU CloseLibrary(GfxBase); 

283 qP CloseLibrary(IntuitionBase); 

284 a50 ] 

285 es /^^hl.ll-- Invertier BS_Bereich- 

-V 

286 24 void Invert(rp,dat) 

287 vB struct RastPort ^^rp; 

288 tg short dat[]; 

289 b4 [ 

290 KF3 SetDrMd(rp,COMPLEMENT); 

291 02 RectFill(rp,dat[0]+l,dat[l]+l,dat[2]-l,dat[3]-l); 

292 iDO } 

293 VI /*hl.l2 -Prüft ob Bit gesetzt- 

- »/ 

294 N7 BYTE TestBit(adr,bioff) 

295 zY register UBYTE ^^adr; 

296 Cs register long bioff; 

297 jC ( 

298 Bn3 adr+=bioff> >3; 

299 AX if((^^adr & bmaske[bioff«8]) != 0) 

300 NJ6 return(l); 

301 KF3 retum(O); 

302 sNO ] 

303 qm /^^hl.l3-Bestimmtes Bit setzen- 

- »/ 

304 kc void SetBit(adr,bioff) 

305 9i register UBYTE *adr; 

306 M2 register long bioff; 

307 tM { 

308 Lx3 adr+=bioff> >3; 

309 8P »adrl =bmaske[bioff5C8]; ' 

310 OVO ] 

311 gY /*hl.l4-Bestimmtes Bit löschen- 

- */ 

312 ZG void ClrBit(adr,bioff) 

313 Hq register UBYTE »adr; 

314 UA register long bioff; 

315 lU ( 

316 T53 adr+=bioff>>3; 

317 bU »adr&=**ßbmaske[bioffll{81; 

318 8d0 ] 

319 4m /»hl. 15-Zeichensatz verschieben — 

- */ 

320 19 short mdat[][4]= 

321 7a { 

322 oh3 { 10,16,128,28 },( 138,16,262,28 ] ,( 86,33,188,45 ], 

323 ea [ 10,50,64,62 ] ,( 208,50,262,62 ], 


324 XTO 

); 

325 7t 

char »mtxt[]= 

326 Cf 


327 NZ3 

"FROM ASCII: ", 'nJNTIL ASCII: ", "TO ASCII: ", " OK", "CANCEL" 

328 bXO 

); 

329 Y5 

short moveas[3]=[ 65,128,128 ]; 

330 Hz 

void MoveAsciiO 

331 Hk 

f 

332 LI 

struct Window »wn; 

333 fv 

struct RastPort »rp; 

334 XN 

ULONG flags=WINDOWDRAG] ACTIVATE; 

335 AU 

ULONG dass; 

336 IV 

USHORT Code; 

337 xD 

short i,mox,moy,»point,offs; 

338 xC 

void moveout(),MAusf(); 

339 9c3 

wn.Maie_Wlndow(120,100,280,71, ">1071',flags,HOUSEBUTTONS, 

0); 

340 iP 

if(wn=sO)retum(); 

341 WG 

rp=wn-> RPort; 

342 SG 

SetAPen(rp,l);RectFill(rp,0,11,280,71); 

343 30 

Box(rp,2,12,277,69,0,JAMl); 

344 41 

for(i=0;i<=4;i++) 

345 Vy 

( 

346 5V6 

SetAPen(rp,0); 

347 iv 

RectFill(rp,mdat[i][0],mdatCi][1],mdat[l][2],mdat[i][ 

3]); 

348 Ir 

Box(rp,mdat[i][0],mdat[i][1],mdat[i][2],mdat[i][3],2, 
JAMl); 

349 Ne 

Box(rp,mdat[l][0]-l,mdat[lKl],indat[l][2]+l,mdat[l]t3 

],2,JAM1); 

350 QS 

TextL_out(rp,radat[i] [0]+3,indat[i] [l]+3,3,0, JAM2,mtxt[i 
],0); 

351 fA3 

1 

352 IX 

moveout(rp); 

353 Fw 

FOREVER 

354 e7 

( 

355 ke6 

while(ExaIntui(wn,&class,&code)) 

356 g9 

( 

357 zS9 

if(Code I=SELECTDOWN)break; 

358 XD 

i=Prurec(wn-> MouseX,wn-> MouseY,mdat,0,4); 

359 cS 

if(i<0)bre€Lk; 

360 oN 

switch(i) 

361 lE 

( 

362 niC 

case 0: case 1: case 2: 

363 6NF 

point=8jnoveas[i]; 

364 ce 

offs=mdat[i][0]+strlen(mtxt[i])»8+3; 

365 U2 

»point=(short)input_zahl(wn,offs,mdat[i][1]+ 
3,3,""); 

366 JQ 

if(»point < 0)»point=0; 

367 AT 

if(»point > 255)»point=255; 

368 rO 

break; 

369 3MC 

case 3: 

370 dlF 

Invert(rp,mdat[i]); 

371 Qa 

MAusfO; 

372 8SC 

case 4: 

373 goF 

Invert(rp,mdat[i]); 

374 Kb 

Delay(5); 

375'dx 

CloseWindow(wn); 

376 vl 

returnO; 

377 5a9 

1 

378 Rx6 

moveout(rp); 

379 7c 

1 

380 8d3 

) 

381 9e0 

) 

382 yT 

/* - Unterfunktion zu hl.15 -»/ 

383 01 

void moveout(rp) 

384 Uk 

struct RastPort »rp; 

385 9c 

[ 

386 uZ 

short offs,i; 

387 H5 

char text[5]; 

388 gL3 

for(i=0;i<=2;i++) 

389 Dg 

( 

390 Yj6 

sprintf(text, "Jf3.0f ", (float)moveas[i]); 

391 35 

offs=mdat[i][0]+strlen(mtxt[i])»8+3; 

392 oB 

Text_out(rp,offs,mdat[i][l]+3,3,0,JAM2,text,0); 

393 Lq3 

) 

394 MrO 

) 

395 Bg 

/*- Unterfunktion zu hl.15 -»/ 

396 sX 

void MAusfO 

397 Lo 

{ 

398 ZD 

short mofa=moveas[0],moua=moveas[l],mota=raoveas[2],help; 
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399 FA register short j,i,step=l; 

400 6p long *adr,*adrl; 

401 Kn long merker=Ascii; 

402 Yf3 if(raofa==moua)retum(); 

403 Zp if(mofa>moua) [ help=mofa;mofa=moua;moua=help; ] 

404 K2 if(mota > mofa && mota < moua) 

405 Tw ( 

406 aJ6 mota+=(moua-mofa); 

407 YA help=mofa;mofa=inoua;moua=help-l; 

408 lA st6p=-l; 

409 b63 j 

410 Cp eise moua++; 

411 xC for(i=mofa;iI=raoua;i+=step,mota+=step) 

412 a3 [ 

413 5R6 if(mota>255)continue; 

414 oY adr=cmatrix+100*i; 

415 Sm adrl=cmatrix+100*mota; 

416 Ww for(J=0;J<=99;j++,adrl++)*adrl=adr[j]; 

417 In Ascii=i; 

418 XQ AsciiOutO; 

419 1G3 1 

420 3e Ascii=merker; 

421 aT AsciiOutO; 

422 oJO j 

423 bP /*- 

-V 

(C) 1987 M&T 

Listing 3. (Schluß) 


Programmname: 

h2.c 

Computer: 

siehe Listing 1 

Sprache: 

c 


Programm : h2.c 


1 RMO /^^--(FontDesigner)-File h2.c-*/ 

2 9E #include <exec/meraory.h> 

3 Rg #include <intuition/intuition.h> 

4 L9 #include <intultion/intuitionbase.h> 

5 3q #include <libraries/dos.h> 

6 i5 #include <graphics/gfxmacros.h> 

7 MB #include "Tieader.h" 

8 OB /*-Externe Variablen aus main- 

- »/ 

9 Ip extern long XMatrix,YMatrix,BaseLine,HelpLine,Ascii,DMode; 

10 9R extern long Quadrant; 

11 OU extern struct TextFont ^^tftopaz,*tfuser; 

12 FJ extern struct Window »wind; 

13 ek extern struct RastPort »rast; 

14 Vi extern ULONG »cmatrix,maske[],cmemo[],scmemo[]; 

15 5d extern UBYTE bmaske[],»drawmem; 

16 nB extern struct Image »oima,»driraa,»mima; 

17 EJ /»- Daten für Hauptdisplay - 

- */ 

18 Is short recdatC][4]= 

19 Fi [ 

20 oH3 { 0,11,512,211 ] , 

21 Ua I 456,216,505,228) , /» Change Ascii »/ 

22 Eh { 456,228,505,239) , 

23 i8 ( 456,239,505,250 ), 

24 m6 [ 520,187,566,199 ), /» 4 »/ 

25 2y ( 566,187,597,199 ), 

2692 [ 597,187,628,199), 

27 US [ 520,204,566,216 ) , /» 7 »/ 

28 4b { 566,204,597,216 ) , 

29 Bc { 597,204,628,216 ) , 

30 Bu I 520,221,566,233 ],/* 10 »/ 

31 vQ { 566,221,597,233 ), 

32 2R [ 597,221,628,233 ) , 

33 sl { 520,238,566,250 ), /» 13 */ 

34 W8 { 566,238,597,250 ), 

35 d9 { 597,238,628,250 ) , 

36 Wa { 594,13,628,27 ), /» 16 »/ 


37 CF [ 594,35,628,49 ), /» 17 »/ 

38 zg [ 594,57,628,71 ) , /» 18 »/ 

39 fL { 594,79,628,93 ],/* 19 »/ 

40 7d [ 594,101,628,115 ) , /» 20 »/ 

41 Ir { 520,145,556,163 ) , /» 21 »/ 

42 72 { 592,145,628,163 ) , 

43 Bm { 556,127,592,145 ) , 

44 gF ( 556,163,592,181 ) , /» 24 »/ 

45 Cn ( 556,145,574,154 ) , 

46 9u ( 574,145,592,154 ), 

47 Cn { 556,154,574,163 ) , 

48 tg ( 574,154,592,163 ) , /» 28 »/ 

49 5J ( 10,216,64,228 ) , /» MIRRJ »/ 

50 HE { 10,238,64,250 ) , /» MIRILÜ »/ 

51 JC ( 79,216,133,228 ), /» ROTATE »/ 

52 Bc ( 302,216,356,228), /» UNDO »/ 

53 2s ( 79,238,133,250 ), /» INVERS »/ 

54 UB { 233,216,287,228 ) , /» LOAD »/ 

55 Mr { 148,216,218,228 ) ,/» EXPAND_X »/ 

56 Pu ( 148,238,218,250 ) ,/» EXPAND_Y »/ 

57 9T ( 233,238,287,250) , /» SAVE »/ 

58 UA ( 371,216,441,228 ) , /» PRG »/ 

59 bK [ 371,238,441,250 ) , /» SHOW »/ 

60 JG I 302,238,356,250 ) , /» MOVE »/ 

61 lEO ) ; 

62 As char »rectxt[]= 

63 xQ { 

64kS3 

65 rO 'DCM= ^ "81= 

66 ap '"ALL'mi", "DEL", "SNP", "CPY ", 

67 nV 

68 oW 

69 lo "MIRR_H", "MIRfLB", "ROTATE", "UNDO", "INVERS", "LOAD", "EXPAN 

D_X", "EXPAND_Y", 

70 ZX "SAVE", "PROGRAMM", "SHOW", "MOVE", 

71 SOO ) ; 

72 4s char txtoff[][2]= 

73 7a { 

74 te3 (0,0),{11,3),{0,0),(0,0), 

75 PM {3,3),{0,0),{0,0), 

76 QN {3,3),{0,0),{0,0), 

77 RO {3,3),{0,0),{0,0), 

78 SP {3,3),{0,0),{0,0), 

79 HB {5,4),{5,4) ,{5,4) ,{5,4),(5,4), /» 16-20 »/ 

80 yz (0,0) ,{0,0) ,{0,0) ,{0,0) , /» 21-24 »/ 

81 ZO (0,0) ,{0,0) ,{0,0) ,{0,0) , /» 25-28 »/ 

82 L7 (3,3),(3,3),(3,3),(11,3), 

83 9x (3,3),(11,3),(3,3),(3,3), 

84 Yu (11,3),(3,3),(19,3),(11,3), 

85 gcO ); 

86 Oa short pfeil[][7]= 

87 Lo { 

88 zn3 { 528,154,545,146,545,162,-2), 

89 d8 { 620,154,603,146,603,162,-2), 

9014 { 574,129,560,143,588,143,-2), 

91 9y ( 574,179,560,165,588,165,-2 ) , 

92 Ap { 576,193,586,188,586,198,-2), 

93 US { 617,193,607,188,607,198,-2 ), 

94 4s . ( 581,206,573,214,589,214,-2 ), 

95 JP { 612,214,604,206,620,206,-2 ) , 

96mm { 581,223,573,231,589,231,-2), 

97 RJ { 612,231,604,223,620,223,-2 ), 

98 oA { 576,244,586,239,586,249,-2), 

99 YD { 617,244,607,239,607,249,-2 ), 

100 pc { 480,229,472,237,488,237,-2 ), 

101 DM { 480,249,472,241,488,241,-2 ), 

102 xtO ) ; 

103 ZI char wtitle[]="F 0 N T DESIGNER Progammed by Richard Ar 

etz"; 

104 aZ /»h2.1-Erzeugt das Hauptdisplay- 

- »/ 

105 OX BYTE Display0 

106 e7 { 

107 3h ULONG flags=WINDOWCLOSEl ACTIVATE) REPORTMOUSE] SMART_REFRESH) 

108 NrC RMBTRAP] WINDOWDEPTH; 

109 KIO ULONG iflags=CLOSEWINDOWl MOUSEBUTTONS] VANILLAKEY; 

110 3L short i; 

111 0G3 wind=Hake_Window(0,0,636,256,wtitle,flags,iflags,0); 

Listing 4. »h2.c« bitte mit dem Checksummer eingeben. 
Beachten Sie die Anweisungen im Text und in Tabelle 2a 
beziehungsweise 2b (Seite 54). 
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185 oy6 if(Ascii<Oll Ascii>255)Ascii=65 

186 ng AsciiOutO; 

187 6K Mera_to_tlatrix(); 

188 tj returnO; 

189 m ) 

190 RL Invert(rast,recdat[mode+l]); 

191 n5 Delay(10); 

192 eL FOREVER 

193 3W [ 

194 nX6 switch (mode) 

195 5Y [ 

196 CT9 case 1: 

197 JPC if(Ascii<255)Ascii++; 

198 pC eise’ Ascii=0; 

199 8H break; 

200 Ia9 case 2: 

201 HCC if(Ascii>0)Ascii—; 

202 uo eise Ascii=255; 

203 CL break; 


if(wlnd==0) retum(-l); 
ras t=wind-> RPort; 

SetAPen(rast,3);RectFill(rast,0,11,640,256) 
SetAPen(rast,0); 

RectFill(rast,0,11,512,211); 

RectFilKrast, 521,14,587,65); 

RectFill(rast,521,70,587,121); 
for(i=21;i<=24;i-H-) 


RectFill(rast,recdat[i][0]+4,recdat[i][l]+2, 

recdat[i][2]+4,recdat[i][3]+2) 


Box(rast,0,ll,512,211,2,JAMl) 

forU=l;i<=40;i-H-) 


SetAPen(rast,0); 

RectFill(rast,recdat[i][0]+4,recdat[i][l]+2, 
recdat[i][2]+4,recdat[i][3]+2) 


AsciiOutO; 

DrawLittle(0,0,0,cmatrix+100*Ascii) 
Delay(3); 

while(ExaIntui(wind, Scclass, &code)) 


SetAPen(rast,l); 

RectFill(rast,recdat[i][0],recdat[i][1],recdat[i][2], 
recdat[i][3]); 

Box(rast,recdat[i][0],recdat[i][1],recdat[i][2],recda 
tCi][3],2,JAMl); 

Text_out(rast,recdat[i][0]+txtoff[i][0],recdat[i][1]+ 
txtoff[i][l],0,l, 

JAM2,rectxt[i],0); 


switch(class) 


case MOUSEBUTTONS: 
Mera_to_Matrix(); 

Invert(rast,recdat[mode+1]) 
retumO; 


for (i=0;l<=13;i-H-) 

FDrawPolygon(rast,pfeil[i],2,JAMl) 
AsciiOutO ;Matout() ;Mein_to_Matrix(); 
Invert(rast,recdat[17-DMode]); 

Invert(rast,recdat[25+Quadrant]); 
retum(O); 


Matrixdaten verändern 


221 4n void ChangeMatrix(var) 

222 AG BYTE var; 

223 XO ( 

224 Nh ULONG dass; 

225 Vi USHORT Code; 

226 ZF long *point,pmax,mode=(var-l)5f3; 

227 Cb3 Mabox(O); 

228 ga switch (var) 

229 d6 { 

230 JQ6 case 4: case 5: case 6: 

231 aW9 point=&XMatrix;pmax=64;break; 

232 p56 case 7: case 8: case 9: 

233 SK9 point=&YMatrix;pmax=50;break; 

234 AL6 case 10: case 11: case 12: 

235 ud9 point=8cBaseLine;pmax=50;break; 

236 jo6 case 13: case 14: case 15: 

237 dE9 point=&HelpLine;praax=64;break; 

238 qL3 ) 

239 YO if(mode==0) 

240 oH [ 

241 Zv6 SetAPen(rast,0); 

242 NT *point=(long)input_zahl(wind,recdat[var][0]+26,recdat 

[var] [l]+3,2,-0; 

243 SW if(*point<l)*point=l; 

244 eW if(*point>praax)<fpoint=pmax; 

245 QP MatoutO; 

246 3H MenL.to_Matrix(); 

247 qg retumO; 

248 0V3 ] 

249 da Invert(rast,recdat[var]); 

250 k2 Delay(lO); 

251 bl FOREVER 

252 OT I 

253 cl6 Mabox(O); 

254 IV switch (mode) 

255 3W { 

256 AR9 case 1: 

257 hrC if(»point>0)*point-=l; 

258 dJ eise *point=pmax; 

259 6F break; 

260 GY9 case 2: 

261 uQC if(*point<pmax)*point+=l; 

262 AM eise *point=l; 


Aktuellen ascii-code ausgeben 


147 5T void AsciiOutO 

148 Kn [ 

149 RF char text[5]; 

150 Ui3 sprintf(text,''j63.0f^,(float)Ascii); 

151 T5 Text_out(rast,recdat[l][0]+txtoff[l][0],recdat[l][l]+txt 

off[l][l], 

152 CMC 0,l,JAM2,text,0); 

153 TyO ) 

154 ZT /^h2.3 -Werte für Matrix ausgeben- 


155 a4 void MatoutO 

156 Sv { 

157 Mq char text[10],i; 

158 DA long help; 

159 pR3 for(i=4;i<d3;i+=3) 

160 Wz ( 

161 bA6 switch(i) 


case 4: help=XMatrix;break; 
case 7: help=YMatrix;break; 
case 10: help=BaseLine;break; 
case 13: help=HelpLine;break 


sprintf(text, ''^fs5t2.0f'*',rectxt[i], (float)help); 
Text_out(rast,recdat[i][0]+txtoff[i][0],recdat[i][1]+ 
txtoff[i][l], 

0,l,JAM2,text,0); 


Aktuellen Ascii-code verändern 


174 Xy void ChangeAscii(mode) 

175 tm BYTE mode; 

176 mF ( 

177 cw ULONG dass; 

178 kx USHORT Code; 

179 cB register short i; 

180 bR3 if(mode==0) 

181 rK [ 

182 cy6 SetAPen(rast,0); 

183 GO Ascii=(long)input_zahl(wind,recdat[l][0]+txtoff[l][0] 


Mabox(l) 

MatoutO 


recdat[l][l]+txtoff[1][1],3 


64 


AMIGA-SONDERHEFT 2 

















266 Rf Delay(2); 

267 Va while (ExaIntui(wind,&class,&code)) 

268 Gj [ 

269 zH9 switch (dass) 

270 II { 

271 pDC case MOUSEBUTTONS: 

272 OxF Invert(rast,recdat[var]); 

273 Ui Mem_to_Matrix(); 

274 H7 returnO; 

275 Rw9 ] 

276 Sx6 1 

277 Ty3 ] 

278 UzO j 

279 7Z /*h2.6-Zeichnet die Matrixbox- 

- 

280 aO void Mabox(raode) 

281 bU BYTE mode; 

282 Ux ( 

283 f3 short xe=XMatrix^t8,ye=ll+YMatrix*4,yb=ll+BaseLine*4,xh=Help 

Lineit8; 

284 on3 Box(rast,0,ll,xe,ye,raode+2,JAMl); 

285 p5 Line(rast,0,yb,xe,yb,mode+2,JAMl); 

286 MO Line(rast,xh,11,xh,ye,raode+2,JAMl); 

287 d80 j 

288 H6 /^^h2.7-Setzt einen Fhinkt in die Matrix- 

- */ 

289 iR void SetMPoint(sp,ze,mode) 

290 Nt BYTE sp,ze,mode; 

291 d6 [ 

292 gb short xa=sp»8+l,ya=ll+ze»4+l,spraax=63,zemax=49; 

293 3V ULONG *adr=cmatrix+100*Ascii+2*ze; 

294 qw3 if(DMode==0) [ spmax=XMatrix-l;zeraax=YMatrix-l; } 

295 fQ if(sp>spraax ] ] sp<0)return(); 

296 st if(ze<0 ]] ze>zeraax)return(); 

297 zl SetAPen(rast,mode);SetDrMd(rast,JAMl); 

298 R3 RectFill(rast,xa,ya,xa+6,ya+2); 

299 xX WritePixel(rast,522+sp,15+ze); 

300 ga if(sp>=32)[ adr-H-;sp-=32; ] 

301 eQ if(mode==l) 

302 ir6 *adr] =maske[sp]; 

303 1V3 eise 

304 xz6 ^^adr&=**ßmaske[sp3; 

305 vQO ] 

306 TP /*h2.8-Haupfunktion in Matrix zeichnen- 

- */ 

307 qA void Drawlnto(mode) 

308 2v BYTE mode; 

309 vO [ 

310 15 ULONG dass; 

311 t6 USHORT Code; 

312 LZ short mox,moy; 

313 x6 ULONG iflags=wind->IDCMPFlags; 

314 nm void SetMPoint(); 


315 pq3 ModifyIDCMP(wind,wind->IDCMPFlagsl =M0USEM0VE); 

316 DD SetMPoint(wind->MouseX/8,(wind->MouseY-ll)/4,mode); 

317 fM FOREVER 

318 4X ( 

319 LQ6 while (ExaIntui(wind,&class,&code)) 

320 6Z [ 

321 p79 switch (dass) 

322 8b { 

323 f3C case MOUSEBUTTONS: 

324 bmE ModifyIDCMP(wind,iflags); 

325 6w returnO; 

326 2fC case MOUSEMOVE: 

327 eYF mox=wind->MouseX;moy=wind->MouseY; 

328 wP SetMPoint(mox/8,(moy-ll)/4,mode); 

329 Jo9 ] 

330 Kp6 } 

331 Lq3 ] 

332 MrO ] 

333 25 /*h2.9-Zeichen aus Zeichensatz in Zwischenspeiche 

r-V 


334 ky void Font_to_Mem(ascii) 

335 hy long ascii; 

336 Mp { 

337 ao ULONG *adr=craatrix+100^tascii; 

338 nq UBYTE *fadr=tfuser-> tf_CharData; 

339 e7 USHORT *loc=tfuser-> tf.CharLoc; 

340 gX register long hohe,breite,offset,bitoff; 

341 MR register long i,j; 

342 Qq BYTE TestBit(); 

343 6r void SetBitO ,AsciiOut(); 
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344 N23 

if(ascii<=tfuser->tf_HlChar && ascii>=tfuser->tf_LoC 
har) 

345 Vy 

1 

346 lr6 

for(i=0;i<=99;i-H-)adr[i]=0; 

347 5R 

offset=ascii-tfuser-> tf_LoChar; 

348 tB 

if(offset<0)offset=0; 

349 Ju 

hohe=tfuser-> tf_YSize-l; 

350 N3 

bitof f=loc [of f seW]; 

351 Jf 

breite=loc[offseW+l]-l; 

352 aR 

if(hohe<0 ]] hohe>5l) hohe=8; 

353 Xi 

if(breite<0 ]] breite>64)returnO; 

354 iO 

for(i=0;i< =hohe;1++) 

355 f8 

( 

356 iJ9 

for(j=0;j <=breite;J-H-) 

357 hA 

( 

358 2LC 

if(TestBit(fadr,J+bitoff)) 

359 RsF 

SetBit(adr,j); 

360 oJ9 

) 

361 Fl 

fadr+=tfuser-> tf_Modulo;adr+=2; 

362 qL6 

) 

363 rM3 

] 

364 n3 

Ascii=ascii; 

365 gZ 

AsciiOutO; 

366 uPO 

) 

367 sQ 

/^h2.10 -Zeichen Manipulieren- 

- */ 

368 IC 

void Delete(mode) 

369 lu 

BYTE mode; 

370 uN 

( 

371 ru 

ULONG *adr=cmatrix+100*Ascii,*point=cmemo; 

372 rw 

register long i,j; 

373 An3 

switch(,mode) 

374 yR 

( 

375 qB6 

case 0: /* CLR */ 

376 L99 

switch(DMode) 

377 lU 

i 

378 6MC 

case 0: 

379 mZF 

for(i=0;i< = (YMatriX“l) ;i++,adr+=2) 

380 4X 

( 

381 bMI 

for(j=0;J < =(XMatrix-l); j-H-) 

382 6Z 


383 WmL 

ClrBit(adr,J); 

384 Chi 

) 

385 DiF 

1 

386 9IC 

break; 

387 HY 

case 1: 

388 RXF 

for(i=0;l<=99il++)eiclr[l]=0i 

389 Hm9 

j 

390 DM6 

break; 

391 5S 

case 1: /* Snapshot */ 

392 bP9 

switch(DMode) 

393 Hk 

( 

394 McC 

case 0: 

395 MIF 

for(i=0;i< =(YMatrix-l);i++,adr+=2,point+=2) 

396 Kn 

[ 

397 rcl 

for(j=0;j< = (XMatrix-l);J-H-) 

398 Mp 

[ 

399 UcL 

if(TestBit(adr,j)) 

400 QkO 

SetBit(point,J); 

401 I5L 

eise 

402 910 

ClrBit(point,j); 

403 VOI 

1 

404 WIF 

) 

405 SbC 

break; 

406 ar 

case 1: 

407 LcF 

for( i=0; i < =99; l++,point++)^^point=adr [i]; 

408 VeC 

break; 

409 b69 

) 

410 XD 

DrawLittle(l,0,0,cmemo); 

411 Yh6 

break; 

412 Cs 

case 2: /* Copy */ 

413 wk9 

switch(DMode) 

4l4 c5 

f 

415 hxC 

case p; 

416 hdF 

for(i=0;i<=( YMat r ix-1); i-H-, adr+=2, po int+=2) 

417 f8 

[ 

418 Cxl 

for(j=0;J < =(XMatrix-l);J++) 

419 hA 

[ 
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Programmname: h3.c _ 

Computer: siehe Listing 1 


420 B9L 

if(TestBit(point,j)) 

421 RsO 

SetBit(adr,j); 

422.dQL 

eise 

423 AQO 

ClrBit(adr,j); 

424 qLI 

) 

425 rMF 

] 

426 nwC 

break; 

427 vC 

case 1: 

428 VCF 

for(i=0;i<=99; i-H-, adr-H-) adr=po int [ i ]; 

429 qzC 

break; 

430 wR9 

1 

431 sl6 

break; 

432 yT3 

) 

433 41 

Mem_to_Matrix(); 

434 OVO ] 

435 eW 

/*h2.11 -Scrolling ausführen- 

-V 

436 9Q 

void Scroll(mode) 

437 70 

BYTE mode; 

438 OT 

( 

439 oe 

ULONG *adr=cmatrix+100*Ascii,*point; 

440 OG 

long i,j,bitoff; 

441 g6 

BYTE astep,bstep,cstep; 

442 fD 

long xstart,xend,ystart,yend; 

443 uE 

ULONG dass; 

444 2F 

USHORT Code; 

445 7m3 

switch(Quadrant) 

446 8b 

( 

447 DT6 

case 0: 

448 3y9 

xstart=0;ystart=0;xend=HelpLine;yend=BaseLine; 

449 AJ 

break; 

450 IZ6 

case 1: 

451 wJ9 

xstart=HelpLine;ystart=0;xend=XMatrix;yend=BaseLin 

452 DM 

break; 

453 Nf6 

case 2: 

454 tC9 

xstart=0;ystart=BaseLine;xend=HelpLine;yend=YMatri 

455 GP 

x; 

break; 

456 S16 

case 3: 

457 gn9 

xstart=HelpLine;ystart=BaseLine;xend=XMatrix;yend= 
YMatrix; 

458 JS 

break; 

459 Pu3 

1 

460 5p 

switch (mode) 

461 Nq 

( 

462 Si6 

case 0: 

463 NM9 

astep=l;bstep=0;cstep=0; 

464 PY 

break; 

465 Xo6 

case 1: 

466 s09 

astep=-l;bstep=0;cstep=0; 

467 Sb 

break; 

468 cu6 

case 2: 

469 ZU9 

as tep=0; bstep=0; cstep=64; yend—; 

470 Ve 

break; 

471 h06 

case 3; 

472 cq9 

astep=0;bstep=64;cstep=0;yend—; 

473 Yh 

break; 

474 e93 

) 

475 2a 

— Scroll left & right up & down —*/ 

476 cb6 

adr=cmatr ix+100^^ Asc i i; 

477 gS 

for(i=0; i<=99; i-H-, adr-H-) scmemo[i]=^^adr; 

478 OW 

adr=cmatr ix-f 100» Asc i i-f2»ystart; 

479 Md 

po int=scmemo-*-2»ys t art; 

480 16 

for( i=ystart; i< = (yend-l); i-H-) 

481 hA 

f 

482 QA9 

for(j =xstart;J < = (xend-1);j -h) 

483 JC 

( 

484 8vC 

if(TestBit(point,J-»-astep-hcstep)) 

485 KEF 

SetBit(adr,J-hbstep); 

486 rNC 

eise ClrBit(adr,j-i-bstep); 

487 rM9 

1 

488 XH 

switch (mode) 

489 pl 

( 

490 RFC 

case 0: ClrBit(adr,xend);break; 

491 8n 

case 1; ClrBit(adr,xstart);break; 

492 wR9 

) 

493 3w 

adr-*-=2;point-t-=2; 

494 yT6 

) 

495 eO 

switch (mode) 

496 wP 

( 

497 5N9 

case 2: 

498 LgC 

adr=cmatr ix-f 100» Asc i i-»-2»yend; 


499 UG 

for( i=xstart; i< = (xend-l); i-n) 

500 MbF 

ClrBit(adr,i); 

501 09C 

break; 

502 CV9 

case 3- 

503 PvC 

adr=cmatrix-fl00»Ascii-»-2»ystart; 

504 ZL 

for( i=xstart; i < =(xend-l); i-n) 

505 RgF 

ClrBit(adr,i); 

506 Af6 

) 

507 GU 

Mem_to_Matrix(); 

508 ChO 


509 2Y 

/»h2.12-Zeichen aus Zwischenspeicher in Matrix — 

-»/ 

510 Ex 

void Mem_to_Matrix() 

511 Be 


512 AO 

register long »adr; 

513 8D 

register long i,j; 

514 NE 

register UBYTE »point=drawmem; 

515 FE3 

adr=cmatrix+100»Ascii; 

516 zr 

BltClear(drawmem,12800,1); 

517 yX 

for( i=0; i< =49; i-H-,point-f=256) 

518 11 

{ 

519 RH6 

for(J=0;J<=31;j++) 

520 Kn 

( 

521 Gq9 

if(»adr & maske[j]) 

522 Mp 

[ 

523 gfC 

»(po int-f64+j) = 127; 

524 rJ 

»(point-»-128-i-J)=127; 

525 MG 

»(point-fl92-i-j)=127; 

526 Uz9 

) 

527 V06 

) 

528 10 

adr-H; 

529 Id 

for(j=32;j<=63;jH) 

530 Ux 

[ 

531 HD9 

if(»adr & maske[J-32]) 

532 Wz 

[ 

533 qpC 

»(point-f64-fj) =127; 

534 IT 

»(point-Hl28-Hj)=127; 

535 WQ 

»(point-Hl92-Hj)=127; 

536 e99 

) 

537 fA6 

) • 

538 BY 

adrn; 

539 hC3 

! 

540 OK 

point=drawmem; 

541 m 

drima->ImageData=point; 

542 IS 

DrawImage(rast,drima,0,0); 

543 LB 

DrawLi ttle (0,0,0, cmatr ix-t-100» Asc i i); 

544 Mm 

Mabox(l); 

545 nIO 

1 

546 pF 

/» - 

-»/ 

(C) 1987 

M&T 

Listing 4. (Schluß) 


Programm : h3.c 


1 dyO /*—(FontDesigner)-File h3.c-*/ 

2 9E #include <exec/memory.h> 

3 Rg #include < intuition/Intuition.h> 

4 L9 #include <intuition/intuitionbase.h> 

5 3q #include <libraries/dos.h> 

6 V) #include <graphics/gfxmacros.h> 

7 MB #include 'Header.h"' 

8 qi /*- Externe Variablen - 

-V 

9 g4 extern struct Image *oima,»drima,*mima; 

10 kY extern struct FilelnfoBlock *f_info; 

11 ci extern struct RastPort ^^rast; 

12 FJ extern struct Window *wind; 

13 Mt extern long XMatrix,YMatrix,BaseLine,HelpLine,Ascii,DMode; 

14 GJ extern long Quadrant,undoascii; 

15 D2 extern ULONG *cmatrix; 
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16 QL extern BYTE »drawraera; 

17 TI extern ULONG cmemo[],scmemo[],undomera[]; 

18 hg -Daten für Programmodus- 

-V 

19 3U short pdat[][4]= 

20 GJ ( 

21 kW3 [ 10,16,88,28 ], { 105,16,167,28 ],{ 184,16,254,28 ], 

22 K6 [ 10,33,56,45 ],[ 76,33,122,45 ],( 142,33,188,45 ],{ 208 

,33,254,45 ], 

23 wD { 10,50,56,62 ],{ 76,50,122,62 ] ,{ 142,50,164,62 ],[ 172 

,50,194,62 ] , 

24 by { 202,50,224,62 ],( 232,50,254,61 ] , 

25 mf { 30,67,50,77 ] ,{ 30,87,50,97 ],[ 10,77,30,87 ],[ 50,77, 

70,87 ] , 

26 y8 { 80,76,118,88 ] ,{ 128,76,166,88 ] , 

27 24 { 176,76,254,88 ] , 

28 IhO ]; 

29 UJ char »ptxt[]= 

30 Qt [ 

31 033 "START: ", "END; ", "STEP; ", " INV", " ROT", "MIRJI", "MIR_B", "E 

XP_X", "EXP_Y", 

32 DB "Ql", "Q2", "03", "Q4", "UP", "DOWN", "LEFT", "RIGHT", "DELE", " 

GO", "PZ;", 

33 qmO ] ; 

34 WM short parr[][7]= 

35 Vy [ 

36 tT3 { 40,68,47,75,33,75,-2 ], 

37 bM ( 40,96,47,89,33,89,-2 ], 

38 IZ { 13,82,25,79,25,86,-2 ] , 

39 xl ( 67,82,55,79,55,86,-2 ], 

40 xtO ]; 

41 Ih char Programm[100]; 

42 md /^^h3.1-Zeichen spiegeln- 

-V 

43 dr void Mirror(mode) 

44 mf BYTE mode; 

45 f8 { 

46 57 register long i,j,*adr=cmatrix+100*Ascii,»point; 

47 2b register long bitoff; 

48 vY3 switch(mode) 

49 JC [ 

50 o46 case 0: 

51 sp9 for(i=0;i<=YMatrix;i-H-,adr+=2) 

52 mF { 

53 sOC for(j=0;j<=HelpLine;J-H-) 

54 oH ( 

55 w4F if(TestBit(adr,j)) 

56 921 SetBit(adr,2»HelpLine-j-l); 

57 vQC ] 

58 wR9 ] 

59 sl break; 

60 0H6 case 1; 

61 Hn9 bitoff=2*64^^(BaseLine-l)+64;point=adr; 

62 zF for(i=0;i<=BaseLine;i++,adr+=2,bitoff-=64) 

63 xQ [ 

64 vMC for(j=0;J <=XMatrix;J++) 

65 zS { 

66 7FF if(TestBit(adr,j)) 

67 3dl SetBit(point,bitoff+J); 

68 6bC ] 

69 7c9 ] 

70 30 break; 

71 9e3 ] 

72 FT Mem_to_Matrix(); 

73 BgO ] 

74 15 /*h3.2-Undospeicher in Hauptspeicher- 

-V 

75 JM void UndoO 

76 Ad { 

77 zb register long i,^^adr=cmatrix+100*Ascii; 

78 4c 3 for(i=0;l<=99;i++,adr++)^^adr=undomem[i]; 

79 6z Ascii=undoascii; 

80 5y AsciiOutO; 

81 Oc Mem_to_Matrix(); 

82 KpO ] 

83 BZ /^^h3.3-Zeichen drehen- 

- */ 

84 Zx void RotateO 

85 Jm { 

86 Ni register long *adr=cmatrix+100*Ascii,^»point=scmemo; 

87 zK register long i,j,bitoff; 

88 CT3 for(isO;i<=99;i-H-,point-H-)itpoint=adr[i]; 

89 BO point=scmemo; 


90 cw 

for( i=0; i< =XMatrix; i++,point+=2) 

91 Ps 

( 

92 WK6 

bitoff=(YMatrix-1)*64+i; 

93 zB 

for(J=0;j <=YMatrix;j-H-,bitoff-=64) 

94 Sv 

[ 

95 wu9 

if(TestBit(point,J)) 

96 aaC 

SetBit(adr,bitoff); 

97 7J9 

eise GlrBit(adr,bitoff); 

98 a56 

) 

99 b63 

) 

100 hv 

Mera_to_Matrix(); 

101 d80 

) 

102 BZ 

/*h3.4-Zeichen invertieren- 

-tt/ 

103 6m 

void Revers0 

104 c5 

( 

105 ey 

register long i,j,*adr=cmatrix+100*Ascii,xend=XMatrlx,yend= 
YMatrix; 

106 NJ3 

for (i=0; i < = (yend-1); i-H-, adr+=2) 

107 f8 

( 

108 Sv6 

for (J=0;j< = (xend-l);j-H-) 

109 hA 

{ 

110 px9 

if(TestBit(adr,J)) 

111 800 

GlrBit(adr,J); 

112 dQ9 

eise 

113 TuO 

SetBit(adr,j); 

114 qL6 

] 

115 rM3 

1 

116 xB 

Mem_to_Matrix(); 

117 tOO ] 

118 Ay 

/*h3.5-Zeichen in x-Richtung vergrößern- 

-*/ 

119 Yt 

void ExpancUxO 

120 sL 

{ 

121 z2- 

register ULONG ^^adr=cmatrix+100*Ascii,^^point=scmemo; 

122 pu 

register long i,J; 

123 123 

for(i=0;i< =99;i++,point++)*point=adr[i]; 

124 kx 

point=scmemo; 

125 ie 

for(i=0;i< =YMatrix-2;i++,adr+=2,point+=2) 

126 yR 

( 

127 kX6 

for(j=0;J <=XMatrix-l;J-H-) 

128 OT 

( 

129 US9 

if(TestBit(point,j)) 

130 2V 

1 

131 400 

SetBit(adr, jit2) ;SetBit(adr, j»2+l); 

132 8d9 

! 

133 yi 

eise 

134 6Z 

( 

135 LJO 

GlrBit(adr,Jif2) ;GlrBit(adr, j^^2+l); 

136 0h9 

] 

137 Di6 

] 

138 EJ3 

] 

139 KY 

MenL_to_Matrix(); 

140 GIO 


l4l k6 

-*/ 

142 zL 

void Expan<L_y() 

143 Fi 


144 OQ 

ULONG i^adr=cmatrix+100*Ascii,*point=scmemo; 

145 M3 

register long i; 

146 8P3 

for(i=0;i< =99;1++,point++)*point=adr[i]; 

147 7K 

point=scmemo; 

148 15 

for(i=0;i<=99;i+=4) 

149 Lo 

( 

150 aP6 

adr [ i] =^^point; adr [i+2] =^^point ;point-H-; 

151 ak 

adr [ i+1] = *po int; adr [ i+3 ] =<fpo int; po int-H-; 

152 Sx3 

1 

153 Ym 

Mem_to_Matrix(); 

154 UzO ] 

155 IW 

- 

156 t8 

void ProgrammO 

157 Tw 

( 

158 qZ 

static short start=32,end=255,step=l,count=0; 

159 Uk 

ULONG flags=WIND0WGL0SEl AGTIVATE] WINDOWDRAG; 

160 KA 

ULONG iflags=GLOSEWINDOW] MOUSEBUTTONS; 

161 aG 

struct Window »wn; 

162 uA 

struct RastPort *rp; 

163 Oi 

ULONG dass; 

164 Wj 

USHORT Code; 

Listing 5. Geben Sie »hS.c« bitte mit dem Checksummer 

(Seite 159) ein 
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165 RC short i,raox,inoy,flag=0; 

166 US char htext[10]; 

167 nf void pz_out(),Go_Amiga(); 

168 3e3 wn=Make_Window(170,l40,278,105,"Programm 


if(wn==0)retum(); 
rp=wn->RPort; 

SetAPen(rp,1);RectFill(rp,0,11,278,105) 

Box(rp,2,12,275,103,0,JAMl); 

for (i=0;i<=19;i++) 


SetAPen(rp,0); 

RectFill(rp,pdat[i][0],pdat[i][1],pdat[i][2],pdat[i][ 

3]); 

Box(rp,pdat[i][0],pdatCi][1],pdat[i][2],pdat[i][3],2, 
JAM2); 

Box(rp,pdat[i][0]-l,pdat[i][1],pdat[i][2]+l,pdat[i][3 

],2,JAM2); 

if(l<13l] i>l6) 

Text_out(rp,pdat[l][0]+3,pdat[i][l]+3#3»0,JAM2,ptxt 

[i],0); 

eise 

FDrawPolygon(rp,parr[i-13],3>JAMl); 


pz_out(rp,Start,end,Step); 
if(couiit==0) 

Text_out(rp,203,79,3,0,JAM2,"NULL",0); 
eise 

Text_out(rp,203,79,3 f 0,JAM2,ptxt[programm[count-1]],0 


FOREVER 


while(ExaIntui(wn,8fClass,&code)) 


mox=wn-> MouseX;moy=wn-> MouseY 
switch (dass) 


case CLOSEWINDOW: 
CloseWindow(wn); 
retumO; 

case MOUSEBUTTONS: 

if(code 1= SELECTDOWN) break 
i=Prurec(mox,moy,pdat,0,19); 
if(i<0)break; 
if(i>2 && i<18) 


if(flagssO)countsO; 

Invert(rp,pdat[i]); 

Delay(5); 

programm[co\mt]=i; 

Programm[count+1]=0; 
sprintf (htext, "jCs ",ptxt[i]); 
Text_out(rp,203,79,3»0,JAM2,htext,5) 
count++; 

if (count > 98) count—; 
flag=l; 


SetAPen(rp,l) 
switch (i) 


Starts (short) input_zahl (wn, 61,19,3,'"") 


if( Start <0 ]] Start >255) Start =32; 
break; 
case 1: 

end=(short)input_zahl ( wn ,140,19,3,"") 


if (end < Start ]] end>255)end=255 
break; 


Steps(short)input_zahl(wn,227,19,3 


if(step<l ]] Step>255)stepsl; 
break; 
case 18: 

Tex t_ou t (rp, pdat [i][0]+3,pdat[i][l]+3, 
1,0,JAM2, 

"ST0P",0); 

Invert(rp,pdat[i]); 

Go_Amiga(wn,Start,end,Step); 
break; 
case 19: 

Text_out(rp,203,79,3,0,JAM2, NULL",0) 


239 cn 

Invert(rp,pdat[i]); 


240 UI 

countsO;Programm[0]=0; 


24l ox 

break; 


242 uPF 

) 


243 Ta 

lf(i>2)Invert(rp,pdat[i]); 


244 Yr 

Text_out(rp,pdat[18][0]+3,pdat[18][1]+3,3,0, 


JAM2, 


245 LeO 

' GO ',0); 


246 20F 

pz_out(rp,Start,end,Step); 


247 zU9 

) 


248 0V6 

1 


249 1W3 

) 


250 2X0 



251 dT 

/»- Unterfunktion zu h3.7 - 


252 11 

void pz_out(rp,st,end,stp) 


253 Nd 

struct RastPort *rp; 


254 Tm 

short st,end,stp; 


255 3W 

( 


256 wu 

char htext[10]; 


257 0k3 

sprintf(htext,"$3.Of",(float)st); 


258 W9 

Text_out(rp,6l,19,3,0,JAM2,htext,0); 


259 MO 

sprintf(htext,"$3.Of",(float)end); 


260 2C 

Text_out(rp,140,19,3,0,JAM2,htext,0); 


261 WY 

sprintf (htext, "5t3*Of ",(float)stp); 


262 eL 

Text_out(rp,227,19,3,0,JAM2,htext,0); 


263 FkO J 


264 qg 

/*-Unterfunktion zu h3.7-*/ 


265 J5 

void Go_Amiga(wn,st,end,stp) 


266 Hx 

struct Window *wn; , 


267 gz 

short st,end,stp; 


268 GJ 

{ 


269 oG 

short i,count; 


270 raQ 

long merl=Ascii,mer2=Quadrant; 


271 8S 

ULONG dass; 


272 GT 

USHORT Code; 


273 N03 

for(i=st;i< =end;i+=stp) 


274 Mp 

[ 


275 Qj6 

Ascii=i;count=0;Ascii0ut(); 


276 UH 

ExaIntui(wn,&class,&code); 


277 OS 

if(class==M0USEBUTT0NS && Code==SELECTDOWN)break; 

278 IF 

while (programm[count] != 0) 


279 Ru 

( 


280 cp9 

Invert(wn->RPort,pdat[programm[count]]); 

281 5x 

switch (programm[count]) 


282 Ux 

[ 


283 rNC 

case 3: Revers();break; 


284 cD 

case 4: Rotate();break; 


285 tO 

case 5: Mirror(O);break; 


286 yV 

case 6: Mirror(l);break; 


287 ue 

case 7: ExpancLxO;break; 


288 zl 

case 8: Expand_y();break; 


289 TH 

case 9: case 10: case 11: case 

12: 

290 bqF 

Quadrantsprogramm[count]-9; 


291 cl 

break; 


292 qpC 

case 13: Scroll(2);break; 


293 xy 

case 14: Scroll(3) ;'break; 


294 sr 

case 15: Scroll(O);break; 


295 zO 

case 16: Scroll(l);break; 


296 ez 

case 17: Delete(O);break; 


297 nI9 

1 


298 u7 

Invert(wn-> RPort,pdat[programm[count]]); 

299 Lh 

count-H-; 


300 qL6 

) . 


301 rM3 

) 


302 Jn 

Asciismerl;Quadrantsmer2; 


303 eq 

Mem_to_Matrix();Ascii0ut(); 


304 uPO ] 









-V 


306 2G 

void Show() 


307 tM 

( 


308 J3 

ULONG dass; 


309 r4 

USHORT Code; 


310 9n 

short Font_out(),ascii=0; 


311 Yx3 

Mabox(O); 


312 aj 

ascii=Font_out(ascii); 


313 bl 

FOREVER 


314 OT 



315 in6 

Wh i le (Exal ntu i(wind,&class, Stcode)) 


316 2V 

i 


317 yY9 

switch (code) 


318 4X 

( 


319 aZC 

case MENUDOWN: 


320 N3F 

if(ascii>=254)ascii=0; 


321 js 

ascii=Font_out(ascii); 
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322 7G break; 

323 GpC case SELECTDOWN: 

324 JXF Mera_to_Matrix(); 

325 pF Mabox(l); 

326 7x retumO; 

327 Hro9 ) 

328 In6 ) 

329 Jo3 ] 

330 KpO ) 

331 8G /*-Unterfunktion zu h3.8-*/ 


332 HG short Font_out(ascii) 

333 03 short ascii; 

334 Kn ( 

335 73 register long xa=4,ya=13; 

336 Jm3 SetAPen(rast,0);SetDrM(i(rast,JAMl); 

337 4d RectFill(rast,1,11,511,210); 

338 GS while( ya<l60 && ascii<254) 

339 PS [ 

340 Z56 xa=4; 

341 nL while(xa<447 && ascii<254) 

342 Sv [ 

343 k39 DrawLittle(0,xa-522,ya-15,cnjatrix+100^^ascii); 

344 JF Box(rast,xa-l,ya-l,xa+XMatrix+l,ya+YMatrix+l,2,JAM 

1 ); 

345 aJ ascii++; 

346 RO xa+=XMatrix+2; 

347 b66 ] 

348 b7 ya+=YMatrix+2; 

349 d83 ) 

350 11 retum(ascii); 

351 fAO ] 

352 kb /»h3.9-Speicher besorgen- 

- */ 

353 t4 BYTE GetMemory(mode) 

354 mf BYTE mode; 

355 f8 [ 

356 Aw register BYTE ^^bpoi; 

357 if register short i,j; 

358 Yp3 if(mode==0) goto cleanupl; 

359 Me oiina=AllocMem(sizeof(struct Image) ,MEMF_CHIP] MEMF_CLEAR) 

360 ps if(oiraa==0)return(-l); 

361 IF drima=AllocMem(sizeof(struct Image),MEMF_CHIPl MEMF_CLEAR 

); 

362 SH if(drima==0)goto cleanup6; 

363 Mc miraa=AllocMem(sizeof(struct Image),MEMF_CHIP] MEMF_CLEAR) 

364 8r if(mima==0)goto cleanup5; 

365 9L f_info=AllocMem(sizeof(struct FilelnfoBlock),MEMF_CLEAR) 

9 

366 dD if(f_info==0)goto cleanup4; 

367 IL cmatrix=AllocMera(102400,MEMF_CLEAR); 

368 00 if(cmatrix==0) goto cleanup3; 

369 Jn drawmem=AllocRaster(512,400); 

370 yG if(drawmem==0) goto cleanup2; 

371 7s oima->LeftEdge=522;oima->TopEdge=15;oima->Width=64;oi 

ma->Height=50; 

372 aU oima->Depth=l;oima-> ImageData=NULL;oima-->PlanePick=l; 

373 Gu oima->Plane0n0ff=0;oima->NextImage=NULL; 

374 di drima->LeftEdge=0;drima->TopEdge=ll;drima->Width=512; 

drima->Height=200; 

375 P2 drima-> Depth=2;drima->ImageData=NULL;drima-> PlanePick 

=3; 

376 tM drima->PlaneOnOff=0;drima->NextImage=NULL; 

377 rO mima->LeftEdge=522;miraa->TopEdge=71;mima->Width=64;mi 

ma->Height=50; 

378 MK mima->Depth=l;miraa->ImageData=NULL;mima->PlanePick=l; 

379 6q mima->Plane0n0ff=0;mima->NextImage=NULL; 

380 H6 bpoi=drawmem+12800; 

381 2F for (i=0;i<=199;i++) 

382 6Z { 

383 KQ6 for(j=0;j<=63;j-H-,bpoi-H-) 

384 8b ( 

385 nY9 *bpoi=128; 

386 fc if(i<4 == 0) 

387 2JC ^fbpoi=0xff; 

388 G16 ] 

389 Hm3 } 

390 lg retum(O); 

'391 cDO cleanupl: FreeRaster(drawmem,512,400); 

392 hP cleanup2: FreeMem(cmatrix,102400); 

393 QB cleanup3: FreeMem(f_info,sizeof(struct FilelnfoBlock)); 

394 R3 cleanup4: FreeMem(mima,sizeof(struct Image)); 


395 Wp cleanup5: FreeMera(drima,sizeof(struct Image)); 

396 IR cleanup6: FreeMera(oima,sizeof(struct Image)); 

397 S33 retum(-l); 

398 QvO ) 

399 dj /*h3.11- Sicherheitsabfragen un Meldungen ausgeben — 

- »/ 

400 IJ char »shtxt[]= 

401 Ps [ 

402 1 x 3 'Are you shure to quit ?', 

403 PW 'I can't find this font !', 

404 mp ''ERROR II Font not saved.', 

405 10 'Not enough Memory 111", 

406 Co 'I can't find Diskfont Library", 

407 Ai "No ASSIGN I Please use CLI", 

408 53 'Loading Font I Please Wait", 

409 EM 'Loading Topaz/8 I Please Walt', 

410 q8 "Examine Font 11", 

411 WM "One Moment I Writing Char Data I", 

412 24 "Creat New Fastdirectory I", 

413 50 "Writing xxxx.font I", 

414 zvO ] ; 

415 qp BYTE Shure(nr) 

416 83 BYTE nr; 

417 f8 [ 

418 WS static flag=0; 

419 GZ static struct Window ^^swind; 

420 C3 ULONG flags=ACTIVATE] WINDOWDRAG; 

421 Ys ULONG dass; 

422 gt USHORT Code; 

423 DJ char text[2][4]; 

424 fD short sh_data[2][4]; 

425 YH short wbr; 

426 JF BYTE i; 

427 g23 if(nr>=6 && flag==l) 

428 qJ ( 

429 Pm6 flagrO; 

430 se CloseWindow(swind); 

431 QL retum(O); 

432 yT3 ] 

433 hN wbr=strlen(shtxt[nr])^t8+28; 

434 JG studata[0][0]=10;sh_data[0][l]=32;sludata[0][2]=40;sh_da 

ta[0][3]=44; 

435 9k if(nr>0) sludata[0][2]=32; 

436 ef sh_data[l][0]=wbr-44;sh_data[l][l]=32; 

437 ft sh-.data[l][2]=wbr-22;sh_data[l][33=44; 

438 r8 if(nr<l) 

439 lU ( 

440 v06 strcpy(text[0],"YES");strcpy(text[l],"NO"); 

441 7c3 ) 

442 xk eise 

443 5Y { 

444 FS6 strcpy(text[0],'0K');strcpy(text[l],text[0]); 

445 Bg3 ] 

446 AP swind=Make_Window(0,0,wbr,51,'REQUEST",flags,M0USEBUTT0N 

S,0); 

447 i3 if(swind==0)return(0); 

448 TM SetAPen(swind->RPort,l);RectFill(swind->RPort, 0 , 11 ,wbr 

,51); 

449 DA Box(swind->RPort,2,12,wbr-3,49,0,JAMl); 

450 KO Text_out(swind->RPort,10,l6,0,l,JAM2,shtxt[nr],0); 

451 Jf if(nr<6) 

452 Eh [ 

453 gK6 for(i=0;i <=!;!++) 

454 GJ ( 

455 619 Box(swind->RPort,sh_data[i][0],sh_data[i][l],sh_d 

ata[i][2], 

^56 hbN sli_data[i][3],2,JAMl); 

457 8a9 Text_out(swind->RPort,sludata[i][0]+3,sh_data[l][ 

1]+3,0,1,JAM2, 

458 ici text[i],0); 

459 Pu6 ) 

460 Qv3 ] 

461 G3 eise 

462 Or { 

463 2 N 6 flagci; 

464 xs re tum (0); 

465 V03 ] 

466 41 FOREVER 

467 Tw [ 

468 Ep6 while(ExaIntui(swind,&class,&code)) 

469 Vy [ 

470 oH9 if(CodeUSELECTDOWN)break; 

^71 Ju i=Prurec(swind->MouseX,swind->MouseY,sh_data,0,l 

Listing 5. (Fortsetzung) 
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472 RH 

473 ZL 

474 nd 

475 fA6 

476 gB3 

477 hCO 

478 JO 


if(i<0)break; 
CloseWindow(swind); 
return(i); 


/»h3.12-Direktory sortieren 

- */ 


479 

qT 

void SortDir(names,anz) 

o 

00 

62 

BYTE »names; 

481 

oV 

short anz; 

482 

IB 

( 

483 

Qk 

register short i,J=l; 

484 

IP 

BYTE ^tpl=names,*p2,*p3,h; 

485 

U93 

p3=AllocMem (1024, MEMF_C] 

486 

nB 

if (p3==0) retum(); 

487 

Lt 

p2=p3; 

488 

JE 

for (i=0; i < =1023; i++, pl- 

489 

6K 

pl=names; 

490 

W6 

for(i=l;1< =anz-l;i++) 

491 

rK 

( 

492 

E46 

h=^^p2;p2++; 

493 

Am 

if(h==i) 

494 

uN 

( 

495 

w9 

•pl=l;pl++j 

496 

Ln 

strcpy(pl,p2); 

497 

8p 

pl+=strlen(p2)-Hl; 

498 

2X6 

] 

499 

Dv 

p2+=strlen(p2)+l; 

500 

4Z3 

] • 

501 

Z7 

p2=p3; 

502 

il 

for(i=l;l<=anz-l;i-H-) 

503 

3W 


504 

QG6 

h=»p2;p2-H-; 

505 

Ju 

if(h==0) 

506 

6Z 

( 

507 

159 

*pl=0;pl-H-; 

508 

Xz 

strcpy(pl,p2); 

509 

Kl 

pl+=strlen(p2)+l; 

510 

Ej6 

1 



Name 


e 


Telefon 


Adresse 




e 


w 


Abo für Zeitschrift/ 
ab Ausgabe 


Datum/Unterschrift 


Zahlungsweise Vg 


Unterschrift des Erziehungs¬ 
berechtigten bei Jugend¬ 
lichen unter 18 Jahren 


511 P7 

512 G13 

513 pw 

514 InO ] 

515 SL / 

516 yS A 

517 Ro ( 

518 II ( 

519 eC i 

520 OT ( 

521 sra3 

522 vk 

523 186 

524 3H3 

525 KA6 

526 He3 

527 fi 

528 iV 

529 FO 

530 T8 

531 Vy 

532 jw6 

533 zt 

534 Y1 

535 oc9 

536 nO 

537 fA6 

538 gB3 

539 sg 

540 3k 

541 byB 

542 7d3 

543 IGO ; 

544 YM 

(C) 1987 


p2+=strlen(p2)+1; 

] 

FreeMem(p3,1024); 


Zeichensatzdiskette aktualisieren — 


void Assign(drive) 
char ^^drive; 


struct FileLock ^tlockp,*Lock(); 
char text[100],^^point,i; . 

strcpy(text,drive);text[4]=0; 
if((lockp=Lock(text,ACCESS_READ))==0) 
retumO j 

if(Examine(lockp,f_info)==0) 
re tum (); 

UnLock(lockp ); 

— Stern und Anführungszeichen im Filenamen bearbeiten 

point=f_info-> fib_FileName; 
strcpy(text, f_info-> fib_FileName ); 
for(i=0;i <= strlen(text);i-H-,point-H-) 

( 

^^point=text[i]; 

]] textCl] — ''') 

( 

^^point=' ' j point++; 

*point=text[i]; 


- */ 

sprintf(text, *'assign > nil: fonts: \"%3:%s\''*, 
f_info- > f ib_FileName,drive+4); 

Execute(text,0,0); 


Listing 5. (Schluß) 


Supei^Software 

ÄDonneitieiit: 

Wußten Sie , daß Sie die Disketten zu den Listings aus den 
Markt&Technik-Zeitschriften im Abonnement bestellen können? 
Für nur DM 298,- jährlich erhalten Sie jeden Monat die 
Diskette aus einer dieser Zeitschriften: 64’er, Amiga-Magazin, 

PC Magazin Plus oder ST-Magazin. 

Für Schüler und Studenten gibt’s Ermäßigung: DM 278,- 
jährlich (bitte Kopie des Ausweises beifügen). Sie können 
vierteljährlich, halbjährlich oder jährlich bezahlen. 

Sie sparen sich durch ein Abo mehr als DM 50,- und die Zeit 
für die Bestellabwicklung - deshalb: am besten 
gleich den Coupon ausschneiden und ausgefüllt an die 
genannte Adresse schicken! 

Das Abo kann innerhalb von 8 Tagen 
widerrufen werden. 


MarktSTechnik Verlag AG 
Unternehmensbereich Buchverlag 
Software • Schulung _ Hans-Pinsel-Str. 2, 8013 Haar bei München 






















WRAFIK-TOOLS 

Amiga kunterbunt 


Daß der Amiga mit Farben nicht gerade 
geizt, ist allgemein bekannt. Aber wie 
steht es um Funktionen zur Bearbeitung 
und Manipulation bestimmter Farben in 
einer Grafik? Wir haben genau auf die¬ 
sem Bereich ein Defizit entdeckt, das mit 
»BlitColor« behoben wird. 


D ie Grafik-Bibliothek 
des Amiga stellt um¬ 
fangreiche Funktionen 
zur Verfügung, einzelne Bild¬ 
teile zu kopieren und sie 
gleichzeitig zu verfremden. Al¬ 
lerdings kommt manchmal der 
Wunsch auf, dieses auch auf 
einzelne Farben zu beschrän¬ 
ken. Nach einer ergebnislosen 
Suche in der »graphics.library« 
ist der C-Programmlerer dann 
auf sich selbst angewiesen. 
Steht man mit dem Blitter even¬ 
tuell auf Kriegsfuß, dann sieht 
das Ganze ziemlich hoffnungs¬ 
los aus. 

Die hier vorgestellten Funk¬ 
tionen des Programms »Blit¬ 
Color« (Listing 1) sollen nun 
helfend eingreifen und die 
Grundlage für das »farbweise« 
Bearbeiten von Bildern schaf¬ 
fen. Dies ist einigen Anwen¬ 
dern zum Beispiel durch die 
Programme »PixMate« oder 
»Butcher« bekannt. 

Was steckt 
hinter 
der Maske? 

Um die Funktionen verste¬ 
hen zu können, muß zunächst 
einmal der Begriff »Maske« 
näher erläutert werden. Eine 
Maske ist, wenn man so will, ei¬ 
ne Art Tabelle, in der vermerkt 
wird, ob an einer bestimmten 
Position ein Zustand auftritt 
oder nicht. Auf eine spezielle 
Farbe einer Grafik bezogen 
gibt die Maske also einen Hin¬ 
weis, ob diese Farbe vorhan¬ 
den ist oder nicht. Möchte man 
beispielsweise für einen 320 x 
200 großen und vier Bitplanes 
tiefen Screen eine Maske er¬ 
stellen, so bleibt nichts ande¬ 
res übrig, als bei jedem Punkt 
»nachzuschauen«, ob er die 
entsprechende Farbe hat oder 
nicht. Dieses wird dann mit »1« 
oder »0« In die Tabelle eingetra¬ 
gen. Demnach muß die Maske 
auch genau die Größe unserer 
Farbgrafik haben, also 320 x 
200 Bit. Es ist dabei auch egal, 
wie »tief« unsere Grafik Ist, 
denn die Maske enthält ja nur 
die Information über das Auf¬ 
treten einer einzigen Farbe. 
Soll nur ein Ausschnitt aus 
dem Screen benutzt werden, 
so kann die Maske entspre¬ 
chend kleiner sein. Letztend¬ 
lich Ist eine Maske mit einer 
Grafik gleichzusetzen, die 
aber Immer nur eine Bitplane 
benötigt. 


Um nun eine Maske dieser 
Art zu erstellen, wird die Funk¬ 
tion »GetColorMask« aufgeru¬ 
fen. Sie brauchen nur die not¬ 
wendigen Parameter zu über¬ 
geben, die folgendermaßen 
definiert sind: 


void GetColorMask (Sour- 
ceBitMap, SourceX, SourceY, 
MaskBitMap, MaskX, MaskY, 
SizeX,SizeY, Color) 
struct BitMap *Source 
BitMap, *MaskBitMap; 

WORD MaskX, MaskY, SizeX, 
SizeY; UBYTE Color; 


»SourceBitMap« gibt die Bit¬ 
map der Grafik an, in der Sie 
Veränderungen vornehmen 
wollen. Diese muß natürlich 
entsprechend ermittelt oder 
initialisiert werden. 

»MaskBitMap« ist der Grafik¬ 
bereich, den Sie als Maske be¬ 
nutzen wollen. Auch diese 
BItmap-Struktur sollte richtig 
Initialisiert sein. »SourceX« 
und »SourceY« legen fest, ab 
welcher X- und Y-Position mit 
der Maskierung begonnen 
werden soll. 

»MaskX« und »MaskY« be¬ 
wirken, daß die maskierten Da¬ 
ten auch Innerhalb der Mask- 
bitplane verschiedene Positio¬ 
nen annehmen können. Die 
Größe des Bereichs wird mit 
»SizeX« und »SizeY« einge¬ 
stellt, und die Farbe wird letzt¬ 
endlich mit »Color« ausge¬ 
wählt. 

Eine Farbe 
wird ersetzt... 

Haben Sie erst einmal die 
Maske für einen bestimmten 
Bereich in der Grafik ermittelt, 
so läßt sich diese nun dazu ver¬ 
wenden, die festgelegten 
Punkte durch eine andere Far¬ 
be zu ersetzen. Dazu rufen Sie 
die Funktion »CreateColor« 
auf. Im Vergleich zu »GetColor¬ 


Mask« sind nur die beiden 
Bitmap-Parameter vertauscht, 
da ja nun der umgekehrte Vor¬ 
gang stattfindet. 

Mit anderen Worten: Ist In 
der Maskbltplane ein Pixel ge¬ 
setzt, so bekommt der entspre¬ 
chende Pixel in der Destina¬ 
tionbitplane — ehemals Sour¬ 
cebitpläne — die mit Color aus¬ 
gewählte Farbe; ist der 
Maskbltplane-PIxel gelöscht, 
so bleibt der Pixel in der Destl- 
nationbitmap unverändert. Al¬ 
le weiteren Parameter sind 
identisch. Dieser Vorgang läßt 
sich mit der Routine »Replace- 
Color« auch auf einmal erledi¬ 
gen; es müssen nur zwei Far¬ 
ben angegeben werden, näm¬ 
lich die zu ersetzende und die 
neue Farbe. 

..äOder 

ausgetauscht 

Möchten Sie nun zwei Far¬ 
ben austauschen, so ist es un¬ 
umgänglich, sich eine zweite 
MaskBitMap anzulegen, da 
nun das Auftreten von zwei Far¬ 
ben vermerkt werden muß. Da¬ 
her benötigt die Funktion »Ex- 
changeColor« drei weitere Ar¬ 
gumente. Dies ist der Zeiger 
auf eine weitere Bitmap- 
Struktur und die Werte der X- 
und Y-Koordinate in der zwei¬ 
ten Maskbltplane. Die beiden 
auszutauschenden Farben 
werden notwendigerweise 
auch angegeben. 

Wenn sich 
der Guru meldet 

Innerhalb der Funktionen er¬ 
folgt keine Prüfung der überge¬ 
benen Argumente. Die Funk¬ 
tionen sind daher recht emp¬ 
findlich gegenüber falsch 
übergebenen Parametern und 
rächen sich meist mit einem 
verwüsteten Speicher. Um 
ganz sicher zu gehen, sollten 
Sie die Maskbltplane immer 
auf die Größe der zu bearbei¬ 
tenden Bitplanes bringen, so 


daß wirklich jeder Bereich ma¬ 
nipuliert werden kann. Wer mit 
dem Gedanken spielt, sich sei¬ 
ne Maskbltplanes selbst anzu¬ 
legen, der sollte bedenken, 
daß diese im Chip-Memory lie¬ 
gen müssen. Unsere Routinen 
greifen nämlich auf die Funk¬ 
tion »BlltBitMap« der »gra¬ 
phics.library« zurück, die den 
Blitter benötigt. Dieser wieder¬ 
um gehört zu den Custom- 
chips, die nur die untersten 
512K des Speichers adressie¬ 
ren können, also das soge¬ 
nannte Chip-Memory. 

BitMap ist nicht 
gieich Rastport 

Sie werden sich bestimmt 
schon gewundert haben, war¬ 
um bisher nur Bitmaps zur 
Festlegung der Grafik benutzt 
wurden und nicht die dafür 
sonst häufig benutzten Rast¬ 
ports? Nun, das liegt einfach 
daran, daß Rastports die Bear¬ 
beitung von überlappenden 
Speicherbereichen innerhalb 
der Bitplanes ermöglichen, 
das sogenannte »Clipping«. 
Dies tritt zum Beispiel auf, 
wenn Sie in der Workbench ein 
Fenster auf ein anderes legen 
und diese sich somit teilweise 
oder ganz überlagern. Zur Ver¬ 
waltung der daraus resultie¬ 
renden »Schnittspeicherberei¬ 
che« wird die »layer.llbrary« be¬ 
nutzt, was natürlich zusätzli¬ 
chen Rechenaufwand erfor¬ 
dert und Grafikoperationen 
bremst. Unsere Routinen ar¬ 
beiten mit Bitmaps und sind 
daher sehr schnell. 

Möchten Sie allerdings als 
Programmierer die Möglich¬ 
keit des »Clippings« nicht mis¬ 
sen, so wird einfach In unse¬ 
rem C-Quelltext die Funktion 
»BlltBitMap« durch »ClipBlit« 
ausgetauscht. Diese führt im 
Prinzip die gleiche Operation 
durch, jedoch auf Rastports 
bezogen. Ebenso muß vorher 
die Angabe der zu verarbeiten¬ 
den Bitplanes — das zehnte 
Argument beim BlitBltMap- 
Aufruf — durch den Makro 
»SetWrMskO« ersetzt werden, 
da sich hierfür extra ein Ele¬ 
ment in der Rastport-Struktur 
befindet. Als letzter Schritt wird 
überall »BitMap« zu »RastPort« 
umbenannt; es soll ja mit Rast- 
Ports gearbeitet werden. 

Unser Demo-Programm (Li¬ 
sting 2) generiert zunächst ei¬ 
ne Zufallsgrafik in verschlede- 
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nen Farben. Mittels der ander zusammengerafft. Der 
Exchange-Funktion werden Einfachheit halber werden hier 
dann auf der linken Screen- für die beiden MaskBitPlanes 
hälfte Farben vertauscht. Das zwei Screens geöffnet, die Sie 
Programm endet mit einer neu- sich während der Ausführung 
en Variante, ein Bild auszu- des Programms einmal an¬ 
blenden: Die Farben werden schauen sollten, 
mit »ReplaceColor« nachein- (Thomi Mauch/ 

Christian Wolf/rs) 


Programmname: 

BlitColor.h 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

C 

Compiler: 

Aztek-C V3.4 und Lattice-C V4.0 

Aufrufe: 

abhängig vom verwendeteten 

Compiler 

Bemerkung: 

Die Routine ist in eigene 

C-Programme mit »#include« 
einzubinden 


Programm : BlitColor.h 


1 R50 /****»**»it»*^(it»**^nn^*****i(******«#*»******innt****itÄ*innnnt/ 


2 Cq /*** ***/ 

3 7Z Routinen zum Bearbeiten von Farben ***/ 

4 Es /**» ***/ 

5 kp written in 1988 by Thomi Mauch ***/ 

6 Gu /*** ***/ 


7 XB /***Ä**»***»»^n^ÄinnnnJ^nnnnt*JHHt*#*»«»*******»********^^***^^/ 

8 iU struct BitMap TmpBitMap; 

9 qN InitTmpBitMap (BitMap) 

10 2W struct BitMap ^^BitMap; 

11 7a [ 

12 zX3 /* interner Gebrauch: verbiegt Pointer einer BitMap */ 

13 3h WORD i; 

14 TG TmpBitMap.BytesPerRow = BitMap->BytesPerRow; 

15 SC TmpBitMap.Rows = BitMap->Rows; 

16 B2 TmpBitMap.Flags = BitMap->Flags; 

17 2x TmpBitMap.pad = BitMap->pad; 

18 uR TmpBitMap.Depth = 8; 

19 Br for (i=0; i<8; 1++) 

20 TG6 TmpBitMap.Planes[i] = BitMap->Planes[0]; 

21 LqO ) 

22 7k GetColorMask (SrcBitMap,SrcX,SrcY,MaskBitMap,MaskX,MaskY,Siz 

eX,SizeY,Color) 

23 Kx struct BitMap *SrcBitMap,*MaskBitMap; 

24 Im WORD SrcX,SrcY,MaskX,MaskY,SizeX,SizeY; 

25 dl BYTE Color; 

26 Mp ( 

27 YE3 /*** extrahiert eine Farbe aus einer BitMap und ***/ 

28 Vn /*** stellt sie auf einer einzigen BitPlane als ***/ 

29 UT /*** Maske dar ***/ 

30 Ky WORD i; 

31 xa UBYTE Minterm; 

32 Ql InitTmpBitMap (MaskBitMap); 

33 G3 if (Color & 1) 

34 A76 Minterm = OxcO; /* Dest = Source */ 

35 0B3 eise 

36 ZV6 Minterm = 0x30; /* Dest = NOT Source */ 

37 zs3 BltBitMap (SrcBitMap,SrcX,SrcY,&TmpBitMap,MaskX,MaskY,Siz 

eX,SizeY,Minterm,!,NULL); 

38 N2 for (i=l; i<SrcBitMap-> Depth; i-H-) 

39 Z26 { 

40 tm if (Color & (l<<i)) 

41 E89 Minterm = 0x80; /* Dest = Source AND Dest 

42 VI6 eise 

43 Tc9 Minterm = 0x20; /* Dest = NOT Source AND Dest ^^/ 

44 4h6 BltBitMap (SrcBitMap,SrcX,SrcY,&TmpBitMap,MaskX,MaskY, 

SizeX,SizeY,Minterm, 1< < i,NULL); 

45 JE ] 

46 kFO } 

47 mm CreateColor (MaskBitMap,MaskX,MaskY,DestBitMap,DestX,DestY,S 

izeX,SizeY,Color) 

48 5V struct BitMap «MaskBitMap,»DestBitMap; 

49 JG WORD MaskX,MaskY,DestX,DestY,SizeX,SizeY; 

50 2Q BYTE Color; 

51 lE ( 

52 tD3 /««« verarbeitet eine Maske zu einer Farbe und «««/ 

53 3CO /««* kopiert sie auf das Ziel, ohne den Hinter- «««/ 


54 ZI /««« grund zu verändern «««/ 

55 JN WORD i; 

56 Mz UBYTE Minterm; 

57 pA InitTmpBitMap (MaskBitMap); 

58 WP for (i=0; i<DestBitMap-> Depth; i++) 

59 tM6 { 

60 D6 if (Color & (l<<i)) 

61 129 Minterm = OxeO; /« Dest = Source OR Dest «/ 

62 pc6 eise 

63 nw9 Minterm = 0x20; /« Dest = NOT Source AND Dest «/ 

64 F86 BltBitMap (&TmpBitMap,MaskX,MaskY,DestBitMap,DestX,Des 

tY, SizeX, SizeY, Minterm, 1< < i, NULL); 

65 3Y ] 

66 4Z0 ] 

67 JT ReplaceColor (BitMap,X,Y,MaskBitMap,MaskX,MaskY,SizeX,SizeY, 

FromColor,ToColor) 

68 GY struct BitMap «BitMap,«MaskBitMap; 

69 Kz WORD X,Y,MaskX,MaskY,SizeX,SizeY; 

70 3Y BYTE FromColor,ToColor; 

71 5Y ( 

72 T73 /*** Ersetzt eine Farbe durch eine andere «««/ 

73 AU GetColorMask (BitMap,X,Y,MaskBitMap,MaskX,MaskY,SizeX,Siz 

eY,FromColor,NULL); 

74 Zd CreateColor (MaskBitMap,MaskX,MaskY,BitMap,X,Y,SizeX,Size 

Y,ToColor,NULL); 

75 DiO ) 

76 ZF ExchangeColor (BitMap,X,Y,MaskOBitMap,MaskOX,MaskOY,MasklBit 

Map,MasklX,MasklY,SizeX,SizeY,ColorO,Colorl) 

77 B4 struct BitMap «BitMap,«MaskOBitMap,«MasklBitMap; 

78 Br WORD X,Y,MaskOX,MaskOY,MasklX,MasklY,SizeX,SizeY; 

79 V9 BYTE ColorO,Colorl; 

80 Eh [ 

81 dd3 /««« Vertauscht zwei Farben «««/ 

82 PO GetColorMask (BitMap,X,Y,Mask0BitMap,Mask0X,Mask0Y,SizeX, 

SizeY,ColorO,NULL); 

83 Jh GetColorMask (BitMap,X,Y,MasklBitMap,MasklX,MasklY,SizeX, 

SizeY,Colorl,NULL); 

84 5o CreateColor (Mask0BitMap,Mask0X,Mask0Y,BitMap,X,Y,SizeX,S 

izeY,Colorl,NULL); 

85 Fv CreateColor (MasklBitMap,MasklX,MasklY,BitMap,X,Y,SizeX,S 

izeY,Color0,NULL); 

86 OtO j 
(C) 1987 M&T 

Listing 1. Die Routine »BlitColor.h« binden Sie einfach 
mit »#include« in eigene Programme ein. Bitte mit dem 
Checksummer (Seite 159) eingeben. 


Programmname: 

Demo.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Compiler: 

s. Listing 1 

Aufrufe: 

s. Listing 1 

Bemerkung: 

Demo zeigt einige Möglichkeiten der 
Routine »BlitColor« 

Programm : Demo.c 


1 ksO #lnclude ''exec/types.h*' 

2 Y1 #include Intuition/intuition.h'" 

3 NZ #include ''graphics/text.h' 

4 Up #include "graphics/gfx.h'' 

5 X5 #include ^BlitColor.h' 

6 Zs struct Screen «OpenScreen(); 

7 45 LONG GfxBase, 

8 Ey5 IntuitionBase; 

9 RhO struct RastPort «rp; 

10 13 struct Screen «screen[3]; 

11 og struct NewScreen ns = 

12 8b3 ( 

13 3P 0,0,320,256,0, 

14 KP 0,1,0, 

15 B6 CUSTOMSCREEN 

16 ZV ] ; 

17 WnO static UWORD color [32] = 

18 Eh3 ( 

19 gm 0x000, Oxfff, OxffO, OxfcO, 0xf90, 0xf60, 0xf30, OxfOO, 
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0xf08, OxfOc, OxfOf, OxcOf, OxaOf, 0x70f, 0x40f, OxOOf, 

0x04f, 0x09f, OxObf, OxOdf, OxOff, OxOfa, OxOfO, OxOcO, 

0x090, Oxba5, 0xb86, 0x866, Oxccc, 0x999, 0x666, 0x333 

); 

#define RND RangeRand 
raaln () 

[ 

WORD i; 

InitScreen (); 

/*** Bild zeichnen ***/ 
for (i=0; i<1000; -H-i) 

SetAPen (rp,RND(32)); 

Move (rp,RND(320),12+RND(244)); 

Draw (rp,RND(320),12+RND(244)); 

] 

/**» Demo 
Delay (50); 

for (i=0; i<100; i+=2) 

ExchangeColor (&screen[0]-> BitMap,0,12,ftscreen[1]-> B 
itMap,0,12,&screen[2]-> BitMap,0,12,160,244,1+RangeRan 
d(31),l+RangeRand(31)); 

Delay (50); 

for (i=0; i<31; -H-i) 

ReplaceColor (&screen[0]-> BitMap,0,12,&screen[l]-> Bi 
tMap,0,12,320,244,i,i-hl); 

Free (); 

) 

InitScreen () 

( 

WORD i; 

if (I (GfxBase = OpenLibrary (''graphics.library*',0))) 
CleanUp ('"Can't open graphics.library"); 
if (I (IntuitionBase = OpenLibrary (*'intuition.library*,0 
))) 

CleanUp (''Can't open Intuition.library^); 
for (i=2; i>=0; i—) 


55 nG6 

f 

54 QU 

if (i==0) 

55 1Q9 

ns.Depth = 5; 

56 jW6 

eise 

57 y99 

ns.Depth = 1; /* Hintere Screens nur eine BitPlane 

*/ 

58 SJ6 

if (I (screen[i] = OpenScreen (8cns))) 

59 cz9 

CleanUp (''Can't open screen""); 

60 yT6 

1 

61 Zm3 

LoadRGB4 (&screen[0]->ViewPort,color,32); 

62 nq 

rp = &screen[0]->RastPort; 

63 lWO ) 

64 bG 

CleanUp (str) 

65 UX 

char *str; 

66 OT 

( 

67 UK3 

printf (''lts\n'',str); 

68 kc 

Free (); 

69 Uk 

Exit 0; 

70 8d0 

) 

71 3U 

Free () 

72 6Z 

( 

73 lf5 

WORD i; 

74 kL 

for (i=0; i<3; i-H-) 

75 QM6 

if (screen[i]) 

76 dc9 

CloseScreen (screen[i]); 

77 Wi3 

if (IntuitionBase) 

78 JQ6 

CloseLibrary (IntuitionBase); 

79 535 

if (GfxBase) 

80 RK6 

CloseLibrary (GfxBase); 

81 JoO 

) 

(C) 1987 M8cT 

Listing 2. »demo.c» zeigt Ihnen auf einfache Weise die 

Verwendung der Funktionen 








^v/PP 
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G ravitation, die Massen¬ 
anziehungskraft, ist 
für uns moderne Men¬ 
schen so selbstverständlich, 
daß wir uns über sie kaum noch 
Gedanken machen. Doch ge¬ 
rade deshalb fehlt bei vielen 
das Verständnis für dieses fas¬ 
zinierende physikalische Phä¬ 
nomen. 

Mit dem Programm »DeRev« 
(Listing 1), welches das Experi¬ 
mentieren mit der Gravitation 
in der Welt der Planeten und 
Sterne erlaubt, kann man sich 
nicht nur das fehlende Ver¬ 
ständnis aneignen. Der An¬ 
wender ist zudem in der Lage, 
ein wenig den »Schöpfer« zu 
spielen und neue Welten und 
Sonnensysteme zu erschaffen 
und untergehen zu lassen 
(Bild 1). 

Das Prinzip des Programms 
beruht darauf, bis zu hundert 
Objekte auf dem Bildschirm zu 
verteilen und jedem seine ei¬ 
gene Masse und Geschwindig¬ 
keit geben zu können. Wenn 
man die Berechnung startet, 
wird die Anziehungskraft jedes 
einzelnen Objektes auf jedes 
andere berechnet. Dadurch 
ändern sich die Bahnen und 
Geschwindigkeiten, womit 
sehr deutlich die Wirkung star¬ 
ker und schwacher Gravita¬ 
tionskräfte zu beobachten ist. 

Um ein lauffähiges Pro¬ 
gramm zu erhalten, müssen 
die beiden Programmteile »De- 
Rev.MAIN.c« und »DeRev.lO.c« 
mit dem Checksummer abge¬ 
tippt und anschließend compi- 
liert werden. Die Compilerauf¬ 
rufe für den Aztec C-Compiler 
lauten: 

cc DeRev.MAIN.c +1 -S 
cc DeRev.lO.c 

Anschließend sind die bei¬ 
den ».o«-Dateien zusammen¬ 
zulinken: 

ln -o DeRev De- 
Rev.MAIN.o DeRev.lO.c - 
lm32 -lc32 

Im Anschluß daran steht das 
lauffähige Programm unter 
dem Namen »DeRev« zur Ver¬ 
fügung. Das Programm benö¬ 
tigt die »mathtrans.library«, die 
im aktuellen »Ilbs«-Verzeichnis 
stehen muß. 

Wird das Programm gestar¬ 
tet, erscheint zunächst nur 
ein dunkelblauer Bildschirm. 
Mit der rechten Maustaste ge¬ 
langt man zum Pull-Down- 





vorgenommen werden kann. 

Position: Hier kann nach¬ 
träglich die Position eines Ob¬ 
jekts geändert werden. 

Geschwindigkeit: Dient zur 
Änderung der Geschwindig¬ 
keit. 

Löschen: Der Benutzer legt 
zuerst fest, welches Objekt ge¬ 
löscht werden soll. Danach er¬ 
scheint eine Sicherheitsabfra¬ 
ge. Wird diese mit »J« beant¬ 
wortet, verschwindet das Ob¬ 
jekt vom Bildschirm und wird 
auch nicht mehr in die Berech¬ 
nung mit einbezogen. Wenn 
man nun zum Beispiel Objekt 2 
löscht, entsteht an Stelle 2 aber 
kein Loch, sondern die nach¬ 
folgenden Objekte rücken in 
den Nummern um eins vor. Ob¬ 
jekt 3 wird zu 2 und so weiter. 
Das gelöschte Objekt stellt 
sich nun aber an den frei ge¬ 
wordenen letzten Platz. Also 
kann man dieses Objekt wie¬ 
der auf den Bildschirm brin¬ 
gen, indem man »Neues Ob¬ 
jekt« anwählt und die Werte 
einfach nicht verändert. Ne¬ 
benbei können auf diese Art 
und Weise auch Objekte nur 
für eine Weile aus der Berech¬ 
nung ausgeschlossen werden. 

Zeigen: Wenn man die Ob¬ 
jekte eine Weile hat kreisen 
lassen, fällt es einem vielleicht 
schwer, unter den vielen Ob¬ 
jekten und Bahnen noch fest¬ 
zustellen, welche Nummer 
welches Objekt hat. Deshalb 
kann in diesem Menüpunkt die 
Nummer des gesuchten Ob¬ 
jekts angewählt werden. 
Drückt der Benutzer auf »OK«, 
wird das Objekt so lange blin¬ 
ken, bis die linke Maustaste ge¬ 
drückt wird. 

Zeitintervall: Bestimmt, wie 
viele Stunden zwischen zwei 
Berechnungsschritten verge¬ 
hen sollen. Voreingestellt sind 
hier 24 Stunden, die ein guter 
Kompromiß zwischen Ge¬ 
schwindigkeit und Genauigkeit 
darstellen. Besonders bei stark 
exzentrischen Bahnen, also 
Bahnen, die stark von der 


Menü, mit dem das gesamte 
Programm gesteuert wird. 

Es gibt insgesamt 19 Menü¬ 
punkte: 

Start: Die Berechnung wird 
gestartet. 

Stop: Die Berechnung wird 
angehalten. 

Neues Objekt: Zu den 
schon bestehenden Objekten 
kann ein weiteres hinzugefügt 
werden. Dazu wird eine Reihe 
von einzelnen Requestern 


düng von Proportional-Gad- 
gets wurde verzichtet, da es 
kompliziert geworden wäre, mit 
diesen Gadgets sehr große 
Zahlenbereiche mit bis zu drei 
Stellen hinter dem Komma ge¬ 
nau anzugeben. Ist die Posi¬ 
tion eingestellt, drückt man auf 
»OK«. Es erscheint ein Fenster, 
mit dem man die Masse des 
Objekts eingeben kann. Auch 
hier beendet »OK« die Funk¬ 
tion. Als letztes ist die Ge¬ 


Der 


Weltenbauer 


Haben Sie nicht auch schon davon ge¬ 
träumt, Planeten zu erschaffen und auf ei¬ 
ne Umlaufbahn um eine Sonne zu brin¬ 
gen? Erleben Sie mit unserer Simulation 
»hautnah» die Massenanziehungskraft 
bei Himmelskörpern. 


durchlaufen, in denen die Pa¬ 
rameter einzustellen sind. Als 
erstes ist anzugeben, ob man 
das Objekt auf dem Bildschirm 
positionieren will. Wird »J« ge¬ 
wählt, kann mit der Maus über 
den Bildschirm gewandert und 
die gewünschte Position ge¬ 
wählt werden. Am oberen Bild¬ 
schirmrand wird der Abstand 
von der Bildmitte in Millionen 
Kilometern angegeben. Nach 
Druck auf die linke Maustaste 
erscheint ein Fenster, in dem 
sich die Position noch einmal 
mit Hilfe von vier kreuzförmig 
angeordneten »Knöpfen« ge¬ 
nauer angeben läßt. In dieses 
Fenster wäre man auch ge¬ 
kommen, hätte man sich am 
Anfang gegen die Positionie¬ 
rung auf dem Bildschirm ent¬ 
schieden. Je länger man auf 
einen Knopf drückt, 
um so schnel¬ 
ler wird herauf- 
oder herunter¬ 
gezählt. Auf 
die Verwen- 


schwindigkeit des Körpers ein¬ 
zustellen. Da sich das Objekt in 
beliebigen Richtungen über 
den Bildschirm bewegen kann, 
genügt es nicht, nur die Ge¬ 
schwindigkeit zu bestimmen. 
Vielmehr ist anzugeben, mit 
welcher Geschwindigkeit es 
sich in die X-Richtung (hori¬ 
zontal) und in die Y-Richtung 
(vertikal) bewegen soll. Natür¬ 
lich können auch hier wie bei 
der Position negative Werte 
eingestellt werden. Ist auch 
diese letzte Eingabe mit »OK« 
abgeschlossen, erscheint das 
Objekt, wenn es nicht außer¬ 
halb des Bildschirms liegt, als 
kleiner weißer Punkt an der 
eingestellten Position. 

Masse: Hiermit kann nach¬ 
träglich, auch mitten in der Be¬ 
rechnung, die Masse eines 
Objektes geändert wer¬ 
den. Dazu ist zuerst das 
betreffende Objekt zu 
bestimmen. Deshalb 
erscheint als erstes 
ein Fenster, in 
dem diese 
Einstellung 



Simulation 



Bild 1. Ein Teil eines gedachten Sonnensystems mit den 
Umlaufbahnen der einzelnen Planeten 


Kreisform abweichen, machen 
sich bei großem Zeitintervall 
Rechenungenauigkeiten be¬ 
merkbar. Dies liegt nicht etwa 
an einer schlechten Program¬ 
mierung des für die Bewegung 
zuständigen Programmteils 
oder an ungenauen Mathema¬ 
tikroutinen des C-Compllers, 
sondern an dem angewandten 
Rechenverfahren. Dem Pro¬ 
grammautor ist allerdings 
auch kein anderes Verfahren 
bekannt, welches hier Verwen¬ 
dung finden könnte. Wählt man 
den Zeitintervall genügend 
klein, werden auch sehr stark 
exzentrische Bahnen noch 
ziemlich genau berechnet. 

Fixstern (JA/NEIN): Dieser 
Menüpunkt ist schon ein 
Schalter für sich. Bei jedem 
Anwählen verändert er sich. 
Aus »JA« wird »NEIN« und um¬ 
gekehrt. In den meisten Fällen 
wird man die Bahnen von Pla¬ 
neten um einen Stern berech¬ 
nen lassen. Da aber im allge¬ 
meinen die Massen der Plane¬ 
ten so gering sind, daß sie den 
Stern nicht sonderlich aus der 
Ruhelage bringen, kann man 
Zeit bei der Berechnung spa¬ 
ren, indem man »Fixstern (JA)« 
einstellt. Dann Ist Objekt 1 un¬ 
beweglich geworden, fixiert, 
und es muß auf ein Objekt we¬ 
niger die wirkenden Kräfte er¬ 
rechnet werden. 

Das Programm geht davon 
aus, daß das Objekt 1 der Fix¬ 
stern ist. Wählt man »Fixstern 
(NEIN)«, so wird nun auch der 
Stern beweglich. So kann man 
beispielsweise beobachten, 
was mit diesem und seinen 
Planeten geschieht, wenn ein 
sehr schweres Objekt vorbei¬ 
fliegt. 

Vergrößerung: In diesem 
Fenster kann festgelegt wer¬ 
den, wie viele Millionen Kilo¬ 
meter durch einen Bildpunkt 
repräsentiert werden. Je grö¬ 
ßer die Zahl, um so weiter ent¬ 
fernt man sich von den Objek¬ 
ten. Ihr Abstand zur Bildmitte 
wird kleiner, und man kann 
auch die äußeren Regionen ei¬ 
nes Sonnensystems in Augen¬ 
schein nehmen. Je kleiner die 
Zahl, um so größer werden die 
Bahnen dargestellt. 

Uhr: Hier kann man bestim¬ 
men, ob am oberen Bildrand 
eine Uhr eingeblendet werden 
soll. Diese Uhr zeigt die verstri¬ 
chenen Jahre und Tage an. 
Sollen neben den Jahren auch 
noch die Tage ausgegeben 
werden, hat dies den Nachteil, 
daß die ständige Ausgabe der 
Tage Zelt raubt und die Ablauf¬ 
geschwindigkeit so sinkt. 

Gravo Grafik: Dieser Menü¬ 
punkt bietet die faszinierende 
Möglichkeit, die Stärke der 


Gravitation bildlich darzustel¬ 
len. Der Bildschirm wird dafür 
von oben nach unten abgeta¬ 
stet. In der dabei entstehenden 
Grafik wird die Stärke der Gra¬ 
vitationsfelder der Objekte 
durch Höhe und Breite von 
»Bergen«, den sogenannten 
Gravitationstrichtern, darge¬ 
stellt. Zuerst muß ein Deh¬ 
nungsfaktor bestimmt werden, 
der die Höhe der Berge beein¬ 
flußt. Dann ist anzugeben, wel¬ 
che Rechengenauigkeit ge¬ 
wünscht Ist. Hier sind Werte 
zwischen 1 und 16 erlaubt. Bei 
1 wird nur jede 16. Zeile des 
Bildschirms in die Rechnung 
mit einbezogen, bei 8 jede 
zweite und bei 16 alle. Die Zelt, 
die zum Erstellen einer Grafik 
benötigt wird, hängt maßgeb¬ 
lich von der gewählten Genau¬ 
igkeit, aber auch von der An¬ 
zahl der Objekte ab. Hat man 
»Fixstern (JA)« aktiviert, wird 
Objekt 1 nicht in die Berech¬ 
nung mit einbezogen. Dies hat 
den Vorteil, daß die kleinen 
Gravitationstrichter der Plane¬ 
ten, angesichts des giganti¬ 
schen Trichters der Sonne, 
nicht völlig verschwinden. Die 
Berechnung der Grafik kann 
durch Betätigen des Close- 
Gadgets beendet werden. 

Neuer Nullpunkt: Es kann 
der neue Bildschirmmittel¬ 
punkt mit dem Mauszeiger be¬ 
stimmt werden. Damit wird er¬ 
möglicht, Objekte, die aus dem 
Bildschirm hinauswandern, 
weiter zu verfolgen. 

Bildschirm löschen: Nach 
einer Sicherheitsabfrage wird 
der Bildschirm gelöscht. 

Laden: Eine zuvor gespei¬ 
cherte Konstellation wird nach 
einer Sicherheitsabfrage gela¬ 
den und kann weiter berechnet 
werden. Es erscheint eine Zei¬ 
le, in der der Pfad- oder Datei¬ 
name anzugeben ist. 

Speichern: Alle Objekte im 
Speicher werden auf Diskette 
gesichert, auch diejenigen, die 
zur Zeit nicht berechnet wer¬ 


den. Auch hier ist ein Datei¬ 
name anzugeben. 

Neu: Nach einer Sicher¬ 
heitsabfrage wird der Bild¬ 
schirm gelöscht und die An¬ 
fangsparameter eingestellt. 

Ende: Verlassen des Pro¬ 
gramms. 

Tips für 
den Anfang 

Damit man ein Gefühl für die 
richtigen Werte bekommt, ist 
unser Sonnensystem bereits 
voreingestellt. Das bedeutet, 


wenn man ein paar mal »Neues 
Objekt« wählt und die Werte 
nicht verändert, erscheinen 
die Körper unseres Sonnen¬ 
systems auf dem Bildschirm. 
Wenn man das fünfmal macht, 
hat man vor sich die Sonne und 
die inneren Planeten Merkur, 
Venus, Erde und Mars. 

Hiermit kann man beson¬ 
ders gut experimentieren, 
wenn man beispielsweise ein 
sehr schweres Objekt erschafft 
und dieses durch das innere 
Sonnensystem »fliegen« läßt. 
Beobachten Sie dabei, was mit 
den Planeten geschieht. 

Dazu läßt man jeden Plane¬ 
ten mindestens einen Umlauf 
vollenden, damit man sieht, 
wie die Bahnen für gewöhnlich 
aussehen. Dann wählt man 
»Neues Objekt«. Als nächstes 
käme eigentlich der Jupiter. Ihn 
positionieren wir aber unge¬ 
fähr bei X=280 und Y=-100. 
Damit die Wirkung deutlicher 
wird, erhöhen wir die Masse 
um das Sfache bis SOfache. 
Starten Sie die Berechnung 
und sehen Sie, was passiert... 

Aber experimentieren Sie 
selbst. So bekommen Sie am 
schnellsten eine Vorstellung 
über die Gravitation und es 
macht am meisten Spaß. 

(J. Brendel/D. Meier/rs) 


Programmname: 

DeRev 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Compiler: 

Aztec-C V3.4 

Aufrufe: 

cc DeRev. MAIN.c +1 -scc DeRev.lO.c 

In -0 DeRevDeRev.MAIN.o 
DeRev.l0.o-lm32 -Ic32 

Bemerkung: 

benötigt mathtrans.library 

Programm : DeRev 


1 DIO 

2 nj ** De revolutionibus orbium coelestium 

3 sU ** ( DeRev.MAIN.c ) 

4 4Y ** (c) 1988 by ** 

5 fs »» Jürgen Brendel ** 

6 cl **»»*^n^»*»»*****»****Ä*Ä*int#»*iHf#***Ä**innnt*/ 

7 ih #include <math.h> 

8 W1 #include < Intuition/Intuition.h> 

9 Et #define MA 100 /* — maximale Anzahl von Objekten — */ 

10 JV #define Ml 101 

11 8u #define MENP 19 /* — Anzahl der Menüpunkte — */ 

12 JN int count,Code,code2,dass,Jahre=0,XX,yy, 

13 Zc7 xaltCMl], yalt[Ml], p[l6l]; 

14 qiO float gin[Ml],m[Ml],x[Ml],y[Ml],x2[Ml],y2[Ml], 

15 yE7 Vx[Ml],Vy[Ml],Faktor,Winkel,a,Vabl,xd,yd, 

16 b5 Zeit,zeit2,gam,var2,fak,ystep,Tage=0.0; 

17 r30 char string[40],buffer[71],undo[71],z,t,i,anz,start, 

18 Ij7 bflag,vflag,uflag,tflag,jflag; 

19 djO extern save(), load(); 

20 Ho extern long ^^0penLibrary(); 

21 9q extern struct Screen *0penScreen(); 

Listing 1. Mit »DeRev.MAIN.c« erstellen Sie eigene 
Sonnensysteme, die Wirkung der Massenanziehung 
lernen Sie dabei »spielend« kennen. Bitte mit dem 
Checksummer (Seite 159) eingeben. 
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22 YI extern struct Window »OpenWindow(); 

23 qb struct Screen *screen; 

24 TU struct Window ^^window, ^^window2; 

25 hO struct IntuitionBase ^^IntuitionBase; 

26 pz struct GfxBase »GfxBase; 

27 sP struct RastPort *rport, *rport2; 

28 2R struct IntuiMessage ^^raessage; 

29 LZ struct IntuiText mt[MENP]; 

30 As struct Menultera mi[MENP]; 

31 2n struct Menu raenu = ' 

32 Sv [ 

33 W2 NULL,10,0,186,10,MENUENABLED,''(c) 1988 by J. Brendel',ml 

34 mO ]; 

35 op struct Stringinfo strinf = 

36 Wz ( 

37 gF2 (UBYTE *)&buffer,(UBYTE »)&undo,0,70,0,0,0,0,0,0,0,0,0 

38 vrO ); 

39 nw struct Gadget strgad = 

40 a3 ( 

41 TP2 NULL,3,11f517,10,GADGHC0MP,GADGIMMEDIATE ] RELVERIFY, 

42 oT STRGADGET,NULL,0,NULL,0,&strinf,NULL,0 

43 OwO ] ; 

44 XS struct NewScreen hauptscreen = 

45 f8 ( 

46 AA2 0,0,640,512,2,0,1,HIRES ] LAGE, 

47 LO CUSTOMSCREEN,NULL,NULL,NULL,NULL 

48 510 } ; 

49 LY struct NewWindow hauptwindow = 

50 kD [ 

51 6j2 0,0,640,512,0,1, MENUPICK ] MOUSEBUTTONS, 

52 ts BORDERLESS ] ACTIVATE ] SMART_REFRESH, 

53 MF NULL,NULL,NULL,NULL,NULL,10,10,640,512,CUST0MSCREEN 

54 B70 ) ; 

55 Wb struct NewWindow parawindow = 

56 qJ [ 

57 cr2 30,30,370,160,1,3,MOUSEBUTTONS, 

58 u7 WINDOWDRAG ] ACTIVATE,NULL,NULL,NULL, 

59 v8 NULL,NULL,30,30,370,160,CUST0MSCREEN 

60 HDO ) j ■ 

61 AX struct NewWindow gragrawindow = 

62 wP [ 

63 BZ2 30,0,520,512,1,3,CLOSEWINDOW, 

64 i5 WINDOWCLOSE ] WINDOWDRAG ] ACTIVATE ] GIMMEZEROZERO, 

65 Md NULL,NULL, (UBYTE GravoGrafik 

66 jX NULL,NULL,30,0,520,512,CUST0MSCREEN 

67 OKO ) ; 

68 88 struct NewWindow Iswindow * 

69 3W { 

70 rG2 0,0,521,22,1,3,GADGETUP,WINDOWDRAG ] ACTIVATE, 

71 3Q &strgad,NULL,NULL,NULL,NULL,0,0,520,13,CUSTOMSCREEN 

72 TPO ] ; 

73 NN2 -*/ 

74 Odl /*-Funktionen-*/ 

75 PPO /* -*/ 

76 qF void openall() 

77 Be ( 

78 Ap2 /*-Libraries, Screen und Window öffnen-*/ 

79 xr if(I(IntuitionBase = (struct IntuitionBase *) 

80 F24 OpenLibrary('intuition.library"', 0))) exit(FALSE); 

81 vJ2 if(I(GfxBase = (struct GfxBase *) 

82 3<i4 0penLibrary(''graphics.library", 0))) 

83 qZ2 [ CloseLibrary(IntuitionBase); exit(FALSE); ] 

84 tc if(I(screen = OpenScreen(&hauptscreen))) 

85 he [ CloseLibrary(IntuitionBase); CloseLibrary(GfxBase); 

86 aV4 exit(FALSE); ] 

87 wF2 hauptwindow.Screen = parawindow.Screen = 

88 oR7 gragrawindow.Screen = Iswindow.Screen = screen; 

89 K02 if(I(window = 0penWindow(&hauptwindow))) 

90 Bl ( CloseScreen(screen); CloseLibrary(IntuitionBase); 

91 HP4 CloseLibrary(GfxBase); exit(FALSE); ) 

92 TJ2 rport=window->RPort; 

93 JV -Menüs installieren- 

94 bb for(t=0; t<MENP; t-H-) 

95 Tw { 

96 7v4 miCt].NextItem = (t<(MENP-l)) ? &rai[t+l] : NULL; 

97 SS mi[t].LeftEdge = 0; mi[t].TopEdge = t*l6; 

98 QA mi[t].Width = 178; mi[t].Height * 10; 

9967 ml[t].Flags * ITEMTEXT ] ITEMENABLED ] HIGHCOMP; 

100 em mi[t].MutualExclude = NULL; 

101 iy mi[t].IteraFlll = (APTR) &rat[t]; 

102 ci rai[t].Command = NULL; mi[t].Subitem = NULL; 

103 Ks mi[t].NextSelect = NULL; 

104 JS mt[t].FrontPen = 0; mt[t].BackPen * 1; 

105 02 mt[t].TopEdge = 1; mt[t].LeftEdge = 5; 


106 uP mt[t].DrawMode = JAM2; mt[t].ITextFont = NULL; 

107 kt rat[t].NextText = NULL; 

108 kF2 ] 

109 yl mt[0].IText = '^Start"; 

110 NA mt[l].IText = 'Stop'; 

111 IM mt[2].IText = 'Neues Objekt'; 

112 wB mt[3].IText * "Masse'; 

113 40 mt[4].IText = "Position'; 

114 Rg mt[5].IText = 'Geschwindigkeit'; 

115 9g mt[6].IText = "Löschen"; 

116 Jn mt[7].IText = 'Zeigen'; 

117 uv mt[8].IText = 'Zeitintervall'; 

118 OD mt[9].IText = 'Fixstern (JA)'; 

119 S7 mt[10].IText = "Vergrößerung"; 

120 fZ mt[ll].IText = "Uhr"; 

121 cX mt[12].IText = 'Gravo - Grafik"; 

122 wV mt[13],IText = "Neuer Nullpunkt"; 

123 Nt mt[l4].IText = "Bildschirm löschen"; 

124 4C mt[15].IText = "Laden"; 

125 En mt[l6].IText = "Speichern"; 

126 3S mtC17].IText = "Neu"; 

127 vh mt[18].IText = "Ende"; 

128 bb SetMenuStrip(Window, &menu); 

129 6n SetRGB4(&(screen->ViewPort), 0, 0, 0, 7); 

130 PN SetRGB4(&(screen->ViewPort), 1, 3, 15, 3); 

131 Qw SetRGB4(&(screen->ViewPort), 2, 15, 15, 15); 

132 bL SetRGB4(&(screen->ViewPort), 3, 15, 0, 0); 

133 9e0 ] 

134 Do void startwerte0 

135 7a [ 

136 zA2 for(t=0; t<MA; t-H-) 

137 qx { m[t]=1.0e6; x[t]=0.0; y[t]=0.0; Vx[t]=0.0; Vy[t]*0.0; ] 

138 Zx ra[l]=1.989el5; x[l] = 0.0; y[l] = 0.0; Sonne V 

139 BMG Vx[l] = 0.0; Vy[l] = 0.0; 

140 lt2 m[2]=0.333e09; xC2] = 57.9; y[2] = 0.0; /* Merkur */ 

141 6KG Vx[2] * 0.0; Vy[2] = 47.9; 

142 rG2 m[3]=4.870e09; x[3] = 108.2; y[3] = 0.0; /» Venus */ 

143 aoG Vx[3] = 0.0; Vy[3] = 35.0; 

144 Wo2 m[4]=5.977e09; x[4] = 149.6; y[4] = 0.0; /* Erde V 

145 PIG Vx[4] = 0.0; Vy[4] = 29.765; 

146 fM2 m[5]=0.644e09; x[5] = 227.9; y[5] = 0.0; /* Mars V 

147 qCG Vx[5] = 0.0; Vy[5] = 24.1; 

148 Im2 m[6]=1.899el2; x[6] = 778.3; y[6] = 0.0; /* Jupiter V 

149 rIG VxC6] = 0.0; Vy[6] = 13.I; 

150 TY2 m[7]=5.684ell; xC7] = 1427.0; y[7] = 0.0; /* Saturn */ 

151 DzG Vx[7] = 0.0; Vy[7] = 9.6; 

152 Pc2 m[8]=8.676el0; x[8] = 2870.0; y[8] = 0.0; /* Uranus V 

153 G4G Vx[8] = 0.0; Vy[8] = 6.9; 

154 0S2 m[9]=1.029ell; x[9] = 4496.0; y[9] * 0.0; /* Neptun */ 

155 DxG Vx[9] = 0.0; Vy[9] = 5.4; 

156 M12 start=2; mt[9].IText = "Fixstern (JA)"; uflag=0; 

157 RZ Faktor=1.7e9; anz=0; Zeit=86400.0; zeit2=Zeit/3600.0; 

158 NL fak=50000000.0; ystep=1.0; gam=.00667»(Zeit/1.0e5); 

159 Z40 ] 

160 k4 void wertaufbereitenO 

161 XO { 

162 9x2 gm[t]=gam»m[t]; 

163 cw x2[t]=(x[t]*=1.0e9); y2[t]=(y[t]»=1.0e9); 

164 5e Vx[t]»=(Zeit»1000.0h VyCt]»=(Zeit»1000.0); 

165 EO xalt[t]=320-i-(int)(x[t]/Faktor); 

166 Iq yalt[t]=256+(int)(yCt]/Faktor); 

167 hCO ] 

168 Vo void ifuflagO 

169 f8 { 

170 N62 if(uflag == 1) 

171 hA [ 

172 1Q4 SetAPen(rport, 2); 

173 uc if(tflag==l) 

174 kD { 

175 2Q6 sprintf(String,"Tage: %.lf ",Tage); 

176 h5 Move(rport, 0, 8); 

177 Qc Text(rport, (int)string, (int)(strlen(string))); 

178 sN4 ] 

179 WJ sprintf(String,"Jahre: $ld ",Jahre); 

180 oQ Move(rport, 290, 8); 

181 Ug Text(rport, (int)string, (int)(strlen(string))); 

182 wR2 ) 

183 xSO ] 

184 KV void clearscreen(neum) 

185 bS char neum; 

186 wP { 

187 c62 Move(rport, 0, 0); ClearScreen(rport); ifuflagO; 

188 ro SetAPen(rpprt,2); 

189 lA if(neum == 1) 
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IMULATION 


190 sU 

for(t=l; t<=anz; t-H-) 

191 P06 

WritePixel(rport, xalt[t], yalt[t]); 

192 6b0 j 

193 JH 

void print(s,aa,bb) 

194 N9 

char *s; int aa,bb; 

195 5Y 

( 

196 312 

Move(rport2, (int)aa, (int)bb); 

197 uC 

Text(rport2, (int)s, (int)(strlen(s))); 

198 ChO 

1 

199 dl 

void rec(s,aa,bb) 

200 TF 

char int aa,bb; 

201 Be 


202 tW2 

int breite=19; 

203 aO 

lf(aa == -l) 

204 Dg 

( aa=310; bb=130; breite=27; s=*'OK'"; j 

205 wj 

Move(rport2,(int) aa, (int) bb); 

206 iP 

Draw(rport2,(int)(aa+breite), (int) bb); 

207 tL 

Draw(rport2,(int)(aa+breite), (int)(bb+19)); 

208 65 

Draw(rport2,(int) aa, (int)(bb+19)); 

209 xB 

Draw(rport2,(int) aa, (int) bb); 

210 E3 

print(s,aa+6,bb+12); 

211 PuO 


212 ml 

void buttonO 

213 Nq 

( 

214 ok2 

message * (struot IntuiMessage ♦)GetMsg(window2->UserPor 
t); 

215 FN 

code=raessage-> Code; class=message-> Class; 

216 gs 

for(countsO; count<8000; count++); 

217 OR 

if(class == MOUSEBUTTONS) 

218 Sv 

( 

219 LI4 

if(code *= SELECTUP) bflag=0; 

22Ö eT 

if(code == SELECTDOWN) bflag=l; 

221 Z42 

1 

222 a50 j 

223 yn 

char booltest(wtitle,text) 

224 gM 

char »wtitle, »text; 

225 Z2 

( 

226 742 

parawindow.Title = wtitle; parawindow.Height = 110; 

227 f6 

rport2=(window2=0penWindow(&parawindow))-> RPort; 

228 o9 

vflag = 2; SetAPen(rport2, 2); 

229 3f 

rec(''J',40,30); rec(40,60); SetAPen(rport2, 3); 

230 pü 

sprintf(String, 'J{s*',text); print(string,88,57); 

231 P7 

while(vflag == 2) 

232 g9 

( 

233 904 

buttonO; vflag = 2; 

234 sl 

if(bflag == 1) 

235 jC 

( 

236 jW6 

xx=window2-> MouseX; yy=window2-> MouseY; 

237 Pw 

if(xx>=40 && xx<=59 && yy>=30 && yy<=49) vflag=l; 

238 kM 

if(xx>s40 && xx<=59 && yy>=60 && yy<=79) vflag=0; 

239 rM4 

I 

240 sN2 

) 

241 df 

for(count=0; count< 10000; count++); 

242 wC 

CloseWindow(window2) ; parawindow.Height = 160; 

243 f9 

bflag = 0; re tum vflag; 

244 wRO 

1 

245 HZ 

float einst(kr,wtitle,text,schritt,sfak,sfak2,var,max,min,s 
max,kom,exp) 

246 sG 

char kr, »wtitle, »text, kom, exp; 

247 Xo 

float schritt,s fak,sfak2,var,max,min,smax ; 

248 wP 

( 

249 UP2 

float schritt2=schritt; int fl=0; char exflag; 

250 HL 

if(kr > 0) fl=22; if(kr == 1) text=' ( km/s ): 

251 JT 

if(kr SS 2) texts*' ( Mill. km ): ''; 

252 11 

parawindow.Title s wtitle; 

253 5W 

rport2s(window2s0penWlndow(&parawtndow) ) - > RPort; 

254 ij 

SetAPen(rport2, 2); rec('"'",-1,0); 

255 3N 

rec( ''+'",40+fl,30) ; rec( ''-*',40+fl,60) ; 

256 HJ 

if(kr > 0) ( rec(^-'',40,45); rec( ^+',84,45) ; ] 

257 Hl 

SetAPen(rport2, 3); exflagsQ; 

258 Hs 

while(exflag == 0) 

259 7a 

[ 

260 Zx4 

buttonO; vflag=0; 

261 JJ 

if(bflag SS 1) 

262 Ad 

( 

263 Ax6 

xxswindow2- > MouseX; yyswindow2- > MouseY; 

264 IQ 

if(xx>s40+fl && xx<=59+fl && yy>=30 && yy<=49) 

265 z08 

( var+=(schritt»sfak); vflagsl; ) 

266 X26 

if(xx>s40+fl && xx<=59+fl && yy>=60 && yy<=79) 

267 588 

{ var-s(schritt»sfak); vflagsl; j 

268 WJ6 

lf(xx>=310 &8c xx<=337 && yy>=130 && yy<*159) 

269 Jk8 

exflagsl; 

270 Dj6 

if(kr > 0) 

271 Jm 

1. 


272 G08 

if(xx>=40 && xx<=59 && yy>=46 && yy<s65) 

273 CnA 

1 var2-s(schritt»sfak); vflag=l; ) 

274 Ar8 

if(xx>s84 && xx<si03 && yy>s46 && yy<=65) 

275 8hA 

1 var2+=(schritt»sfak); vflagsl; ] 

276 Sx6 

1 

277 Ty4 

) 

278 s3 

if(var > max) [ var = min; schritt = schritt2; } 

279 rC 

if(var < min) ( var s max; schritt = schritt2; ] 

280 7T 

if(var2 > max) [ var2 = min; schritt s schritt2; ] 

281 wG 

if(var2 < min) { var2 s max; schritt = schritt2; ] 

282 VS 

if(exp SS 1 && schritt == schritt2) 

283 Vy 

( 

284 1S6 

schrittsl.O; 

285 lg 

while( (schritt»sl0.0) < var ); schritt/=1.0e4; 

286 c74 

) 

287 7o 

if(kom > 0 && exp s= o) 

288 a3 

( 

289 KU6 

if(kora SS 2) 

290 vu8 

sprintf(string, "%s%.3f '',text,var/sfak); 

291 WJ6 

eise 

292 e7 

{ 

293 5U8 

if(kr SS 0) 

294 BBA 

sprintf (string, "%s%.lt '',text,var/sfak); 

295 DY8 

if(kr s= 1 ) 

296 yXA 

sprintf (string, '^%a%.3f *',text,var/sfak); 

297 Lc8 

if(kr s= 2) 

298 uRA 

sprintf (string, "YJJsjC.lf '',text,var/sfak); 

299 pK6 

) 

300 qL4 

) 

301 gT 

eise 

302 HG6 

sprintf (string, "JfsJf.Of '',text,var/sfak); 

303 0W4 

if(exp s= 1 ) 

304 MN6 

sprintf (string, ''%3%.3e '',text,var/sfak); 

305 Mr4 

if(kr s= 0) print(string,88,57); 

306 lY 

eise 

307 tM 

( 

308 uu6 

print(string,95,83); 

309 Rm 

if(kr s= 1 ) 

310 Vm8 

sprintf (string, '^%s%.3f '',text,var2/sfak); 

311 Zq6 

if(kr s= 2) 

312 Rg8 

sprintf (string, "X$s$.lf '',text,var2/sfak); 

3X3 lfQ6 

print(string,95,30); 

314 4Z4 

) 

315 nX 

lf(vflag == 1) 

316 2V 

( 

317 SZ6 

schritt»ssfak2; 

318 gj 

if(sehritt> smax) schritt=smax; 

319 2m 

if(( kr>0 8e& (xx>s40+fl && xx<s59+fi) ) ]] kr s= o 
) 

[ 

320 6Z 

321 tt8 

if(schritt»sfak > abs(var)/5.0 && yy>s60) 

322 wzA 

sehrittsabs(var)/5.0/sfak; 

323 D16 

) 

324 3q 

eise 

325 y 28 

if(schritt»sfak > abs(var2)/5.0 && xx<=40+fl) 

326 rAA 

schritt=abs(var2)/5.0/sfak; 

327 Hm4 

) 

328 Tu 

eise 

329 Fi 

[ 

330 Bt6 

schrittsschritt2; 

331 Sy 

if(exp s= 1) 

332 11 

( 

333 oF8 

schrittsl.O; 

334 oT 

while( (schritt»sl0.0) < var ); schritt/sl.0e4; 

335 Pu6 

) 

336 Qv4 

i 

337 Rw2 

1 

338 qQ 

339 TyO ) 

CloseWindow(window2); bflagsQ; retum var; 

340 EI void lsgadwartO 

341 Ru ( 

342 GH2 

window2 s OpenWindow(&lswindow); 

343 TV 

class = GADGETDOWN; 

344 59 

while(class Is GADGETUP) 

345 Vy 

( 

346 ws4 

message s (struct IntuiMessage »)GetMsg(window2->UserP 
ort); 

347 vL 

class s message->Class; 

348 c72 

) 

349 kY 

350 e90 } 

strcpy(undo,buffer); CloseWindow(window2); 

Listing 1. (Fortsetzung) 
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351 u4 

void posinp(ob) 

352 JV 

int ob; 

353 <J6 

( 

354 k22 

char naeheflag=l; int bp; 

355 so 

bp = (int)(booltest(Achtung! 

356 AXE 

'^ildschirmposition? (J/N) '*)); 

357 Xa2 

for(count=l; count< 10000; count++); 

358 BW 

while(naeheflag == 1) 

359 JC 

( 

360 Lf4 

if(bp == 1) 

361 lE 

( 

362 clA6 

Code = 0; dass = 0; SetAPen(rport, 2); 

363 Xq 

while(l(class == MOUSEBUTTONS && code == SELECTUP)) 

364 oH 

( 

365 328 

raessage = (struct IntuiMessage *)GetMsg(window->Us 
erPort); 

366 WG 

class=raessage- > dass; code=raessage- > Code; 

367 uB 

xd=(float)((Window-> MouseX)-320); 

368 Oa 

yd=(float)((Window-> MouseY)-256); 

369 92 

sprintf(String, ' X ( Millionen kra ): Jt.lf 

370 alF 

xdi^ Faktor/1.0e9); 

371 qE8 

Move(rport, 0, 8); 

372 ZI 

Text(rport, (int)string, (int)(strlen(string))); 

373 mc 

sprintf(String, Y ( Millionen kra ): $.lf " 

374 wkF 

yd*Faktor/-1.0e9); 

375 xZ8 

Move(rport, 290, 8); 

376 dp 

Text(rport, (int)string, (int)(strlen(string))); 

377 5a6 

] 

378 ft 

SetAPen(rport,0); RectFill(rport, 0, 0, 640, 9); 

379 jM 

IfuflagO; 

380 8d4 

) 

381 yl 

eise 

382 6S 

[ xd=x[ob]/Faktor; yd=y[ob]/Faktor; ] ' 

383 Xh 

var2=xd»f Faktor/1.0e9; 

384 bk 

y[ob] = 1.0e9^^einst(2, Position '^',0.1,1.0, 

385 üs5 

1.1, ydifFaktor/-!. 0e9,1.0e6, -1.0e6,100000.0,1,0); 

386 Y64 

x[ob]=var2^^1.0e9; y[ob]=-y[ob]; naeheflag=0; 

387 VI 

for(t=l; t<anz; t++) 

388 Eh6 

if(abs(x[ob]-x[t]) < 100000000.0 && tI=ob && 

389 ap8 

abs(y[ob]-y[t]) < 100000000.0) naeheflag = 1; 

390 In2 

) 

391 kL 

SetAPen(rport, 01); 

392 b3 

WritePixel(rport, xalt[ob], yalt[ob]); 

393 LqO 

) 

394 VS 

void tausch(xt,yt) 

395 rZ 

int xt,yt; 

396 Kn 


397 sS2 

x[xt]=x[yt]; y[xt]=y[yt]; 

398 WO 

x2[xt]=x2[yt]; y2[xt]=y2Cyt]; 

399 S2 

xalt[xt]=xalt[yt]; yalt[xt]=yalt[yt]; 

400 4s 

Vx[xt]=Vx[yt]; Vy[xt]=Vy[yt]; 

401 61 

ra[xt]=m[yt]; gm[xt]=gra[yt]; 

402 UzO 

) 

403 LM2 

• 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

« 

404 3D1 

/^^ — Menü - Punkte — */ 

405 NOO /*- 

406 Tq 

void bewegungO 

407 Vy 

(■ 

408 HQ2 

register char tt,ii; 

409 oA 

while(class 1= MENUPICK) 

410 Yl 

( 

4ll nin4 

raessage = (struct IntuiMessage *)GetMsg(window->UserPo 
rt); 

412 yO 

dass = raessage->Class; 

413 11 

if(uflag == 1) 

414 c5 

l 

415 J06 

SetAPen(rport, 2); Tage+=zeit2/24.0; 

416 o9 

while(Tage>365.0) [ Tage-=365.0; Jahre-H-; jflag=l; ] 

417 IB 

if(Jahre> 2000000000) Jahre=0; 

418 IJ 

if(zeit2 < 8760.0 && tflag==l) 

419 hA 

( 

420 zN8 

sprintf(String,^Tage: %.lf ',Tage); 

421 e2 

Move(rport, 0, 8); 

422 NZ 

Text(rport, (int)string, (int)(strlen(string))); 

423 pK6 

1 

424 a8 

lf(Jflag =. 1) 

425 nG 

f 

426 VIS 

sprintf(String,'"Jahre: JJld Jahre); 

427 DU 

Move(rport, 290, 8); jflag=0; 

428 Tf 

Text(rport, (int)string, (int)(strlen(string))); 

429 vQ6 

) 

430 wR4 

) 


431 Wa 

for(tt=start; tt<=anz; tt++) 

432 ty 

[ x2[tt]=x[tt]; y2[tt]=y[tt]; ) 

433 Ye 

for(tt=start; tt<=anz; tt-H-) 

434 wP 

( 

435 ZI6 

SetAPen(rport,3); WritePixel(rport,xalt[tt],yalt[tt]) 

436 bq 

i 

xalt[tt]=320+(int)(x[tt]/Faktor); 

437 2R 

yalt[tt]=256+(int)(y[tt]/Faktor); 

438 WJ 

SetAPen(rport,2); WritePixel(rport,xalt[tt],yalt[tt]) 

439 rag 

} 

y[tt]-=Vy[tt]; x[tt]-=Vx[tt]; 

440 XE 

for(ii=l; ii<=anz; ü-h-) 

441 3W 

( 

442 qM8 

if(iil=tt) 

443 5Y 

i 

• 444 KtA 

xd=x[tt]-x2[ii]; yd=y[tt]-y2[ii]+1.0e-15; 

445 XD 

winkel=atan(yd/xd); xd/=1.0e6; yd/=1.0e6; 

446 jX 

Vabl = (xd>0.0) ? (gra[ii]/(xd»xd+yd^tyd)) ; 

447 iMS 

(-gra[ii]/(xd^^xd+yd^^yd)); 

448 NdA 

Vx[tt]+=cos(winkel)*Vabl*Zeit; 

449 zp 

Vy[tt]+=sln(winkel)i^VablitZeit; 

450 G18 

1 

451 Hm6 

) 

452 In4 

] 

453 Jo2 

) 

454 KpO ) 


455 zD void neu() 

456 11 ( 


457 7T2 

float ber=l; posinp((int)(-H-anz)); 

458 K3 

while( (ber*=10.0) < ra[anz] ); ber/=1.0el0; 

459 Cj 

ra[anz] = einst(0,'" Masse ",''Trillionen Tonnen: ", 

460 Mb8 

ber,l.0,1.15,ra[anz]/1.0e6,1.0el2,0.00001,1.0ell,0,l 

461 nN2 

) * 

ra[anz]^f=1.0e6; gin[anz]=gara*ra[anz]; 

462 04 

Vy[anz]/=Zeit; var2=Vx[anz]/Zeit/-1000.0; 

463 na 

Vy[anz] =einst(l," Geschwindigkeit ","",0.001, 

464 3S6 

1.0,1.15,Vy[anz]/1000.0,1.0e4,-1.0e4,1000.0,1,0); 

465 9t2 

Vx[anz]=var2*Zeit»-1000.0; Vy[anz]»=1000.0»Zeit; 

466 xG 

x2[anz]=x[anz]; y2[anz]=y[anz]; 

467 EY 

xalt[anz]=320+(int)(x[anz]/Faktor); 

468 ol 

yalt[anz]=256+(int)(y[anz]/Faktor); 

469 ab 

SetAPen(rport, 2); WritePixel(rport,xalt[anz],yalt[anz]); 

470 a50 ] 


471 RA void raasseO 

472 Yl { 


473 xY2 

float ber=l; 

474 SA 

int obn = (int)(einst(0," Masse ","Objekt: ", 

475 975 

1.0,1.0,1.0,1.0,(float)anz,1.0,1.0,0,0)); 

476 CJ2 

while( (ber»=10.0) < ra[obn] ); ber/=1.0el0; 

477 Gb 

ra[obn] = einst(0," Masse ",'Trillionen Tonnen: ", 

478 kp7 

ber,l.0,1.15,ra[obn]/1.0e6,1.0el2,0.00001,1.Oell,0,1) 

479 pJ2 

ra[obn]»=1.0e6; gra[obn]=gara*ra[obn]; 

480 kFO ] 


481 3u void positionO 

482 iB { 


483 342 

int obn = (int)(einst(0," Position ","Objekt: ", 

484 IG5 

1.0,1.0,1.0,1.0,(float)anz,1.0,1.0,0,0)); 

485 HA2 

posinp(obn); SetAPen(rport,2); x2[obn]=x[obn]; y2[obn]=y[ 


obn]; 

486 8X 

WritePixel(rport, (xalt[obn]=320+(int)(x[obn]/Faktor)), 

487 yp4 

(yalt[obn]=256+(int)(y[obn]/Faktor))); 

488 sNO ] 


489 oS void geschwO 

490 qJ { 


491 DW2 

int obn = (int)(einst(0," Geschwindigkeit ","Objekt: ", 

492 Q05 

1.0,1.0,1.0,1.0,(float)anz,1.0,1.0,0,0)); 

493 5L2 

Vy[obn]/=Zeit; var2=Vx[obn]/Zeit/-1000.0; 

494 sT 

Vy[obn] = einst(l," Geschwindigkeit ","',0.001, 

495 KX6 

1.0,1.15,Vy[obn]/1000.0,1.0e4,-1.0e4,1000.0,1,0); 

496 Ki2 

Vx[obn]=var2»Zeit»-1000.0; Vy[obn]»=1000.0»Zeit; 

497 lWO J 


498 11 void loeschO 

499 zS ( 


500 wH2 

int obn = (int)(einst(0," Löschen ","Objekt: ", 

501 ZX5 

1.0,1.0,1.0,1.0,(float)anz,1.0,1.0,0,0)); 

502 JN2 

if(((int)(booltest(" Achtung! ", 

503 UaL 

"Wirklich löschen? (J/N)"))) == 1) 

504 4X2 

( 

505 Hu4 

if(obn==l) [ start=l; rat[9].IText="Fixstern (NEIN)"; J 

506 eP 

tausch(Ml,obn); SetAPen(rport,0); 

507 TN 

WritePixel(rport,xalt[obn],yalt[obn]); 

508 Sy 

if(obn < anz—) 

509 9c 

i 
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IMULATION 


510 046 

for(t=obn; t<=anz; t-H-) 

511 vA8 

tausch(t,t+l); 

512 Vw6 

tausch(anz+l,Ml); 

513 Hra4 

] 

514 In2 

I 

515 JoO 

] 

516 rJ 

void zeigO 

517 Hk 

( 

518 ts2 

int obn = (int)(einst(0,Zeigen ",'"Objekt: 

519 2E5 

1.0,1.0,1.0,1.0,(float)anz,1.0,1.0,0,0)); t=0; 

520 HJ2 

for(count=0; count<5500; count-H-) ' 

521 Lo 

{ 

522 sa4 

SetAPen(rport, (int)t); t-f+; if(t>3) t=0; 

523 6u 

WritePixel(rport, xalt[obn], yalt[obn]); 

524 Sx2 

) 

525 pt 

SetAPen(rport ,2); WritePixel(rport,xalt[obn],yalt[obn]); 

526 UzO 

1 

527 5k 

void zeit() 

528 Sv 

( 

529 q02 

for(t=l; t<MA; t++) { Vx[t]/cZeit; Vy[t]/=Zeit; ] 

530 Pz 

Zeit = einst(0,'" Zeit '","Zeit (h): '",0.1,3600.0, 

531 R46 

l.l,Zeit,9.0e7,0.09,1000.0,l,0); 

532 Pn2 

for(t=l; t<MA; t++) { Vx[t]^^=Zeit; Vy[t]^t=Zeit; ] 

533 OJ 

gain=.00667it(Zeit/1.0e5); zeit2=Zeit/3600.0; 

534 zz 

for(t=l; t<MAj t++) gra[t]=gain^^rD[t]; 

535 d80 

1 

536 05 

void vergrO 

537 b4 

( 

538 Fu2 

Faktor = einst(0," Vergröberung ",'T^ill. km pro Punkt: 


",0.1, 

539 qD7 

1.0,1.1,Faktor/1.0e9,1000.0,0.0,100.0,1,0); 

540 z42 

Faktor^f=1.0e9; SetAl*en(rport, 3); 

541 ZI 

for(t=l; t<MA; t++) 

542 pL 

[ xalt[t]=320+(int)(x[t]/Faktor); 

543 qQ4 

yalt[t]=256+(int)(y[t]/Faktor); ] 

544 mHO 

I 

545 cx 

void uhr() 

546 kD 

{ 

547 eH2 

if(((int)(booltest(" Uhr ","Uhr? (J/N)"))) == 1) 

548 raF 

( 

549 7R4 

uflag=l; tflag=0; 

550 s8 

if(((int)(booltest(" Uhr ", 

551 23B 

"Auf null setzen? (J/N)"))) == 1) 

552 hw4 

[ Tage=0.0; Jahre=0; ) 

553 m5 

if(((int)(booltest(" Uhr ","Tage? (J/N)"))) == 1) 

554 Yu6 

tflag=l; 

555 Pf4 

SetAPen(rport,0); RectFill(rport,0,0,640,9); 

556 nk 

SetAPen(rport,2); 

557 6o 

if(tflag==l) 

558 wP 

1 

559 Ec6 

sprintf(String,"Tage: $.lf ",Tage); 

560 tH 

Move(rport, 0, 8); 

561 CO 

Text(rport, (int)string, (int)(strlen(string))); 

562 4Z4 

) 

563 hu 

sprintf( String, "Jahre: JJld ", Jahre); 

564 Qh 

Move(rport, 290, 8); Jflag=0; 

565 gs 

Text(rport, (int)string, (int)(strlen(string))); 

566 8d2 

I 

567 yl 

eise 

568 6Z 

1 

569 R04 

SetAPen(rport, 0); RectFill(rport, 0, 0, 640, 9); 

570 n9 

uflag=0; 

571 Di2 

) 

572 EjO 

1 

573 sd 

void gragrafO 

574 Cf 

( 

575 d02 

register char ii; float y0,x0,v,xl,yl; 

576 ns 

register int yyy,xt,yt=425,xstart=96; 

577 nP 

fak = einst(0," Vergrößerung ","Dehnungsfaktor: ",1.0, 

578 JW5 

1.0,1.5,fak,500000000.0,1.0,10000000.0,0,0); 

579 gV2 

ystep = l6.0/einst(0," Genauigkeit ", 

580 Z03 

"Schritte pro Zeile: ",1.0,1.0,1.0,ystep,16.0,1.0,1.0,0, 


0); 

581 5v2 

if(window2=0penWindow(&gragrawindow)) 

582 Kn 


583 w64 

rport2=window2-> RPort; 

584 KH 

for(yyy=l; yyy<=512; yyy+=l6) 

585 Nq 


586 5y6 

if((struct IntuiMessage it)GetMsg(window2->UserPort)) 

587 N08 

goto gragraschluss; 

588 Yd6 

xl=(float)(2*xstart); yt+=2; yl=(float)yt; 

589 hQ 

for(y0=(float)yyy; y0<=(float)yyy+16.0; y0+=ystep) 

590 Sv 

( 

591 148 

xt=l; 


592 kJ 

for(x0=1.0; x0< =640.0; x0+=4.0) 

593 Vy 

( 

594 L5A 

v=0.0; 

595 N2 

for(ii=start; ii<=anz; ü-h-) 

596 Yl 

( 

597 sbC 

if(v < 5000.0) 

598 a3 

( 

599 FIE 

xd= (xO- (float) 320) ^^Faktor-x [ i i] +1. Oe-18; 

600 EJ 

yd=(yO-(float)256)*Faktor-y[ii]; 

601 

winkel=atan(yd/xd); xd/=1.0e6; yd/=1.0e6; 

602 OG 

v+=((gm[ii]/(xd*xd+yd^^yd))itfak/1.0e4); 

603 JEC 

) 

604 kFA 

) 

605 2C 

if(v > 800.0) v=800.0; 

606 yr 

p[xt] = (p[xt-H-]+(int)v)/2; 

607 nI8 

) 

608 oJ6 

) 

609 Ql 

for(xt=l, x0=1.0; x0< =640.0; x0+=4.0) 

610 mF 

1 

611 WD8 

SetAPen(rport2, 0); 

612 Sb 

Move(rport2, (int)(xl+1.0), yt+1); 

613 kO 

Draw(rport2, (int)(xl+1.0), yt-p[xt]+l); 

614 OR 

Move(rport2, (int)xl, (int)yl); 

615 Xb 

xl=2.0*((float)xstart+x0/4.0); yl=(float)(yt-p[xt]) 

616 DI 

9 

SetAPen(rport2, 3); Draw(rport2,(int)xl,(int)yl); 

617 zR 

p[xt++]=0; 

618 yT6 

1 

619 L8 

Draw(rport2, (int)xl, yt); xstart-=3; 

620 0V4 

1 

621 gg 

Wait(l << window2->UserPort->mp_SigBit); 

622 xWO 

gragraschluss: 

623 r84 

CloseWindow(window2); 

624 4Z2 

) 

625 23 

ystep=l6.0/ystep; 

626 6b0 } 

627 8J 

void neunullO 

628 4X 

( 

629 rf2 

dass = 0; SetAPen(rport, 2); 

630 q9 

while(I(class == MOUSEBUTTONS && code == SELECTUP)) 

631 7a 

( 

632 ML4 

message = (struct IntuiMessage *)GetMsg(window->UserPo 


rt); 

633 pZ 

class=message-> Class; code=raessage-> Code; 

634 uR 

xx=(window-> MouseX)-320; yy=(window-> MouseY)-256; 

635 8C 

sprintf(string," X: %ld ",xx); 

636 TV 

Move(rport, 0, 8); 

637 q2 

Text(rport, (int)string, (int)(strlen(String))); 

638 oy 

sprintf(String," Y: %ld ",yy); 

639 Dp 

Move(rport, 290, 8); 

640 t5 

Text(rport, (int)string, (int)(strlen(string))); 

641 Lq2 

) 

642 CO 

for(t=l; t<MA; t++) 

643 9h 

{ x2[t] = (x[t]-=(float)xx^^Faktor); 

644 gP4 

y2[t]=(y[t]-=(float)yy*Faktor); 

645 bX 

xalt[t]-=xx; yalt[t]-=yy; ) 

646 gK2 

clearscreen(l); 

647 RwO } 

648 VW 

void speichemO 

649 PS 

( 

650 Df2 

Iswindow.Title = " Save "; lsgadwart(); save(); 

651 VOO ) 

652 61 

void laden0 

653 Tw 

( 

654 XV2 

if((booltest(" Achtung1 ", 

655 Im5 

"Wirklich laden? (J/N)")) == 1) 

656 Wz2 

( 

657 cL4 

Iswindow.Title = " Load "; 

658 CG 

) lsgadwartO; SetAPen(rport, 0); 

659 RS 

for(t=l; t<=anz; t++) 

660 yZ6 

WritePixel(rport, xalt[t], yalt[t]); 

661 Ti4 

load(); SetAPen(rport, 2); 

662 sz 

if(start == 2) 

663 B06 

mt[9].IText = "Fixstern (JA)"; 

664 XK4 

eise 

665 ma6 

mt[9].IText = "Fixstern (NEIN)"; 

666 YZ4 

for(t=l; t<=anz; t++) 

667 Jo6 

WritePixel(rport, (xalt[t]=320+(int)(x[t]/Faktor)), 

668 558 

(yalt[t]=256+(int)(y[t]/Faktor))); 

669 nI2 

) 

670 oJO 

) 

Listing 1. (Fortsetzung) 
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Simulation 


671 9X2 

672 ytl 

673 BZO 

674 Zv I 

675 pl 

676 LM2 

677 st 

678 PT 

679 tM 

680 BX4 

681 9E 

682 v26 

683 xi4 

684 re 

685 zS 

686 8S6 

687 04 

688 2V 

689 vT8 

690 YHA 

691 xy 

692 U5C 

693 B3A 

694 QQ 

695 C2C 

696 9IA 

697 uT8 

698 G8A 

699 ey8 

700 7CA 

701 lw8 

702 alA 

703 VZ8 

704 zUA 

705 AA8 

706 rfA 

707 my8 

708 x7A 

709 718 

710 ORA 

711 Ev8 

712 JmA 

713 HL8 

714 bKA 

715 fl 

716 rB 

717 OB 

718 M9 

719 Wf 

720 J48 

721 meA 

722 yr8 

723 frA 

724 zo8 

725 I3A 

726 D18 

727 itA 

728 aK8 

729 qZA 

730 Ij 

731 GFN 

732 4iC 

733 ktA 

734 Lc8 

735 hHA 

736 XK8 

737 INA 

738 E68 

739 OJA 

740 vt 

741 hlN 

742 3vA 

743 wxC 

744 ad 

745 w5A 

746 GQ8 

747 8rA 

748 31 

749 J2N 

750 2VA 

751 2VC 


/»- >k/ 

-Hauptprogramm-*/ 

/» - 

maln() 

( 

openallO; startwerte(); clearscreen(O); code=0; class=0; 

for(t=l; t<MA; t++) wertaufbereiten(); 

while(l) 

[ 

while(class 1= MENUPICK) 

[ message = (struct IntuiMessage *)GetMsg(window->User 
Port); 

Code = message->Code; class=message->Class; j 
if (code == MENUNULL) [ Code = 0; dass = 0; j 
eise 

f 

dass = 0; 

switch( ITEMNUM (code) ) 

( 

case 0: /* Start 

code2 = Code; SetAPen(rport, 2); 
for(t=l; t<=anz; t-H-) 

WritePixel(rport, xalt[t], yalt[t]); 
bewegung(); 

lf((code = message->Code)==MENUNULL) 

Code = code2; 
break; 

case 1: Stop */ 

Code s 0; break; 

case 2: /» Neues Objekt 

Code = 0; neu(); break; 
case 3: /» Masse »/ 

Code = 0; if(anz>0) masse(); break; 
case 4: /« Position */ 

Code = 0; if(anz>0) position(); break; 
case 5: /* Geschwindigkeit 

Code = 0; if(anz>0) geschw(); break; 
case 6: /« Löschen »/ 

Code = 0; if(anz>0) loesch(); break; 
case 7: Zeigen */ 

Code = 0; if(anz>0) zeig(); break; 

case 8: /» Zeitintervall «/ 

Code = 0; zeit(); break; 

case 9: Fixstern (JA/NEIN) * 

/ 

Code s 0; 
if(start == 1) 

[ start=2; mt[9].IText = ''Fixstern (JA)*; J 
eise 

{ start=l; mt[9].IText * "Fixstern (NEIN)*; j 
break; 

case 10: /* Vergrößerung */ 

Code = 0; vergr(); clearscreen(l); break; 
case 11: Uhr */ 

Code = 0; uhr(); break; 

case 12: Gravo - Grafik */ 

Code = 0; gragraf(); break; 
case 13: Neuer Nullpunkt ^^/ 

Code s 0; neunull(); break; 
case 14: /» Bildschirm löschen * 

/ 

Code = 0; 

if((booltest(* Achtungl *, 

"Bildschirm löschen ? (J/N)*)) == 1) 
clearscreen(l); 
break; 

case 15: /* Laden */ 

Code = 0; laden(); break; 
case 16: /* Speichern »/ 

Code = 0; if(anz>0) speichem(); break; 
case 17: Neu 

Code = 0; 

if((booltest(* Achtungl ", 

"Wirklich neu? (J/N)")) == 1) 

[ startwerteO; 

for(t=l; t<MA; t-H-) wertaufbereiten(); 
clearscreenO; ] 
break; 

case 18: /* Ende */ 

Code = 0; 

if((booltest(" Achtungl ", 

"Wirklich beenden? (J/N)")) == 1) 

( 

ClearMenuStrip(window); CloseWindow(window); 


Programmname: 

DeRev. lO.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Compiler: 

Aztek C V3.4 

Aufrufe: 

cc DeRev. IO.C 

Bemerkung: 

Dieses Programm bitte zuerst 
compilieren, danach »DeRev.Main.c« 


Programm : DeRev 


1 RWO 

2 CO ** De revolutionibus orbium coelestium I/O ** 

3 DF ** ( DeRev.10.c ) ** 

4 Dq (c) 1988 by ** 

5 Ju ** Jürgen Brendel ** 

7 HQ #define MA 100 

8 AE extern char t,anz,Start,buffer[71]; 

9 wK extern float x[MA],y[MA],x2[MA],y2[MA],Vx[MA],Vy[MA], 


10 liE 

m[MA],gm[MA],Zeit,gam; 

11 inO 

extern long xalt[MA],yalt[MA]; 

12 zR 

void save() 


13 9c 

( 


14 012 

int handle,nix; 


15 mz 

if((handle = creat(buffer, nix)) 1= -1) 

16 Cf 

( 


17 qs4 

write(handle. 

&anz, sizeof(char)); 

18 ff 

write(handle,&start, sizeof(char)); 

19 YD 

write(handle. 

X, sizeof(x)); 

20 JQ 

write(handle. 

y, sizeof(y)); 

21 Ms 

write(handle. 

x2, sizeof(x2)); 

22 W4 

write(handle. 

y2, sizeof(y2)); 

23 SU 

write(handle. 

Vx, sizeof(Vx)); 

24 43 

write(handle. 

Vy, sizeof(Vy)); 

25 sB 

write(handle. 

m, sizeof(m)); 

26 rm 

write(handle. 

&Zelt, sizeof(float)); 

27 6h 

dose (handle); 


28 Sx2 

) 


29 TyO ) 


30 IV 

void load() 


31 Ru 

i 


32 gJ2 

int handle,nix; 


33 3t 

if((handle = open(buffer, 01, nix)) 1= -1) 

34 Ux 

( 


35 VR4 

read(handle. 

&anz, sizeof(char)); 

36 xG 

read(handle,&start, sizeof(char)); 

37 q9 

read(handle. 

X, sizeof(x)); 

38 zK 

read(handle. 

y, sizeof(y)); 

39 4x 

read(handle. 

x2, sizeof(x2)); 

40 C7 

read(handle. 

y2, sizeof(y2)); 

41 QT 

read(handle. 

Vx, sizeof(Vx)); 

42 af 

read(handle. 

Vy, sizeof(Vy)); 

43 WT 

read(handle. 

m, sizeof(m)); 

44 mS 

read(handle, &Zeit, sizeof(float)); 

45 UY 

dose (handle); 

gam=. 00667^^ (Ze i t/1.0e5); 

46 77 

for(t=l; t<MA 

; t-H-) gm[t]=gam*m[t]; 

47 1G2 

1 


48 mHO 

) 



(C) 1987 M&T 


Listing 2. »DeRev.lO.c« ist als erstes Listing zu 
compilieren. Das Hauptprogramm benötigt diese Rou¬ 
tine. Bitte mit dem Checksummer (Seite 159) eingeben. 


752 C3 

CloseScreen(screen); CloseLibrary(IntuitionBase 
\. 

753 s8 

754 AfA 

755 Bg6 

756 Ch4 

757 D12 ] 

758 EjO ) 

(C) 1987 M&T 

/1 

CloseLibrary(GfxBase); exit(TRUE); 

] 

] 

J 

Listing 1. 

(Schluß) 
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»Floppy-Speede^< mit Niveau 


Haben Sie sich auch schon geärgert, 
wenn der Amiga beim Laden von Directo- 
ries und Programmen von Diskette wie 
wild auf dieser »schrubbt«? Dies ist ein 
Zeichen dafür, daß die Filestruktur auf der 
Diskette mächtig durcheinander ist. 
»FastLoadCopy« beseitigt diesen Um¬ 
stand und räumt auf Ihren Disketten or¬ 
dentlich auf. Die Geschwindigkeit beim 
Laden wird dadurch beträchtlich erhöht. 
So ganz nebenbei ist unser Listing auch 
noch ein schnelles Kopierprogramm. 


D er Amiga ist ein schnel¬ 
ler Computer — solan¬ 
ge er keine Directories 
von Disketten laden soll. Durch 
die komplizierte Organisation 
des Inhaltsverzeichnisses muß 
der Lesekopf des Disketten¬ 
laufwerkes oft bewegt werden, 
was als »Sägen« nur zu gut 
hörbar ist. »FastLoadCopy« 
schafft Abhilfe und sortiert die 
Blöcke des Directory und aller 
Programme. Dadurch werden 
die Diskettenzugriffe wesent¬ 
lich beschleunigt und das »Sä¬ 
gen« reduziert. Einzige Vor¬ 
aussetzung zum Arrangieren 
der Disketten ist 1 MByte 
Hauptspeicher. 

Für die Lesegeschwindig¬ 
keit von Amiga-Diskettenlauf- 
werken gibt es eine einfache 
Gleichung: Je mehr sich der 
Schrelb-ZLesekopf bewegt, de¬ 
sto niedriger ist die Lesege¬ 
schwindigkeit. Beim Laden ei¬ 
nes Directory (oder dem Dop¬ 
pelklick auf ein Diskettensym¬ 
bol) bekommt man das beson¬ 
ders stark zu spüren: Der 
Schreib-ZLesekopf bewegt sich 
hin und her, daß es eine wahre 
Freude Ist. Entsprechend lang 
dauert es, bis der Computer 


das Inhaltsverzeichnis einge¬ 
lesen hat. Um das Ganze zu 
beschleunigen, müßte man al¬ 
so die Anzahl der Bewegungen 
reduzieren — genau das 
macht »FastLoadCopy«. 

Kopie 

schlägt Original! 

Dieses Programm funktio¬ 
niert nach einem einfachen 
Prinzip: Zuerst einmal werden 
alle Blöcke der zu bearbeiten¬ 


den Diskette in den Speicher 
gelesen. Daher Ist es auch un¬ 
bedingt nötig, daß Ihr Amiga 
mindestens 1 MByte Speicher 
besitzt — auf eine Amiga- 
Dlskette passen ja 880 KByte. 
Stehen die Daten im Speicher, 
werden sie vom Programm 
nach einem bestimmten Sche¬ 
ma sortiert. Dadurch wird die 
optimale Geschwindigkeit 
beim Lesen des Directory und 
Laden von Programmen er¬ 
reicht. Nach dem Sortiervor¬ 
gang — er dauert etwa eine 


halbe Minute — werden die 
nun sortierten Blöcke wieder 
auf die Diskette zurückge¬ 
schrieben. 

Vielleicht werden Sie nun 
fragen: »Wieso heißt das Pro¬ 
gramm dann FastLoadCopy 
und nicht einfach FastLoad?«. 
Nun, nachdem eine Diskette 
beschrieben worden Ist, kann 
man wahlweise eine weitere 
Diskette mit denselben Daten 
(die ja noch im Speicher ste¬ 
hen) bespielen. Unser Listing 
läßt sich also auch als Kopier¬ 
programm, das zudem noch 
schnell Ist, verwenden. 

Eingabehinweise 

Tippen Sie bitte Listing 1 mit 
dem Checksummer (Seite 159) 
ab. »FastLoadCopy« Ist In 
Assembler geschrieben. Da¬ 
mit auch Leser, die keinen As¬ 
sembler besitzen, das Pro¬ 
gramm eingeben können, ha¬ 
ben wir dieses als DATA-Lader 
abgedruckt. Dieser erzeugt 
das Programm »FLC« auf Dis¬ 
kette. Den Quellcode finden 
Sie In Listing 2. 

Wenn Sie in Ihrem Computer 
nur 1 MByte Speicher haben. 
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beachten Sie bitte: Zusätzliche 
Diskettenlaufwerke und Fest¬ 
platten sollten vor dem Start 
des Programmes entfernt wer¬ 
den, da diese zu viel Speicher¬ 
platz verbrauchen. Um das 
Programm zu starten, tippen 
Sie im CU: 

FLC 

Legen Sie nun die Diskette, 
die Sie bearbeiten wollen, in 
das interne Diskettenlaufwerk 
des Amiga und drücken Sie die 
linke Maustaste. Sollten Sie 
nun die Meldung >»Zu wenig 
Speicher« erhalten, so beach¬ 
ten Sie bitte die Hinweise in Ta¬ 
belle 1. Ist genügend Speicher 
vorhanden, so lädt das Pro¬ 
gramm die Daten von der Dis¬ 
kette in den Computer (»...loa- 
ding«). Ist das Laden beendet, 
so werden die Blöcke sortiert 
(>•...changing«). 

Dabei treten bei fast allen 
Disketten einige Fehlermel¬ 
dungen auf, zum Beispiel 
»Fehler in Block $032b. Disk 
u.U. fehlerhaft! Fehlernummer 
1«. Wichtig ist in diesem Fall die 
Fehlernummer (siehe auch Ta- 


natürlich nicht schreibge¬ 
schützt sein. 

Nachdem die Daten auf die 
Zieldiskette geschrieben wur¬ 
den (»...saving«), haben Sie die 
Wahl, mit Hilfe der linken 
Maustaste das Programm zu 
verlassen oder es mit der rech¬ 
ten Maustaste wieder zu star¬ 
ten. Haben Sie die rechte 
Maustaste gedrückt, so folgt 
die Frage 

LMaustaste = Diskkopie 
RMaustaste = Ramkopie 

»Diskkopie« bedeutet, daß 
das Programm wieder von vor¬ 
ne abläuft; mit »Ramkopie« läßt 
sich eine weitere Diskette mit 
den Daten beschreiben, die 
noch im Speicher sind. Sie 
werden wiederum aufgefor- 
problematisch sein, man sollte nausogut auf eine andere Dis- dert, die Zieldiskette einzule- 

die Daten aber vorsichtshalber kette speichern und FastLoad- gen und die linke Maustaste zu 

erst einmal auf eine Versuchs- Copy so als Kopierprogramm drücken. FastLoadCopy Ist al¬ 
diskette speichern. Bei Fehler- verwenden. Haben Sie beim so auch als Mehrfach-Kopier- 

nummer »8« wird der Sortier- Sortieren höhere Fehlernum- programm gut geeignet. Inter¬ 
vorgang abgebrochen, da es mern als 1 bekommen, ver- essierte finden In Tabelle 3 

sich hierbei um einen Fehler wenden Sie bitte ebenfalls eine eine kurze Beschreibung der 

handelt, der es unmöglich andere Diskette als Zieldisket- Funktionsweise des Pro¬ 

macht, das Programm fortzu- te, um Datenverluste zu ver- gramms. (Paul Sponagl/ 
setzen. meiden! Die Zieldiskette darf A. Lietz/M. Jobst/rs) 




Nummer 

Kurzbeschreibung des Fehlers 

1 

Fehlendes "'First Data"' 

In FileUstBlock 

2 

Falscher "'Parent"' - Eintrag 

3 

Datenblöcke nicht zusammenhängend 

4 

Falscher "'Parent"' In FileUstBlock 

5 

Falsches "'Extension"' in FileUstBlock 

6 

Erstblockeintrag fehlt In FlleHeader 

Falscher "'HeaderKey"' Im Block 

8 

HardError! Keine Wiederaufnahme des 
Sortierens möglich: beispielsweise kein 
DOS-Fbrmat, falsche Bitmap, 

Programmfehler 

Fehlernummer 1 ist unbedenklich. Bei Fehlernummern grö- 

ßer als 1, sollte zuerst auf eine Versuchsdiskette gespeichert 
werden. 

Bei Fehlernummer 8 bricht das Programm selbständig ab. 


Tabelle 2. Die Fehlermeldungen und ihre Bedeutung 


belle 2). Bei der abgedruckten 
Version werden Fehlermeldun¬ 
gen mit Text ausgegeben. Auf 
der Diskette zu diesem Son¬ 
derheft befindet sich noch eine 
Version, welche kurze Kom¬ 
mentare ausgibt (sie trägt den 
Namen »FLCO«). 

Trägt die Fehlermeldung die 
Nummer »1«, so hat das für den 
Ablauf des Programmes keine 
Bedeutung. Sie können in die¬ 
sem Fall also getrost fortfah¬ 
ren. Höhere Fehlernummern 
als »1« müssen nicht unbedingt 


Sortieren 
ist alles 

Sind die Daten schließlich 
sortiert, so werden Sie aufge¬ 
fordert, die Zieldiskette elnzu- 
legen und die linke Maustaste 
zu drücken. Normalerweise 
sind Quell- und Zieldiskette na¬ 
türlich identisch, da die Blöcke 
ja sortiert wieder auf die Quell- 
diskette zurückgeschrieben 
werden sollen. Sie können 
aber natürlich Ihre Daten ge- 


Bel Computern mit 1 MByte Speicher 

Da eine Diskette schon 880 K im Speicher belegt, ist nur 
noch sehr wenig freier Platz im Speicher — zu wenig, um zum 
Beispiel die Workbench, eine RAM-Disk oder den Speicherbe¬ 
reich aufzunehmen, der für externe Diskettenlaufwerke und 
Festplatten erforderlich Ist. Auch die Benutzung von anderen 
Programmen vor dem Start von »FastLoadCopy« verbraucht 
meist zu viel kostbaren Speicherplatz. 

Am besten kopieren Sie das Programm FastLoadCopy nach 
dem Abtippen In das Hauptverzeichnis oder das Verzeichnis 
»c« Ihrer Workbenchdiskette. Entfernen Sie sämtliche exter¬ 
nen Laufwerke und lösen Sie mit <CTRL COMMODORE 
AMIGA> einen Reset aus. 

Legen Sie Ihre Workbenchdiskette in das Interne Laufwerk 
und warten Sie, bis die Einschaltmeldung auf dem Bildschirm 
erscheint. Dann drücken Sie sofort <CTRL D>, um die 
»startup-sequence« abzubrechen, die Ihr Computer nun nor¬ 
malerweise ausführen würde. Jetzt starten Sie FastLoadCopy. 
Nun sollten eigentlich keine Probleme mehr auftreten. 

Bei Computern mit mehr als 1 MByte Speicher 

Hier kann es eigentlich nur passieren, daß ein bereits gela¬ 
denes Programm zuviel Speicherplatz verbraucht. Schalten 
Sie also laufende Programme ab oder benutzen Sie FastLoad¬ 
Copy nach einem Reset Ihres Rechners. 

Tabelle 1. So lösen Sie das Speicherplatzproblem 


1. Meldung ausgeben und Speicher reservieren, (»getmem«) 

2. Mit Hilfe des »Trackdisk.device« werden die Tracks der 
Diskette geladen, (»losablock«) 

3. Taskswitching abschalten, (»taskoff«) 

4. Bitmap nach Block 879 verschieben 

5. Blöcke ordnen. Schema: 

RootBlock 

File-Header 

File-List 

User-Dir 

Datenblock 

Datenblöcke 

File-Header 

File-List 

Datenbiock 

Datenblöcke 

und so weiter. 

Die Hash-Tabelle des ersten User-Dirs beziehungsweise 
des Root-Blocks wird der Reihe nach durchsucht und deren 
File-Header oder User-Dirs hintenangestellt. 

Hinter die File-Header kommen noch die File-Listblöcke und 
— falls nur ein Datenblock im File-Header eingetragen ist — 
dieser selbst. (Beispiel: ».info«-Datel für die Workbench). Dar¬ 
auf folgen die restlichen Datenblöcke des Directory. Dann 
sucht das Programm das nächste User-Dir und beginnt wieder 
von vorne. (»DIskSort« und »SeHashB«) 

6. Diskette speichern (»Savedisk«) 

7. "'Maustastenrequester'" ausgeben (»ende«) 

8. Falls »Nochmal« und »Ramkopie« gewählt wurde: 
zurück nach »6«. 

9. Bel »Nochmal« und »Diskkopie«: zurück nach »1«. 

10. Bei »Quit« Speicher freigeben und »Ende« 

(»freemem«) 

Tabelle 3. Eine Kurzübersicht des Programmes. 

Der Sourcecode von »FastLoadCopy« befindet sich auf der 
Programmservice-Diskette zu diesem Sonderheft. 
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Programmname: FLC_GEN _ 

_ Computer: A500, A1000, A2000 mit Kickstart 1.2 

_ Sprache: Amiga-Basic _ 

Bemerkung: Generiert das lauffähige Maschinen¬ 
programm »FLC« auf Diskette im 
Laufwerk dfO: 


Programmnarae: FLC_GEN 


1 OmO REM Generiert lauffähiges Programm 

2 ag CLS 

3 SS OPEN '"dfO:FLC' FOR OUTPUT AS 1 

4 BS READ anz 

5 oa FOR i=l TO anz 

6 3nl READ h$ 

7 yB2 wertlsASC(LEFT$(h$,l)) 

8 bP IF wertl>64 THEN wertl=wertl-87 

ELSE wertl=wertl-48 

9 FI wertl=wertl*l6 

10 7c wert2=ASC(RIGHT$(h$,l)) 

11 wp IF wert2>64 THEN wert2=wert2-87 

ELSE wert2=wert2-48 

12 Pi wert=wertl+wert2 

13 9G PRINT #l,CHR$(wert); 

14 JOO NEXT 

15 3n CLOSE 1 

16 Ov END 

17 yc Werte: 

18 fR DATA 5128 

19 ph DATA 00,00,03,f3,00,00,00,00,00,00 

20 Qc DATA 00,01,00,00,00,00,00,00,00,00 

21 AO DATA 00,00,03,d5,00,00,03,69,00,00 

22 VW DATA 03,d5,23,cf,00,00,09,36,42,39 

23 4r DATA 00,00,09,34,23,fc,00,00,Od,5c 

24 qN DATA 00,00,0f,4a,23,fc,00,00,00,42 

25 IN DATA 00,00,0f,4e,4e,b9,00,00,0c,f4 

26 38 DATA 23,fc,00,00,0d,ba,00,00,0f,4a 

27 iG DATA 23,fc,00,00,00,lc,00,00,0f,4e 

28 YJ DATA 4e,b9,00,00,0c,f4,4e,b9,00,00 

29 sC DATA Ob,34,23,fc,00,00,00,03,00,00 

30 Mw DATA 0b,90,23,fc,00,06,e0,00,00,00 

31 Kz DATA 0b,98,4e,b9,00,00,0b,5a,4a,b9 

32 KV DATA 00,00,Ob,94,67,00,09,04,23,f9 

33 sf DATA 00,00,Ob,94,00,00,Ob,2c,23,fc 

34 2q DATA 00,00,00,05,00,00,Ob,90,4e,b9 

35 dz DATA 00,00,Ob,5a,4a,b9,00,00,Ob,94 

36 p7 DATA 67,00,08,eO,23,f9,00,00,Ob,94 

37 i5 DATA 00,00,Ob,30,23,fc,00,00,Oe,3c 

38 q7 DATA 00,00,0f,4a,23,fc,00,00,00,0d 

39 Fb DATA 00,00,0f,4e,4e,b9,00,00,0c,f4 

40 Lp DATA 23,f9,00,00,0b,98,00,00,0c,e6 

41 gR DATA 23,f9,00,00,0b,2c,00,00,0c,ea 

42 q2 DATA 33,fc,00,02,00,00,0c,f2,23,fc 

43 XM DATA 00,00,03,70,00,00,0c,ee,4e,b9 

44 ge DATA 00,00,Ob,9c,bc,b9,00,00,Ob,98 

45 8B DATA 66,00,08,a6,4e,b9,00,00,0b,0e 

46 a2 DATA 23,fc,00,00,00,00,00,00,0c,ee 

47 71 DATA 4e,b9,00,00,0b,9c,bc,b9,00,00 

48 vh DATA Ob,98,66,00,08,86,23,fc,00,00 

49 Ic DATA Oe,49,00,00,Of,4a,23,fc,00,00 

50 Rf DATA 00,0e,00,00,0f,4e,4e,b9,00,00 

51 Bj DATA 0c,f4,2c,79,00,00,00,04,4e,ae 

52 8T DATA ff,7c,20,3c,00,00,1b,90,42,81 

53 gN DATA 4e,ae,ff,3a,4a,80,67,00,08,30 

54 pz DATA 23,c0,00,00,07,ba,20,79,00,00 

55 kS DATA Ob,30,20,28,01,3c,33,cO,00,00 

56 kc DATA 07,b6,21,7c,00,00,03,6f,01,3c 

57 Yt DATA 4e,b9,00,00,05,04,23,c8,00,00 

58 IJ DATA 05,00,22,3c,00,00,03,6f,74,01 

59 OK DATA 4e,b9,00,00,01,fa,23,f9,00,00 

60 rN DATA 07,ae,00,00,05,00,33,cl,00,00 

61 6S DATA 07,b6,2e,3c,00,00,03,71,28,07 

62 QA DATA 20,3c,00,00,03,70,42,86,7a,02 

63 Zr DATA 33,c7,00,00,07,4a,4e,b9,00,00 

64 m6 DATA 05,36,20,04,52,84,b8,bc,00,00 

65 OJ DATA 06,e0,66,02,78,02,4e,b9,00,00 

66 h7 DATA 04,d6,66,20,b8,bc,00,00,03,6f 

67 Lq DATA 67,18,4e,b9,00,00,05,04,24,10 

68 sZ DATA b4,bc,00,00,00,08,67,d2,94,a8 

69 XV DATA 01,fc,67,bc,60,ca,4e,b9,00,00 

70 v9 DATA 07,50,2c,79,00,00,00,04,22,79 


71 Oj DATA 00,00,07,ba,20,3c,00,00,1b,90 

72 Q4 DATA 4e,ae,ff,2e,60,00,08,94,48,e7 

73 gZ DATA fe,fe,4e,b9,00,00,05,04,23,c8 

74 zx DATA 00,00,07,ae,23,c0,00,00,07,a6 

75 Qo DATA 23,cl,00,00,07,aa,20,01,4e,b9 

76 h5 DATA 00,00,05,04,23,c8,00,00,07,b2 

77 IJ DATA 4e,b9,00,00,02,a6,20,39,00,00 

78 9n DATA 07,a6,23,f9,00,00,07,aa,00,00 

79 hS DATA 07,a6,23,c0,00,00,07,aa,20,39 

80 MT DATA 00,00,07,ae,23,f9,00,00,07,b2 

81 ql DATA 00,00,07,ae,23,c0,00,00,07,b2 

82 LF DATA 42,79,00,00,07,b8,20,7c,00,00 

83 Hl DATA 00,00,4e,b9,00,00,08,3a,20,39 

84 IT DATA 00,00,07,a6,4e,b9,00,00,04,d6 

85 dS DATA 66,18,20,79,00,00,07,ae,24,10 

86 PD DATA b4,3c,00,08,67,04,94,a8,01,fc 

87 UP DATA 4e,b9,00,00,02,a6,4e,b9,00,00 

88 El DATA 08,68,4e,b9,00,00,07,e2,4e,b9 

89 38 DATA 00,00,07,c0,4c,df,7f,7f,4e,75 

90 ns DATA 2c,39,00,00,07,a6,b4,3c,00,05 

91 gG DATA 67,2c,b4,3c,00,08,67,00,01,14 

92 Bq DATA 4a,02,67,00,00,e8,b4,3c,00,13 

93 sx DATA 67,00,00,9e,b4,3c,00,01,67,Oe 

94 Zg DATA 13,fc,00,08,00,00,09,34,4e,b9 

95 rp DATA 00,00,08,b4,4e,75,48,e7,ff,fe 

96 iy DATA 4e,b9,00,00,04,ac,42,85,20,28 

97 Hv DATA 01,f4,4e,b9,00,00,05,36,22,48 

98 kV DATA 20,28,00,10,4e,b9,00,00,05,04 

99 ZQ DATA bc,a8,00,04,67,0e,13,fc,00,03 

100 09 DATA 00,00,09,34,4e,b9,00,00,08,b4 

101 xz DATA 33,fc,00,04,00,00,07,b8,4e,b9 

102 90 DATA 00,00,08,3a,20,28,00,10,4a,80 

103 PP data 66,d0,20,49,20,28,01,f8,4a,80 

104 tK DATA 67,2a,4e,b9,00,00,05,04,bc,a8 

105 iU DATA 01,f4,67,Oe,13,fc,00,04,00,00 

106 xt DATA 09,34,4e,b9,00,00,08,b4,33,fc 

107 X4 DATA 01,f4,00,00,07,b8,4e,b9,00,00 

108 YF DATA 08,3a,60,ce,4c,df,7f,ff,4e,75 

109 Fl DATA 48,e7,ff,fe,4e,b9,00,00,04,ac 

110 Gg DATA 20,28,01,f4,4e,b9,00,00,05,04 

111 5m DATA 20,28,01,f8,4a,80,66,Oe,13,fc 

112 lY DATA 00,05,00,00,09,34,4e,b9,00,00 

113 Ix DATA 08,b4,bc,80,66,e0,33,fc,01,f8 

114 NU DATA 00,00,07,b8,4e,b9,00,00,08,3a 

115 V7 DATA 4c,df,7f,ff,4e,75,48,e7,ff,fe 

116 Sg DATA 4e,b9,00,00,04,ac,20,28,01,f4 

117 LW DATA 42,85,4e,b9,00,00,05,36,7a,01 

118 3t DATA 20,06,4e,b9,00,00,05,36,4c,df 

119 jJ DATA 7f,ff,4e,75,48,e7,ff,fe,20,79 

120 i6 DATA 00,00,07,ae,20,28,00,04,22,28 

121 f3 DATA 00,08,b2,7c,00,01,67,68,4e,b9 

122 ms DATA 00,00,05,04,dl,fc,00,00,00,18 

123 gh DATA 72,47,bc,98,57,c9,ff,fc,67,0e 

124 2E DATA 20,79,00,00,05,32,20,28,01,f8 

125 To DATA 24,48,60,dc,33,fc,ff,fc,00,00 

126 Y3 DATA 07,b8,4e,b9,00,00,08,3a,4a,90 

127 sD DATA 67,04,20,10,60,04,20,2a,00,18 

128 BB DATA 4e,b9,00,00,05,04,bc,a8,00,10 

129 xl DATA 67,Oe,13,fc,00,06,00,00,09,34 

130 ec DATA 4e,b9,00,00,08,b4,33,fc,00,10 

131 el DATA 00,00,07,b8,4e,b9,00,00,08,3a 

132 Fc DATA 60,5a,4e,b9,00,00,05,04,bc,a8 

133 BA data 01,34,67,0e,13,fc,00,06,00,00 

134 PL DATA 09,34,4e,b9,00,00,08,b4,33,fc 

135 sa DATA 01,34,00,00,07,b8,4e,b9,00,00 

136 gk DATA 08,3a,bc,a8,00,10,67,0e,13,fc 

137 mp DATA 00,01,00,00,09,34,4e,b9,00,00 

138 No DATA 08,b4,33,fc,00,10,00,00,07,b8 

139 tT DATA 4e,b9,00,00,08,3a,20,28,01,f8 

140 T4 DATA 4a,80,67,08,4e,b9,00,00,05,04 

141 cT DATA 60,ce,4c,df,7f,ff,4e,75,20,79 

142 q6 DATA 00,00,07,ae,bc,a8,00,04,67,0e 

143 KQ DATA 13,fc,00,07,00,00,09,34,4e,b9 

144 in DATA 00,00,08,b4,33,fc,00,04,00,00 

145 Gs DATA 07,b8,4e,b9,00,00,08,3a,4e,75 

146 z4 DATA 48,e7,80,00,2a,39,00,00,05,00 


147 Wd DATA 72,02,58,85,06,41,00,20,b0,4l 

148 Eh DATA 6a,f6,92,40,cb,88,2a,10,04,4l 

149 G4 DATA 00,20,44,41,03,05,4c,df,00,01 

150 31 data 4e,75,00,00,00,00,48,e7,80,00 

151 El DATA bO,7c,03,70,6a,08,20,79,00,00 

152 RH DATA Ob,2c,60,0a,20,79,00,00,Ob,30 

153 ul DATA 04,40,03,70,c0,fc,02,00,dl,c0 

154 Wp DATA 23,c8,00,00,05,32,4c,df,00,01 

155 85 DATA 4e,75,00,00,00,00,48,e7,f8,c0 

156 uv DATA 4e,b9,00,00,05,04,dl,fc,00,00 

157 RO DATA 00,18,76,47,20,18,4a,80,67,48 

158 6p DATA 4e,b9,00,00,05,d8,ba,bc,00,00 

159 Eu DATA 00,02,66,08,20,39,00,00,07,a6 

160 2E DATA 60,04,bc,80,67,44,22,48,4e,b9 

161 pt DATA 00,00,05,04,20,28,01,f0,4a,80 

162 B3 DATA 67,lc,4e,b9,00,00,05,d8,ba,bc 

163 qg data 00,00,00,02,66,08,20,39,00,00 

164 15 DATA 07,a6,60,dc,bc,80,67,20,60,d6 

165 OH DATA 20,49,51,cb,ff,bO,4a,85,66,26 

166 jq DATA 13,fc,00,08,00,00,09,34,4e,b9 

167 tv DATA 00,00,08,b4,91,fc,00,00,01,f4 

168 IB DATA 4a,85,66,e8,33,fc,01,f0,00,00 

169 ST DATA 07,b8,4e,b9,00,00,08,3a,ba,bc 

170 Qb DATA 00,00,00,02,66,06,4e,b9,00,00 

171 Ml DATA 06,be,4c,df,03,lf,4e,75,4a,85 

172 oE DATA 67,3a,ba,bc,00,00,00,02,67,34 

173 Uy DATA 48,e7,80,80,4e,b9,00,00,05,04 

174 CX DATA 20,28,01,f4,bc,80,67,0e,13,fc 

175 UT DATA 00,02,00,00,09,34,4e,b9,00,00 

176 yL DATA 08,b4,33,fc,01,f4,00,00,07,b8 

177 wp DATA 4e,b9,00,00,08,3a,4c,df,01,01 

178 oF DATA 4e,75,48,e7,e0,80,4e,b9,00,00 

179 jV DATA 05,04,24,10,b4,3c,00,08,67,04 

180 80 DATA 94,a8,01,fc,22,07,4e,b9,00,00 

181 vY DATA 01,fa,52,87,52,86,4e,b9,00,00 

182 MJ DATA 07,3e,b4,bc,00,00,00,05,66,70 

183 03 data 23,f9,00,00,07,a6,00,00,07,4 c 

184 20 DATA 20,39,00,00,07,a6,4e,b9,00,00 

185 eL DATA 05,04,20,28,01,f8,4a,80,67,1a 

186 TD DATA 24,3c,00,00,00,13,22,07,4e,b9 

187 03 DATA 00,00,01,fa,52,87,52,86,4e,b9 

188 ol DATA 00,00,07,3e,60,d2,b4,3c,00,13 

189 Cm DATA 67,28,20,28,00,08,bO,bc,00,00 

190 2P DATA 00,01,66,1c,20,28,00,10,22,07 

191 MC DATA 24,3c,00,00,00,08,4e,b9,00,00 

192 6j DATA 01,fa,52,87,52,86,4e,b9,00,00 

193 ny DATA 07,3e,23,f9,00,00,07,4c,00,00 

194 09 DATA 07,a6,4c,df,01,07,4e,75,30,39 

195 uW DATA 00,00,07,4a,48,c0,4a,86,67,3a 

196 Ou DATA 4e,b9,00,00,05,04,22,10,b2,bc 

197 QX DATA 00,00,00,08,67,le,92,a8,01,fc 

198 Ou DATA b2,bc,00,00,00,05,66,12,22,28 

199 NO DATA 00,08,b2,bc,00,00,00,01,67,06 

200 vi DATA 4e,b9,00,00,07,0a,52,80,b0,bc 

201 uT DATA 00,00,06,df,63,02,70,02,51,ce 

202 Nn DATA ff,c0,4e,75,48,e7,e0,00,20,28 

203 2H DATA 00,10,67,24,22,07,24,3c,00,00 

204 JR DATA 00,08,4e,b9,00,00,01,fa,52,87 

205 If DATA 4e,b9,00,00,07,3e,20,39,00,00 

206 60 DATA 07,a6,4e,b9,00,00,05,04,60,d6 

207 SC DATA 4c,df,00,07,4e,75,be,bc,00,00 

208 YH DATA 06,df,63,02,7e,02,4e,75,00,00 

209 g7 DATA 00,00,00,00,70,01,52,40,b0,79 

210 dd DATA 00,00,07,b6,67,2c,b0,7c,06,e0 

211 Mo DATA 67,24,4e,b9,00,00,04,d6,66,e8 

212 S1 DATA 4e,b9,00,00,05,04,42,84,76,7f 

213 cW DATA d8,98,51,cb,ff,fc,98,a8,fe,l4 

214 f7 DATA 44,84,21,44,fe,l4,60,cc,4e,75 

215 Ep DATA 4e,b9,00,00,05,04,76,7e,dl,fc 

216 Fm DATA 00,00,00,04,42,84,d8,98,51,cb 

217 NU DATA ff,fc,44,84,21,44,fe,00,60,ac 

218 Wm DATA 00,00,00,00,00,00,00,00,00,00 

219 Xn DATA 00,00,00,00,00,00,00,00,00,00 

220 tC DATA 00,00,00,00,00,00,48,e7,c0,c0 

221 3n DATA 20,79,00,00,07,ae,22,79,00,00 

222 bt DATA 07,b2,70,7f,22,10,20,dl,22,cl 

223 Nf DATA 51,c8,ff,f8,4c,df,03,03,4e,75 

224 al DATA 48,e7,fe,fe,20,39,00,00,07,a6 

225 rD DATA 4e,b9,00,00,04,d6,2c,48,28,01 

226 b3 DATA 2c,05,20,39,00,00,07,aa,4e,b9 

227 Gt DATA 00,00,04,d6,bc,85,67,1c,09,06 

Listing 1. Der Basic-Lader von »Fast 
LoadCopy« 
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228 Pa DATA 67,08,03,c5,67,08,09,c6,60,06 

229 wB DATA 03,85,60,f6,09,86,2c,86,20,85 

230 g4 DATA 4c,df,7f,7f,4e,75,09,06,67,08 

231 Co DATA 03,c6,67,08,09,c6,60,06,03,86 

232 9e DATA 60,f6,09,86,2c,86,60,e4,48,e7 

233 Pn DATA 80,c0,30,39,00,00,07,b8,48,c0 

234 nd DATA dl,c0,30,39,00,00,07,be,48,c0 

235 JV DATA 22,79,00,00,07,ba,d3,c0,22,88 

236 XQ DATA 58,80,33,c0,00,00,07,be,4c,df 

237 SM DATA 03,01,4e,75,36,39,00,00,07,be 

238 Ix DATA e4,4b,53,43,20,79,00,00,07,ba 

239 Ob DATA 22,39,00,00,07,a6,4a,90,67,20 

240 vU DATA 22,58,22,81,51,cb,ff,f6,42,79 

241 55 DATA 00,00,07,be,20,79,00,00,07,ba 

242 wv DATA 36,3c,06,e3,42,98,51,cb,ff,fc 

243 Ys DATA 4e,75,dl, fc, 00,00,00,04,22,39 

244 4P DATA 00,00,07,aa,51,cb,ff,ce,60,d6 

245 zB DATA 48,e7,ff,fe,20,39,00,00,07,a6 

246 eK DATA 4l,f9,00,00,0f,le,76,02,4e,b9 

247 bl DATA 00,00,09,3a,4l,f9,00,00,0f,48 

248 rU DATA 10,39,00,00,09,34,48,80,42,83 

249 pD DATA 4e,b9,00,00,09,3a,2c,79,00,00 

250 CI DATA 00,04,4e,ae,ff,76,23,fc,00,00 

251 uw DATA Of,0d,00,00,0f,4a,23,fc,00,00 

252 qB DATA 00,3d,00,00,0f,4e,4e,b9,00,00 

253 LB data 0c,f4,10,39,00,00,09,34,bO, 3c 

254 gj DATA 00,07,63,l6,4e,b9,00,00,07,50 

255 WS DATA 4e,b9,00,00,0b,0e,2e,79,00,00 

256 2v DATA 09,36,60,00,f8,ba,42,39,00,00 

257 ku DATA 09,34,4c,df,7f,ff,4e,75,00,00 

258 SP DATA 00,00,00,00,48,e7,f0,80,dl,c3 

259 V7 DATA dl,fc,00,00,00,01,42,42,34,00 

260 w3 DATA 02,42,00,Of,06,42,00,30,b4,7c 

261 ZM DATA 00,39,63,00,00,06,06,42,00,07 

262 10 DATA ll,02,e8,48,51,cb,ff,e2,4c,df 

263 52 DATA 01,0f,4e,75,23,fc,00,00,0d,9e 

264 Tk DATA 00,00,0f,4a,23,fc,00,00,00,lc 

265 tF DATA 00,00,0f,4e,4e,b9,00,00,0c,f4 

266 If DATA 4e,f9,00,00,0a,4a,23,fc,00,00 

267 Yg DATA 0e,l4,00,00,0f,4a,23,fc,00,00 

268 qD DATA 00,lc,00,00,0f,4e,4e,b9,00,00 

269 fF DATA 0c,f4,4e,f9,00,00,0a,'4a,23,fc 

270 xq DATA 00,00,Oe,57,00,00,Of,4a,23,fc 

271 08 DATA 00,00,00,5c,00,00,0f,4e,4e,b9 

272 uG DATA 00,00,0c,f4,42,00,4e,b9,00,00 

273 vd DATA Oa,2c,4a,00,67,00,00,78,23,fc 

274 FA DATA 00,00,0e,b3,00,00,0f,4a,23,fc 

275 06 DATA 00,00,00,5a,00,00,0f,4e,4e,b9 

276 9d DATA 00,00,0c,f4,08,39,00,0a,00,df 

277 3D DATA f0,l6,67,00,ff,f6,42,00,4e,b9 

278 GP DATA 00,00,0a,2c,4a,00,67,00,00,7a 

279 inA DATA 23,fc,00,00,Od,5c,00,00,Of,4a 

280 WK DATA 23,fc,00,00,00,42,00,00,0f,4e 

281 dO DATA 4e,b9,00,00,0c,f4,4e,b9,00,00 

282 tc DATA Ob,Oe,60,00,00,76,08,39,00,06 

283 jl DATA 00,bf,e0,01,67,00,00,12,08,39 

284 Je DATA 00,0a,00,df,f0,l6,66,00,ff,ea 

285 zK DATA 06,00,00,01,4e,75,4a,b9,00,00 

286 nl DATA 0b^30,67,00,00,12,23,f9,00,00 

287 Gz DATA 0b,30,00,00,0b,94,4e,b9,00,00 

288 vi DATA Ob,78,4a,b9,00,00,Ob,2c,67,00 

289 yU DATA 00,12,23,f9,00,00, Ob, 2c,00,00 

290 bC DATA 0b,94,4e,b9,00,00,0b,78,4e,75 

291 06 DATA 4e,b9,00,00,0a,4a,4e,f9,00,00 

292 ry DATA 00,00,2c,79,00,00,00,04,4e,ae 

293 Dz DATA ff,76,4a,39,00,00,09,34,66,00 

294 Ku DATA ff,0e,23,fc,00,00,0d,d6,00,00 

295 wE DATA Of,4a,23,fc,00,00,00,1c,00,00 

296 RF DATA 0f,4e,4e,b9,00,00,0c,f4,4e,b9 

297 vX DATA 00,00,0b,34,23,fc,00,00,0e,30 

298 xD DATA 00,00,Of,4a,23,fc,00,00,00,0c 

299 Rn DATA 00,00,0f,4e,4e,b9,00,00,0c,f4 

300 YW DATA 33,fc,00,0b,00,00,0c,f2,23,fc 

301 p3 DATA 00,00,00,00,00,00,0c,ee,4e,b9 

302 5v DATA 00,00,Ob,9c,4e,b9,00,00,Ob,Oe 

303 Co DATA 23,fc,00,00,03,70,00,00,0c,ee 

304 wm DATA 4e,b9,00,00,0b,9c,4e,f9,00,00 

305 2S DATA 09,ac,22,79,00,00,Ob,2c,20,79 

306 JO DATA 00,00,Ob,30,20,3c,00,01,b8,00 

307 An DATA 22,10,20,dl,22,cl,53,80,66,f6 

308 ig DATA 4e,75,00,00,00,00,00,00,00,00 

309 Tr DATA 23,fc,00,00,0d,f2,00,00,0f,4a 

310 wi DATA 23,fc,00,00,00,22,00,00,0f,4e 

311 ea DATA 4e,b9,00,00,0c,f4,08,39,00,06 


312 vK DATA 00,bf,e0,01,66,f6,4e,75,2c,79 

313 gJ DATA 00,00,00,04,20,39,00,00,Ob,98 

314 IH DATA 22,39,00,00,0b,90,4e,ae,ff,3a 

315 31 data 23,cO, 00,00,Ob,94,4e,75, 2c, 79 

316 JM DATA 00,00,00,04,20,39,00,00,Ob,98 

317 qH DATA 22,79,00,00,Ob,94,4e,ae,ff,2e 

318 sq DATA 4e,75,00,00,00,00,00,00,00,00 

319 MZ DATA 00,00,00,00,4d,f9,00,00,0c,76 

320 rA DATA 20,3c,00,00,00,1b,2c,fc,00,00 

321 fb DATA 00,00,51,c8,ff,f8,2c,79,00,00 

322 iW DATA 00,04,20,39,00,00,0c,ee,c0,fc 

323 RN DATA 02,00,23,c0,00,00,0c,ee,93,c9 

324 kK DATA 4e,ae,fe,da,43,f9,00,00,0c,c6 

325 ak DATA 23,40,00,10,4e,ae,fe,9e,43,f9 

326 7k DATA 00,00,0c,76,20,3c,00,00,00,00 

327 2J DATA 42,81,41,f9,00,00,0c,64,4e,ae 

328 ST DATA fe,44,4a,80,66,00,00,6a,43,f9 

329 xR DATA 00,00,0c,76,23,7c,00,00,0c,c6 

330 ch DATA 00,Oe,33,79,00,00,0c,f2,00,1c 

331 Gw DATA 23,79,00,00,Oc,ea,00,28,23,79 

332 bY DATA 00,00,0c,e6,00,24,23,79,00,00 

333 Jh DATA Oc,ee,00,2c,2c,79,00,00,00,04 

334 ON DATA 4e,ae,fe,38,43,f9,00,00,0c,76 

335 3V DATA 2c,29,00,20,33,7c,00,09,00,1c 

336 IW DATA 23,7c,00,00,00,00,00,24,4e,ae 

337 z9 DATA fe,38,43,f9,00,00,0c,c6,4e,ae 

338 Mu DATA fe,98,43,f9,00,00,0c,76,4e,ae 

339 fu DATA fe,3e,4e,75,74,72,6l,63,6b,64 

340 ID DATA 69,73,6b,2e,64,65,76,69,63,65 

341 VI DATA 00,00,00,00,00,00,00,00,00,00 

342 Wm DATA 00,00,00,00,00,00,00,00,00,00 

343 Xn DATA 00,00,00,00,00,00,00,00,00,00 

344 Yo DATA 00,00,00^00,00,00,00,00,00,00 

345 Zp DATA 00,00,00,00,00,00,00,00,00,00 

346 aq DATA 00,00,00,00,00,00,00,00,00,00 

347 br DATA 00,00,00,00,00,00,00,00,00,00 

348 cs DATA 00,00,00,00,00,00,00,00,00,00 

349 dt DATA 00,00,00,00,00,00,00,00,00,00 

350 eu DATA 00,00,00,00,00,00,00,00,00,00 

351 fv DATA 00,00,00,00,00,00,00,00,00,00 

352 gw DATA 00,00,00,00,00,00,00,00,00,00 

353 KQ DATA 00,00,00,00,00,00,00,00,48,e7 

354 of DATA fe,fe,2c,79,00,00,00,04,43,f9 

355 Om DATA 00,00,0d,4c,42,80,4e,ae,fe,68 

356 op DATA 67,00,00,3a,23,c0,00,00,0d,58 

357 xP DATA 2c,40,4e,ae,ff,c4,22,00,24,39 

358 eQ DATA 00,00,0f,4a,26,39,00,00,0f,4e 

359 sp DATA 4e,ae,ff,d0,4a,80,6a,00,00,06 

360 uz DATA 4e,ee,ff,70,2c,79,00,00,00,04 

361 ta DATA'22,79,00,00,0d,58,4e,ae,fe,62 

362 vE DATA 4c,df,7f,7f,4e,75,64,6f,73,2e 

363 GS DATA 6c,69,62,72,61,72,79,00,00,00 

364 D4 DATA 00,00,0c,0a,0a,09,09,9b,31,3b 

365 ux DATA 33,31,3b,34,32,6d,20,20,20,20 

366 ffio DATA 46,6l,73,74,4c,6f,6l,64,43,6f 

367 Tv DATA 70,79,20,62,79,20,50,2e,53,2e 

368 S9 DATA 20,20,20,28,43,29,20,4d,26,54 

369 5a DATA 20,69,6e,20,31,39,38,38,20,20 

370 vl DATA 20,20,9b,30,6d,0a,0a,0a,5a,75 

371 uq DATA 20,77,65,6e,69,67,20,53,70,65 

372 KK DATA 69,63,68,65,72,20,76,6f,72,68 

373 Am DATA 6l,6e,64,65,6e,0a,42,69,74,74 

374 Iw DATA 65,20,51,75,65,6c,6c,64,69,73 

375 j8 DATA 6b,65,74,74,65,20,69,6e,20,44 

376 Lo DATA 46,30,3a,0a,0a,42,69,74,74,65 

377 fA DATA 20,5a,69,65,6c,64,69,73,6b,65 

378 X7 DATA 74,74,65,20,69,6e,20,44,46,30 

379 oj DATA 3a,0a,2e,2e,2e,20,75,6e,64,20 

380 92 DATA 6c,69,6e,6b,65,20,4d,61,75,73 

381 JY DATA 74,61,73,74,65,20,64,72,75,65 

382 oJ DATA 63,6b,65,6e,21,0a,54,72,61,63 

383 pM DATA 6b,64,69,73,6b,2e,64,65,76,69 

384 Rz DATA 63,65,20,2d,20,50,72,6f,62,6c 

385 II DATA 65,6d,65,0a,2e,2e,2e,20,73,6l 

386 mH DATA 76,69,6e,67,0a,0a,2e,2e,2e,20 

387 rk DATA 6c,6f,61,64,69,6e,67,0a,0a,2e 

388 TV DATA 2e,2e,20,63,68,6l,6e,67,69,6e 

389 fA DATA 67,0a,0a,0a,0a,0a,09,9b,30,3b 

390 T5 DATA 33,31,3b,34,32,6d,20,20,4c,4d 

391 w DATA 61,75, 73 ,74,61,73,74,65,20,3d 

392 II DATA 20,20,20,51,75,69,74,20,20,20 

393 9t DATA 20,9b,30,6d,20,20,20,20,20,20 

394 PL DATA 20,20,20,20,20,20,20,9b,30,3b 

395 4p DATA 33,31,3b,34,32,6d,20,20,52,4d 


396 00 DATA 61,75,73,74,61,73,74,65,20,3d 

397 OQ DATA 20,20,4e,6f,63,68,6d,6l,6c,20 

398 p9 DATA 20,9b,30,6d,0a,0a,09,9b,30,3b 

399 cE DATA 33,31,3b,34,32,6d,20,20,4c,4d 

400 44 DATA 61,75,73,74,61,73,74,65,20,3d 

401 d2 DATA 20,44,69,73, 6 b, 6 b,6f,70,69,65 

402 12 DATA 20,9b,30,6d,20,20,20,20,20,20 

403 YU data 20,20,20,20,20,20,20,9b,30,3b 

404 Dy DATA 33,31,3b,34,32, 6 d,20,20,52,4d 

405 99 DATA 61,75,73,74,61,73,74,65,20,38 

406 M7 DATA 20,52,61, 6 d, 6 b, 6 f,70,69,65,20 

407 12 DATA 20,9b,30,6d,0a,46,65,68,6c,65 

408 sU DATA 72,20,69, 6 e,20,42, 6 c, 6 f,63, 6 b 

409 RP DATA 20,24,20,20,20,2e,20,44,69,73 

410 vE DATA 6 b,20,75,2e,55,2e,20, 66 ,65 ,68 

411 Oy DATA 6 c,65,72, 68 ,61,66,74,20,21,21 

412 tN DATA 20,46,65,68,6c,65,72, 6 e,75, 6 d 

413 VJ DATA 6 d,65,72,20,20,0a,00,00,00,00 

414 JI DATA 00,00,00,00,00,00,00,00, 03 ,ec 

415 x 6 DATA 00,00,01,20,00,00,00,00,00,00 

416 Zg DATA 00,02,00,00,00,08,00,00,00,Oe 

417 EI DATA 00,00,00,12,00,00,00,1c,00,00 

418 ny DATA 00,22,00,00,00,28,00,00,00,2c 

419 gi DATA 00,00,00,36,00,00,00,3c,00,00 

420 hx DATA 00,42,00,00,00,4c,00,00,00,56 

421 LE DATA 00,00,00,5c,00,00,00,62,00,00 

422 rw DATA 00,6c,00,00,00,70,00,00,00,7a 

423 NL DATA 00,00,00,80,00,00,00,86,00,00 

424 a 8 DATA 00,90,00,00,00,94,00,00,00,9a 

425 Km DATA 00,00,00,9e,00,00,00,a8,00,00 

426 d4 DATA 00,ae,00,00,00,b4,00,00,00,b8 

427 2m DATA 00,00,00,be,00,00,00,c2,00,00 

428 wO DATA 00,ca,00,00,00,d4,00,00,00,da 

429 mG DATA 00,00,00,e0,00,00,00,ea,00,00 

430 pN DATA 00,f4,00,00,00,fa,00,00,01,00 

431 7y DATA 00,00,01,0a,00,00,01,0e,00,00 

432 qa DATA 01,18,00,00,01,le,00,00,01,40 

433 y6 DATA 00,00,01,46,00,00,01,50,00,00 

434 hy DATA 01,5e,00,00,01,64,00,00,01,72 

435 kZ DATA 00,00,01,78,00,00,01,7c,00,00 

436 rt DATA 01,82,00,00,01,9a,00,00,01,aO 

437 uq DATA 00,00,01,b4,00,00,01,c4,00,00 

438 UL DATA 01,de,00,00,01,e 8 ,00,00,02,00 

439 ty DATA 00,00,02,06,00,00,02,0c,00,00 

440 EJ DATA 02,12,00,00,02,la,00,00,02,20 

441 DC DATA 00,00,02,26,00,00,02,2c,00,00 

442 as DATA 02,32,00,00,02,36,00,00,02,3c 

443 dl DATA 00,00,02,42,00,00,02,48,00,00 

444 yQ DATA 02,4c,00,00,02,52,00,00,02,58 

445 fO DATA 00,00,02,64,00,00,02,6a,00,00 

446 An DATA 02,70,00,00,02,78,00,00,02,8a 

447 E3 DATA 00,00,02,90,00,00,02,96,00,00 

448 hh DATA 02,9c,00,00,02,a 8 ,00,00,02,d 2 

449 gX DATA 00,00,02,d 8 ,00,00,02,e4,00,00 

450 8 r DATA 02,fO,00,00,02,fc,00,00,03,0a 

451 Qc DATA 00,00,03,10,00,00,03,18,00,00 

452 xE DATA 03,le,00,00,03,36,00,00,03,44 

453 8t DATA 00,00, 03 ,4a,00,00, 03 ,52,00,00 

454 KM DATA 03 ,58,00,00, 03 ,6a,00,00, 03 ,74 

455 Hr DATA 00,00,03,84,00,00,03,8a,00,00 

456 Bv DATA 03,96,00,00,03,9c,00,00,03,ac 

457 YQ DATA 00,00, 03 ,b8,00,00, 03 ,c2,00,00 

458 rc DATA 03,d2,00,00,03,e6,00,00,03,fc 

459 so DATA 00,00,04,0c,00,00,04,12,00,00 

460 e8 DATA 04,24,00,00,04,32,00,00,04,38 

461 31 DATA 00,00,04,40,00,00,04,46,00,00 

462 jr DATA 04,4e,00,00,04,5c,00,00,04,62 

463 cC DATA 00,00,04,6a,00,00,04,70,00,00 

464 uC DATA 04,7e,00,00,04,84,00,00,04,8c 

465 S1 DATA 00,00,04,92,00,00,04,aO,00,00 

466 m5 DATA 04,ae,00,00,04,bc,00,00,04,c2 

467 De DATA 00,00,04,ca,00,00,04,dO,00,00 

468 BN DATA 04,de,00,00,05,10,00,00,05,18 

469 G9 DATA 00,00,05,28,00,00,05,3c,00,00 

470 IS DATA 05,50,00,00,05,5e,00,00,05,6c 

471 ZB DATA 00,00,05,7a,00,00,05,88,00,00 

472 10 DATA 05,a2,00,00,05,a8,00,00,05,ba 

473 Gf DATA 00,00,05,cO,00,00,05,ce,00,00 
4.74 cU DATA 05,ea,00,00,05,fa,00,00,06,00 

475 JG DATA 00,00,06,08,00,00,06,Oe,00,00 

476 MS DATA 06,le,00,00,06,32,00,00,06,3c 

477 Ff DATA 00,00,06,4a,00,00,06,4e,00,00 

478 So DATA 06,54,00,00,06,5a,00,00,06,70 

479 KQ DATA 00,00,06,7a,00,00,06,aO,00,00 
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, 06,aa,00,00,06,b0,00,00,06,b4 
. 00,00,06,cO,00,00,06,cc,00,00 
. 06,f4,00,00,07,le,00,00,07,26 
. 00,00,07,2c,00,00,07,32,00,00 
L 07,56,00,00,07,64,00,00,07,6c 
L 00,00,07,8a,00,00,07,c6,00,00 
L 07,cc,00,00,07,68,00,00,07,ee 
L 00,00,07,fa,00,00,08,00,00,00 
L 08,40,00,00,08,4a,00,00,08,52 
L 00,00,08,56,00,00,08,6a,00,00 
L 08,74,00,00,08,7a,00,00,08,8c 
L 00,00,08,92,00,00,08,aa,00,00 
L 08,ba,00,00,08,c0,00,00,08,c8 
L 00,00,08,C6,00,00,08,d4,00,00 
l 08,de,00,00,08,66,00,00,08,f2 
l 00,00,08,fc,00,00,09,02,00,00 
l 09,08,00,00,09,14,00,00,09,1a 
l 00,00,09,20,00,00,09,2a,00,00 
l 09,66,00,00,09,72,00,00,09,7c 
L 00,00,09,82,00,00,09,88,00,00 
l 09,86,00,00,09,92,00,00,09,9c 
l 00,00,09,a2,00,00,09,a8,00,00 
l 09,a6,00,00,09,b2,00,00,09,bc 
^ 00,00,09,c2,00,00,09,ca,00,00 
^ 09,d6,00,00,09,da,00,00,09,64 
^ 00,00,09,6a,00,00,09,f6,00,00 
^ 0a,0a,00,00,0a,0e,00,00,0a,18 
V 00,00,0a,le,00,00,0a,24,00,00 


508 5X DATA 0a,4c,00,00,0a,56,00,00,0a,5a 

509 N4 DATA 00,00,0a,60,00,00,0a,66,00,00 

510 WL DATA 0a,70,00,00,0a,74,00,00,0a,7a 

511 tY DATA 00,00,0a,82,00,00,0a,88,00,00 

512 zx DATA 0a,98,00,00,0a,a2,00,00,0a,a6 

513 pO DATA 00,00,0a,b0,00,00,0a,b6,00,00 

514 gb DATA 0a,bc,00,00,0a,c2,00,00,0a,c6 

515 9c DATA 00,00,0a,d0,00,00,0a,d6,00,00 

516 L5 DATA 0a,de,00,00,0a,e8,00,00,0a,ee 

517 dp DATA 00,00,0a,f4,00,00,Oa,fe,00,00 

518 FT DATA Ob,04,00,00,Ob,Oa,00,00,Ob,10 

519 GH DATA 00,00,Ob,16,00,00,Ob,36,00,00 

520 yW DATA Ob,3a,00,00,Ob,44,00,00,Ob,4a 

521 vd DATA 00,00,Ob,62,00,00,Ob,68,00,00 

522 VW DATA Ob,72,00,00,Ob,80,00,00,Ob,86 

523 fN DATA 00,00,0b,9e,00,00,0b,ba,00,00 

524 K6 DATA Ob,c4,00,00,Ob,dO,00,00,Ob,de 

525 D9 DATA 00,00,Ob,ec,00,00,Ob,fc,00,00 

526 Vw DATA Oc,02,00,00,0c,Oa,00,00,0c,12 

527 dD DATA 00,00,Oc,la,00,00,0c,22,00,00 

528 oH DATA Oc,34,00,00,0c,50,00,00,0c,5a 

529 yj DATA 00,00,0d,00,00,00,0d,10,00,00 

530 sF DATA 0d,le,00,00,0d,24,00,00,0d,3e 

531 fV DATA 00,00,00,00,00,00,03,f2 
(C) 1988 M&T 


Listing 1. (Schluß) 



Programmname: 

FastLoadCopy 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

Assembler 

Assembler: 

DevPac 


emp.1 MemLaenge,d6 
bne trackfehler 
jsr swapbuffer 

;Fastmem <-> Chipmem 
move.l #0,Blk_Nr 
Jsr losablock 

;Block 0-879 laden 
emp.1 MemLaenge,d6 
bne trackfehler 

Blockchangerou 

tine 

move.l #ctxt,text 
move.1 # endtxtl-ctxt,textle 
n ;Changlng ausgeben 
Jsr printtxt 
taskoff: 

move.l ExecBase,a6 
;Taskswitching 
Jsr Forbit(a6) 

;verbieten 
move.l #7056,d0 
clr.l dl 

Jsr AllocMem(a6) 
tst.l dO 
beq memfehler 
move.l dO,Llstadr 
move.l Fastbuffer,aO 
move.l 3l6(a0),d0 
move dO,BitmapBlock 

;Adresse des Bitmapbloc 
kes 

move.l #879,3l6(a0) 

Jsr AdrRech 

;feststellen 
move.l aO,BMADR 
move.l #879,dl 
moveq #l,d2 
J sr BlockMove 

;Bitmap nach Block 881 
move.l ABADR,BMADR 
move dl,BitmapBlock 
DiskSort: 


Programmname: FastLoadCopy 


1 XSO 

2 Kp FastLoadCopy b 

y Paul Sponagl » 

3 s3 (C) Markt & 

Technik * 

4 No ;* in July . 

1988 * 

5 59 TEL: 083 

68/1581 * 

6 cX 

ft««»«««**«««««««««««««««««««««*« 

7 DS Alle Makros d 

affinieren 

8 il ExecBase equ 4 

9 Jo FindTask equ -294 

10 Fy AddPort equ -354 

11 Vg RemPort equ -360 

12 fy OpenLib equ -408 

;Exec-Kommandos 

13 b6 CloseLib equ -4l4 

14 13 Forbit equ -132 

15 ly Permit equ -138 

16 nU AllocMem equ -198 

17 bm FreeMem equ -210 

18 tD ChipMem equ 3 

; ' (Speicher) 

19 X8 FastMem equ 5 

20 Qf OpenDev equ -444 

21 ST CloseDev . equ -450 

; " (Trackdisk) 

22 Wy Dolo equ -456 

23 Xo tcLread equ 2 

24 xL td_format equ 11 

;Trackdisk-Kommandos 

25 Ae Output equ -60 

26 HH Write equ -48 

;DOS-Kommandos 


27 KT Exit equ -144 

28 Ik ; Start 

29 9n Start : 

30 Tw5 move.l a7,SPointer 

31 JP clr.b Errorstate 

32 mv move.l #clstxt,text 

33 4r move.l #memtxt-clstxt,textl 

en ;Anfangstext 

34 BK Jsr printtxt 

35 dQ move.l #quelltxt,text 

36 s8 move.l #zieltxt-quelltxt,te 

xtlen ;Quelldiskettel 

37 EN Jsr printtxt 

38 Ep Jsr wait 

39 M90 ;it******it**iiii* Ganze Diskette in 

den Speicher laden »innnnnnnnnnnt 

40 lg5 move.l #ChipMem,Bedingung 

41 gr move.l #450560,MemLaenge 

jChipMem fuer 880 Bloe 
cke 

42 wd Jsr getmem 

;reservieren 

43 kl tst.l Buffer 

44 RU beq memfehler 

45 gV move.l Buffer,Chipbuffer 

46 wa move.l #FastMem,Bedingung 

47 SX Jsr getmem 

;FastMem ebenfalls 

48 pq tst.l Buffer 

49 WZ beq memfehler 

50 ZJ move.l Buffer,Fastbuffer 

51 Tx move.l #ltxt,text 

52 nH move.l #ctxt-ltxt,textlen 

;"loading'ausgeben 

53 Ud Jsr printtxt 

54 HJ move.l MemLaenge,bufflen 

55 do move.l Chipbuffer,diskbuff 

56 zr move #td_read,Kommando 

;Block 880-1759 laden 

57 Xu move.l #880,Blk_Nr 

58 zH Jsr losablock 


91 fS5 move.l #881,d7 

92 JR move.l d7,d4 

93 5o move.l #880,d0 

jRootBlock sortieren 

94 3S0 DSSLoop: 

95 Xa5 clr.l d6 

96 oG moveq #2,d5 

97 3V move d7,Firstsub 

98 IW Jsr SeHashB 

99 gOO keinUDDS: 

100 CH5 move.l d4,d0 

101 fB addq.l #l,d4 

102 iO cmp.l #1760,d4 

103 gh bne.s weiterUDDS 

104. wO moveq #2,d4 

105 NIO weiterUDDS: 

106 aE5 Jsr SBitMap 

107 18 bne.s FertigDiskS 

108 Pz cmp.l #879,d4 

109 fY beq.s FertigDiskS 

HO lU Jsr AdrRech 

111 aV move.l (a0),d2 

112 pW cmp.l #8,d2 

113* Sh beq.s keinUDDS 

114 ru sub.l 508(a0),d2 

115 Zg beq.s DSSLoop 

;UserDir sortieren 

116 61 bra.s keInUDDS 

117 vqO FertigDiskS: 

118 ep5 Jsr ChkSumm 

119 HBO exitchange: 

120 Ew5 move.l ExecBase,a6 

121 31 move.l Listadr,al 

122 nV move.l #7056,d0 

123 Qq Jsr FreeMem(a6) 

124 YI bra taskan 

125 cDO BlockMove: in dO alte Bl 

ocknummer 

Listing 2. 

Der Quelltext von FastLoadCopy 
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126 rl 

; in dl neue Bl 

190 2x 

move.l aO,al 

261 jv5 

j sr AdrRech 


ocknummer * 

191 xf 

move.l I6(a0),d0 

262 dO 

adda.l #24,a0 

127 Jm 

; in d2 Blockar 

192 WEG 

FHLoopl: 


;Blocknummer eintragen 

128 6r 

t * 

193 dp5 

j sr AdrRech 

263 sH 

moveq #71, dl 


194 6z 

cmp.l 4(a0),d6 

264 HvO 

SHLoop: 



195 NF 

beq.s noerrorFH2 

265 Ct5 

cmp.l (a0)+,d6 

129 On 

BlockMove: 

196 QV 

move.b #3»Errorstate 

266 lY 

dbeq dl,SHLoop 

130 tl5 

131 dp 

raovem.l d0-d6/a0-a6,-(a7) 
jsr AdrRech 

197 06 

jsr changeerror 

;In alle Datenbl. 

267 XM 

beq.s gefunden 

;Neue Hashtabelle 

132 ko 

move.l aO,ABADR 

198 TqO 

noerrorFH2: 

268 5y 

move.l SBL0CK,a0 

133 Or 

move.l dO,ABNR 

199 QS5 

move #4, Offset 

269 fD 

move.l 504(a0),d0 

134 rf 

;Adressen fuer Ver- 

200 et 

jsr Listeintrag 

270 KF 

move.l a0,a2 

move.l dl,NBNR 

201 7p 

move.l I6(a0),d0 

271 g7 

bra.s DBLoopl 


;Schiebungsroutinen 

202 Hk 

tst.1 dO 

272 VhO 

gefunden: 

135 VY 

move.l dl,dO 

203 Gp 

bne.s FHLoopl 

273 d65 

move #-4,Offset 

136 iu 

jsr AdrRech 

204 LH 

move.l al,a0 

274 q5 

jsr Listeintrag 

137 FW 

move,l aO,NBADR 

205 mVO 

FHLoop2: 

275 Nt 

tst.l (aO) 

138 JE 

Jsr WhatMove 

206 eC5 

move.l 504(a0),d0 

276 ly 

beq.s Vblock 

139 Nv 

;l.Block(dO) 

207 Mp 

tst.l dO 

^ ;Noch NextData eintrage 

move.l ABNR,dO 

208 7i 

beq.s fertigFH 


n 

140 Aw 

move.l NBNR,ABNR 

209 t5 

j sr AdrRech 

277 GB 

move.l (a0),d0 

I4l RO 

move.l dO,NBNR 

210 d2 

cmp.l 500(a0),d6 

278 Qu 

bra.s weiterDB 

142 cO 

move.l ABADR,dO 

;Adressen und 

211 Pi 

beq.s noerrorFH 

;In alle FileList 

279 cwO 

280 075 

Vblock: 

move.l 24(a2),d0 

143 ee 

move.l NBADR,ABADR 

212 Ir 

move.b # 4,Errorstäte 

281 QTO 

weiterDB: 

144 Ys 

;Nummern austauschen 

213 vl 

j sr changeerror 

282 4G5 

j sr AdrRech 

move.l dO,NBADR 

214 ZWO 

noerrorFH: 

283 k3 

cmp.l 16(a0),d6 

145 Oy 

clr Offset 

215 x75 

move #500, Offset 

284 mo 

beq.s noerrorDB2 

146 KF 

move.l #0,a0 

216 u9 

jsr Listeintrag 


;Vorgangerblock 

147 n2 

jsr Listeintrag 

217 Qz 

bra.s FHLoop2 

285 6E 

move.b # 6,Errorstäte 

148 W4 

move.l ABNR,dO 

218 xZO 

fertigFH: 

286 6w 

j sr changeerror 

149 Hv 

jsr SBitMap 

219 hA5 

movem.l (a7)+,d0-d7/a0-a6 

287 IXO 

noerrorDB2: 

150 8U 

bne.s blockleer 

220 Gw 

rts 

288 0n5 

move #16, Offset 

151 KF 

;Tauschblock leer? 

221 iVO 

File-List versch. 

289 5K 

jsr Listeintrag 

move.l ABADR,aO 



290 sO 

bra.s fertigDB 

152 FA 

move.l (a0),d2 

222 le 

FLMove: 

291 3i0 

erstblock: 

153 Wr 

cmp.b #8,d2 

223 Sb5 

movem.l d0-d7/a0-a6,-(a7) 

292 EQ5 

j sr AdrRech 

154 fA 

beq.s weiterBM 

224 iV 

jsr HKey 

293 cT 

cmp.l 308(a0),d6 

155 WZ 

sub.l 508(a0),d2 


;Neuer Header-Key 

294 aU 

beq.s noerrorDBl 

156 IDO 

weiterBM: 

225 ZN 

move.l 500(a0),d0 

295 GO 

move.b #6, Error state 

157 kc5 

j sr WhatMove 

226 RwO 

FLLoop: 

296 G6 

jsr changeerror 


;2.Block(dl) 

227 BN5 

jsr AdrRech 

297 MfO 

noerrorDBl: 

158 yYO 

blockleer: 

228 OY 

move.l 504(a0),d0 

298 q85 

move #308, Offset 

159 iDa5 

j sr Blockeintrag 

229 iB 

tst.l dO 

;In alle Filelist u. 

160 tY 

jsr SwapBit 

230 JU 

bne.s noerrorFL 

299 FU 

jsr Listeintrag 


;Blocks u. BBits austau 

231 9G 

move.b #5, Errors täte 

300 xYO 

DBLoop2: 

161 sm 

sehen 

232 E4 

jsr changeerror 

301 2L5 

cmp.l I6(a0),d6 

jsr SwapBlock 

233 cDO 

noerrorFL: 

302 cy 

beq.s noerrorDB 

162 h9 

movem.l (a7)+,d0-d6/a0-a6 

234 GH5 

cmp.l d0,d6 

303 z2 

move.b #l,Errorstate 

163 LI 

rts 


;Neue Blocknummer in 

304 OE 

j sr changeerror 

164 OiO 

WhatMove: 

235 DB 

bne.s FLLoop 

305 qFO 

noerrorDB: 

165 nL5 

move.l ABNR,d6 


;Fileheader(Hash) 

306 DY5 

move #16, Offset 

166 Um 

cmp.b #5,d2 

236 Qe 

move #504, Offset 


;Fileheader eintragen 

167 If 

beq.s FHMove 

237 FU 

jsr Listeintrag 

307 Nc 

jsr Listeintrag 

168 16 

cmp.b #8,d2 

238 OT 

movem.l (a7)+,d0-d7/a0-a6 

308 Iq 

move.l 504(a0),d0 

169 Yv 

beq DBMove 

239 ZF 

rts 

309 OT 

tst.l dO 

170 uO 

tst.b d2 

jBlockroutine auswaehle 

240 vCO 

User-Dir versch. 

310 bA 

311 Xj 

beq.s fertigDB 
j sr AdrRech 

171 qW 

n 

241 AA 

UDMove: 

312 Lm 

bra.s DBLoop2 

beq UDMove 

242 lu5 

movem.l d0-d7/a0-a6,-(a7) 

313 ouo 

fertigDB: 

172 Oa 

cmp.b #19,d2 

243 lo 

j sr HKey 

314 Eh5 

movem.l (a7)+,d0-d7/a0-a6 

173 Y7 

beq FLMove 


;Neuer Header-Key 

315 nT 

rts 

174 IW 

cmp.b #l,d2 

244 sg 

move.l 500(a0),d0 

316 6z0 

HKey: 

175 hX 

beq.s weiterWM 

245 xO 

clr.l d5 

317 0v5 

move.l ABADR,a0 

176 Vf 

move.b #8,Errorstate 

246 OB 

jsr SeHashB 

318 6z 

cmp.l 4(a0),d6 

177 LB 

jsr changeerror 


;Neue Hashtab. 

319 kn 

beq.s weiterHK 

178 OvO 

weiterWM: 

247 Ab 

moveq #l,d5 

;Neuen HeaderKey 

179 bH5 

rts 

248 IN 

move.l d6,d0 

320 kt 

move.b #7,Errorstate 

180 t90 

Blockerschiebungsrout 


;Alle Unterdirs 

321 fV 

jsr changeerror 

weiterHK: 

181 pa 

inen 

249 Cx 

j sr SeHashB 

322 r70 

;* benoetigen die Adressen NBNR,A 

250 Cf 

movem.l (a7)+,d0-d7/a0-a6 

323 QS5 

move #4, Offset 

182 mh 

BNR,ABADR * 

251 IR 

rts 

324 et 

jsr Listeintrag 


252 nyO 

Data-Block vers 
oh. 

325 xd 

326 gnO 

rts 

SBitMap: Blocknummer i 

183 mQ 

;**^^***^^^**^ File-Header versch 

253 iP 

DBMove: 

n dO *****1^****** 

184 xra 


254 x65 

movem.l d0-d7/a0-a6,-(a7) 

327 Ni 

SBitMap: 

FHMove: 

255 Ov 

move.l ABADR,a0 

328 Kz5 

movem.l d0,-(a7) 

185 qz5 

movem.l d0-d7/a0-a6,-(a7) 

256 n5 

move.l 4(a0),d0 

329 OY 

move.l BMADR,d5 

186 6t 

j sr HKey 

;Neuer Header-Key 

257 SW 

move.l 8(a0),dl 

;Erster Datenblock? 

330 a2 

331 uHO 

moveq #2, dl 

SBMl: 

187 14 

clr.l d5 

258 gY 

emp.w #l,dl 

332 dC5 

addq.l #4,d5 

188 ym 

move.l 500(a0),d0 

259 np 

beq.s erstblock 

333 qß 

add.w # 32 ,dl 

189 Ez 

jsr SeHashB 

260 GqO 

DBLoopl: 

334 Tv 

emp.w dl,d0 


86 
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407 duO gefundenSHB2: 

408 b45 tst.l d5 

409 mh bne.s obenSHB 

410 5k move #496,offset 

411 31 Jsr Listeintrag 

412 SpO fertigSHB: 

413 Cn5 cmp.l #2,d5 

414 7q bne.s fertigSHB2 

415 Ul Jsr FileSort 

416 GTO fertigSHB2: 

417 e45 movem.l (a7)+,d0-d4/a0-al 

418 S8 rts 

419 hGO UDeintrag: 

420 nG5 tst.l d5 

421 zT beq.s weiterUDE 

422 Lw cmp.l #2,d5 

423 ap beq.s DirSort 

424 ef movem.l d0/a0,-(a7) 

425 NZ jsr AdrRech 

426 oc move.l 500(a0),d0 

427 aZ cmp.l d0,d6 

;Routine fuer Userdir 

428 SI beq.s noerrorUDE 

429 6A move.b #2,Errorstate 

430 QG Jsr changeerror 

431 i20 noerrorUDE: 

432 Sc5 move #500,offset 

433 Pe jsr Listeintrag 

434 ol movem.l (a7)+,d0/a0 

435 qnO weiterUDE: 

436 kQ5 rts 

437 VzO DirSort: 

438 5G5 movem.l d0-d2/a0,-(a7) 

439 bn jsr AdrRech 

440 to move.l (a0),d2 

441 AV cmp.b #8,d2 

442 Bp beq.s weiterDiSo 

443 AD sub.l 508(a0),d2 

444 KjO weiterDiSo: 

445 085 move.l d7,dl 

446 MY jsr BlockMove 

;Alle Subeintraege! 

447 Fl addq.l #l,d7 

448 Gm addq.l #l,d6 

449 WF jsr Newnum 

450 2g cmp.l #5,d2 

451 cP bne.s keinFH 

452 2k move.l ABNR,Bbuff 

453 bDO FLSORTLoop: 

454 S05 move.l ABNR,d0 

455 r3 jsr AdrRech 

456 gE move.l 504(aO),dO 

457 Or tst.l dO 

458 4u beq.s keinFL 

459 Id move.l #19,d2 

460 34 move.l d7,dl 

;Alle FileList nach 

461 nW jsr BlockMove 

jFileHeader eintr. 

462 UO addq.l #l,d7 

463 VI addq.l #l,d6 

464 lU jsr Newnum 

465 vY bra.s FLSORTLoop 

466 NOO keinFL: 

467 1L5 cmp.b #19,d2 

468 oh beq.s mehrdata 

469 Uq move.l 8(a0),d0 

470 2c cmp.l #l,d0 

471 WM bne.s mehrdata 

472 UC move.l I6(a0),d0 

473 Hl move.l d7,dl 

;l-Block Data versch. 

474 MS move.l #8,d2 

475 iz jsr BlockMove 

476 iE addq.l #l,d7 

477 jF addq.l #l,d6 

478 zi jsr Newnum 

479 keO mehrdata: 

480 ZZ5 move.l Bbuff,ABNR 

481 URO keinFH: 

482 gY5 movem.l (a7)+,d0-d2/a0 

483 VB rts 

484 uhO FileSort: 


;Bit in Bitmap testen 

335 rm bpl.s SBMl 

336 37 sub.w d0,dl 

337 K2 exg.l d5,a0 

338 FA move.l (a0),d5 

339 D5 sub.w #32,dl 

340 r5 neg.w dl 

341 wk btst dl,d5 

342 tp movem.l (a7)+,d0 

343 Fv rts 

344 pkO BMADR ds.l 1 

345 66 ;*^******* AdrRech: Blocknummer i 

n dO ***^^*1^****^ 

346 a8 AdrRech: 

347 dI5 movem.l d0,-(a7) 

348 9o cmp.w #880,d0 

349 hf bpl.s groesserAR 

350 tG move.l Chipbuffer,aO 

351 Mn bra.s weiterAR 

352 RIO groesserAR: 

353 f05 move.l Fastbuffer,aO 

354 45 sub.w #880,d0 

;Aus Blocknummer Speie 
her- 

355 VIO weiterAR: 

356 Gu5 mulu #512,d0 

jadresse berechnen 

357 W1 adda.l d0,a0 

358 xP move.l aO,SBLOCK 

359 A6 movem.l (a7)+,d0 

360 WC rts 

361 PRO SBLOCK ds.l 1 

362 XC SeHashB: Bedingung in d5 B 

Ikn. in dO 

363 fe SeHashB: 

364 895 movem.l d0-d4/a0-al,-(a7) 

365 Pb jsr AdrRech 

366 qk adda.l #24,a0 

367 Yx moveq #71,d3 

368 KWO SHBLoop: 

369 Zf5 move.l (aO)+,dO 

370 zS tst.l dO 

371 VF beq.s weiterSHBl 

372 9u jsr UDeintrag 

373 Y9 cmp.l #2,d5 

374 Ir bne.s keinsort 

;Diese Routine durch- 

375 ex move.l ABNR,dO 

;sucht die Hashtabelle 

376 Ta bra.s schonsort 

;und fuegt neue Werte e 
in 

377 oAO keinsort: 

378 fH5 cmp.l d0,d6 

379 gb beq.s gefundenSHBl 

380 BIO schonsort: 

381 725 move.l a0,al 

382 iCO SHBLoop2: » 

383 ht5 jsr AdrRech 

384 Nv move.l 496(a0),d0 

385 Eh tst.l dO 

386 kU beq.s weiterSHB2 

387 8b jsr UDeintrag 

;Such nach HashChain 

388 nO cmp.l #2,d5 

389 dK bne.s keinsort2 

390 Qy move.l ABNR,dO 

391 MU bra.s SHBLoop2 

392 V90 keinsort2: 

393 uW5 cmp.l d0,d6 

394 vq beq.s gefundenSHB2 

395 QY bra.s SHBLoop2 

396 seO weiterSHB2: 

397 S05 move.l al,aO 

398 oeO weiterSHBl: 

399 xl5 dbra d3,SHBLoop 

400 Tw tst.l d5 

401 oz bne.s fertigSHB 

402 qSO obenSHB: 

403 AK5 move.b #8,Errorstate 

404 Oq jsr changeerror 

405 YoO gefundenSHBl: 

406 NN5 suba.l #500,a0 


485 XU5 move Firstsub,d0 

486 cv ext.l dO 

487 8n0 FSLoopa: 

488 tM5 tst.l d6 

489 OP beq.s kleinerFHFS 

490 Qc jsr AdrRech 

491 id move.l (a0),dl 

492 xe cmp.l #8,dl 

493 HN beq.s keinFHFS 

494 z2 sub.l 508(a0),dl 

495 cW cmp.l #5,dl 

;Alle Datenbloecke 

496 jn bne.s keinFHFS 

;des Parentdir 

497 tc move.l 8(a0),dl 

;suchen... 

498 U4 cmp.l #l,dl 

499 NT beq.s keinFHFS 

500 Xu jsr Filesortb 

501 wKO keinFHFS: 

502 8e5 addq.l #l,d0 

503 aO cmp.l #1759,d0 

504 6G bls.s kleinerFHFS 

505 Pr moveq #2,d0 

506 L60 kleinerFHFS: 

507 YN5 dbra d6,FSLoopa 

508 ua rts 

509 jWO Filesortb: 

510 FJ5 movem.l d0-d2,-(a7) 

511 kuO FSBLoop: 

512 8q5 move.l I6(a0),d0 

513 yH beq.s fertigFSB 

514 7F move.l d7,dl 

515 17 move.l #8,d2 

516 eC jsr BlockMove 

;..und sortieren! 

517 Nt addq.l #l,d7 

518 dM jsr Newnum 

519 V3 move.l ABNR,d0 

520 u6 jsr AdrRech 

521 3r bra.s FSBLoop 

522 JeO fertigFSB: 

523 Lq5 movem.l (a7)+,d0-d2 

524 Aq rts 

525 uBO Newnum: 

526 xl5 cmp.l #1759,d7 

527 TV bls.s kleinerNN 

528 zH moveq #2,d7 

;Bereichstest 

529 000 kleinerNN: 

530 Gw5 rts 

531 2Q0 Firstsub ds.w 1 

532 uG Bbuff ds.l 1 

533 F6 ChkSumm: Alle Checksummen 

berechnen 

534 cN ChkSumm: 

535 oF5 moveq #l,d0 

536 gFO eSLoop: 

537 3 k 5 addq.w #l,d0 

538 Yg cmp.w BitmapBlock,d0 

539 md beq.s CSBitMap 

540 qo cmp.w #1760,d0 

541 Kw beq.s Fertiges 

;Berechnen aller Check- 

542 Fp jsr SBitMap 

;summen ausser Bootbloe 
cke 

543 Hg bne.s CSLoop 

544 lU jsr AdrRech 

545 nq clr.l d4 

546 5h moveq #127,d3 

547 mVO CHKS: 

548 Uo5 add.l (a0)+,d4 

549 hl dbra d3,CHKS 

550 Hj sub.l -492(a0),d4 

551 C8 neg.l d4 

552 00 move.l d4,-492(a0) 

553 Nm bra.s CSLoop 

554 u80 Fertiges: 

555 fL5 rts 

556 XIO CSBitMap: 
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557 Vh5 Jsr AdrRech 

558 Fq moveq #126,d3 

559 uA adda.l #4,a0 

560 25 clr.l d4 

561 d50 CHKB: 

562 125 add.l (a0)+,d4 

563 vz dbra d3,CHKB 

564 PL neg.l d4 

565 81 move.l d4,-512(a0) 

566 az bra.s CSLoop 

567 zNO ABNR ds.l 1 

568 Ql NBNR ds.l 1 

569 tc ABADR ds.l 1 

570 KG NBADR ds.l 1 

571 Ph BitmapBlock ds.w 1 

572 01 Offset ds.w 1 

573 QQ Llstadr ds.l 1 

574 Om Llstzaehl ds.w 1 

575 v8 SwapBlock: B.adr. ln a 

0 u. al 

576 Jt SwapBlock; 

577 NL5 movem.l d0-dl/a0-al,-(a7) 

578 D8 move.l ABADR,aO 

579 40 move.l NBADR,al 

580 dF moveq #127,d0 

581 6e0 SBLoop: 

582 B65 move.l (a0),dl 

583 VY move.l (al),(a0)+ 

584 XS move.l dl,(al)+ 

;Bioecke austauschen 

585 LI dbra dO,SBLoop 

586 8V movem.l (a7)+,d0-dl/a0-al 

587 Br rts 

588 110 ;*******ini** SwapBlt; B.nr. ABNR 

u.NBNR »»»»innnnnj 

589 Ic SwapBlt: 

590 JR5 movem.l d0“d6/a0-a6,-(a7) 

591 sO move.l ABNR,d0 

592 DO Jsr SBltMap 

593 71 move.l a0,a6 

594 md move.l dl,d4 

;Belegungsblts vertausc 
hen 


595 10 

move.1 

d5,d6 

596 OJ 

move.l 

NBNR,dO 

597 15 

Jsr 

SBltMap 

598 NL 

cmp.l 

d5,d6 

599 QG 

beq.s 

glelchSB 

600 6J 

btst 

d4,d6 

601 hV 

beq.s 

belegtl 

602 t3 

bset 

dl,d5 

603 VhO 

welterl: 


604 ky5 

beq.s 

belegt2 

605 EC 

bset 

d4,d6 

606 Pd 

bra.s 

welter2 

607 8h0 

belegtl: 


608 VU5 

bclr 

dl,d5 

609 Sg 

bra.s 

welterl 

610 EoO 

belegt2: 


611 qd5 

bclr 

d4,d6 


612 huO welter2: 

613 TD5 move.l d6,(a6) 

614 uc move.l d5,(a0) 

615 ukO endeSB: 

616 1T5 movem.l (a7)+,d0-d6/a0-a6 

617 fL rts 

618 kcO glelchSB: 

619 Pc5 btst d4,d6 

620 eM beq.s belegtlg 

621 CM bset dl,d6 

622 OJO welterlg: 

623 nR5 beq.s belegt2g 

624 XV bset d4,d6 

625 ZJ bra.s welter2g , 

;Worte aus Bitmap 

626 IJO belegtlg: 

627 x35 bclr dl,d6 

;gleich1 

628 PX bra.s welterlg 

629 7q0 belegt2g: 

630 9w5 bclr d4,d6 

631 awO welter2g: 

632 mW5 move.l d6,(a6) 


633 bl bra.s endeSB 

634 JvO Listeintrag: 

635 v25 movem.l d0/a0-al,-(a7) 

636 Bh move offset,d0 

637 3M ext.l dO 

638 31 adda.l d0,a0 

639 h5 move Llstzaehl,dO 

640 6P ext.l dO 

641 rZ move.l Llstadr,al 

;Alle Bioecke ln Liste 

642 TM adda.l d0,al 

643 k4 move.l a0,(al) 

644 fE addq.l #4,d0 

645 XE move dO,Llstzaehl 

646 sp movem.l (a7)+,d0/a0-al 

647 9p rts 

648 170 BlockeIntrag; 

649 rF5 move Llstzaehl,d3 

650 Fn Isr #2,d3 

651 OJ subq #l,d3 

652 ca move.l Llstadr,aO 

653 fl) move.l ABNR,dl 

654 SCO BELoop: 

655 V15 tst.l (aO) 

656 IG beq.s welterBE 

657 yl move.l (a0)+,al 

658 Ge move.l dl,(al) 

659 NZ dbra d3,BELoop 

660 FPO loeschen: 

661 Cj5 clr Llstzaehl 

662 cM move.l Llstadr,aO 

;Alle Blockaenderungen 

663 OQ move #1763,d3 

;aus Liste eintragen 

664 2M0 clrloop: 

665 EW5 clr.l (a0)+ 

666 rj dbra d3,clrloop 

667 T9 rts 

668 IpO welterBE: 

669 Kw5 adda.l #4,a0 

670 Cv move.l NBNR,dl 

671 Er dbra d3,BELoop 

672 7n bra.s loeschen 

673 cgO changeerror: 

674 Js5 movem.l d0-d7/a0-a6,-(a7) 

675 IZ move.l ABNR,d0 

676 Cc lea bnummer,a0 

677 uh moveq #2,d3 

;Blocknummer ausgeben 

678 wE jsr numtxt 

679 dl lea enummer,a0 

;Fehlemummer ausgeben 

680 31 move.b Errorstate,d0 

681 pQ ext.w dO 

682 03 clr.l d3 

683 U Jsr numtxt 

684 K2 move.l ExecBase,a6 

685 Qw Jsr Permlt(a6) 

686 pv move.l #cerrtxt,text 

687 kE move.l #text-cerrtxt,textle 

n ;schreiben! 

688 Js Jsr prlnttxt 

689 Cr move.b Errorstate,d0 

690 6Q cmp.b #7,d0 

691 ah bls.s geht 

692 u5 Jsr ChkSumm 

693 RI Jsr swapbuffer 

694 y9 move.l SPoInter,a7 

;Hard Error (F.Nr. 8) 

695 no bra exltchange 

696 H30 geht: 

697 T95 clr.b Errorstate 

698 Qt movem.l (a7)+,d0-d7/a0-a6 

699 zf rts 

700 bsO Errorstate ds.b 1 

701 zC SPoInter ds.l 1 

702 15 numtxt: Nummer 1 

n dO 

703 wq numtxt: 

704 Rd5 movem.l d0-d3/a0,“(a7) 

705 Nf adda.l d3,a0 

706 2F adda.l #l,a0 

707 690 nummloop: 


708 wf5 clr d2 

709 ta move d0,d2 

710 ze and #15,d2 

711 Qa add #48,d2 

;Nummer ln Register 

712 Hd cmp #'9',d2 

;d0 ab Adresse aO 

713 P9 bis Ziffer 

;mlt Laenge-1 ln d3 

714 hg add #7,d2 

715 SDO Ziffer; 

716 kB5 move.b d2,-(a0) 

717 U4 Isr #4,d0 

718 72 dbra d3,nummloop 

719 aT movem.l (a7)+,d0-d3/a0 

720 KO rts 

721 JgO Fehlerausga 

722 pv memfehler: 

723 rW5 move.l #memtxt,text 

724 fx move.l #quelltxt-memtxt,tex 

tlen ;Fehlermeldung 

725 KT Jsr prlnttxt 

726 d4 Jmp Schluss 

727 xQO trackfehler: 

728 DC5 move.l #losatxt,text 

;Fehlermeldung 

729 u4 move.l #stxt“losatxt,textle 

n 

730 Py Jsr prlnttxt 

731 19 Jmp Schluss 

732 e50 Programme 

nde 

733 mM ende: 

734 JP5 move.l #endtxtl,text 

735 sD move.l #endtxt2-endtxtl,tex 

tlen ;1.Meldung erstellen 

736 Ve Jsr prlnttxt 

737 VC clr.b dO 

738 9B Jsr tastloop 

739 oS tst.b dO 

;L o. R Taste? 

740 HT beq Schluss 

741 wy move.l #endtxt2,text 

742 6s move.l #cerrtxt-endtxt2,tex 

tlen ;R. Taste! 

743 cl Jsr prlnttxt 

744 KeO tastloop2: 

745 B55 btst #10,$dff0l6 

746 lu beq tastloop2 

;R. Taste loslassen 

747 5m clr.b dO 

748 JL Jsr tastloop 

749 OG tst.b dO 

;L. Taste;Neue Disk 

750 5q beq weiter 

751 NW move.l #clstxt,text 

752 11 move.l #memtxt-clstxt,textl 

en ;R. Taste:Multlcopy 

753 mv Jsr prlnttxt 

754 QH Jsr swapbuffer 

755 JJ bra savedlsk 

756 460 tastloop: 

757 8T5 btst #6,$bfe001 

758 gk beq links 

759 PJ btst #10,$dff0l6 

760 Qn bne tastloop 

;Tastenauswertung 

761 UL add.b #l,d0 

762 OuO links: 

763 lh5 rts 

764 wwO Schluss : 

765 Jv5 tst.l Fastbuffer 

766 CI beq nextbuff 

767 AH move.l Fastbuffer,Buffer 

768 8o Jsr nomem 

;Speicher freigeben 

769 kGO nextbuff: 

770 5v5 tst.l Chipbuffer 

771 B5 beq aus 

772 WH move.l Chipbuffer,Buffer 

773 Fm Jsr nomem 

774 3o0 aus: 


88 
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;Speicher freigeben 

840 zP Jsr FreeMein(a6) 

841 Hx rts 

842 FxO Bedingung ds.l 1 

843 Bz Buffer ds.l 1 

844 bi MemLaenge ds.l 1 

845 Dq Blockroutine: losabloc 

846 2m i* Uebergabewerte: 


Kommando ds.w 1 

Textausgabe printtx 

t: *1i^***1i*****1k**1k** 

Textanfang in text 


rts 

weiter: 

Jsr Schluss 
Jmp Start 

taskan: 

move.l ExecBase,a6 
jsr Permit(a6) 
tst.b Errorstate 
bne ende 

;im***Ä***«#***ÄÄ Ganze Diskette 
zurueckspeichem **»1»*^^**^^****** 
savedisk: 

move.l #zieltxt,text 
move.l #maustxt-zieltxt,tex 
tlen ;ZleldisketteI 
J sr printtxt 

Jsr wait 

move.l #stxt,text 
move.1 #Itxt-stxt,textlen 
j "saving''ausgeben 
J sr printtxt 

move # t<i_f orraat, Kommando 

move.l #0,B110Ir 

J sr losablock 

;Block 0-879 speichern 
J sr swapbuffer 

move.l #880,Blk_Nr 
Jsr losablock 

;Block 880-1759 speiche 


Textlaenge in textlen 


905 rC 

906 gR printtxt: 

907 QY5 movem.l d0-d6/a0-a6,-(a7) 

908 we move.l ExecBase,a6 

909 tE lea dosname,al 

910 4t clr.l dO 

;Dos-Lib oeffnen 

911 Ai Jsr 0penLib(a6) 

912 5Q beq falsch2 

913 SI move.l dO,dosbase 

914 tF move.l d0,a6 

;Outputkanal(Fenster) h 
ölen 

915 CY Jsr Output(a6) 

916 23 move.l d0,dl 

917 Cy move.l text,d2 

918 Sm move.l textlen,d3 

jText ausgeben 

919 gG Jsr Write(a6) 

920 rK tst.l dO 

921 Xf bpi dose 

922 lg Jmp Exit(a6) 

923 CfO dose: 

924 Cu5 move.l ExecBase,a6 

925 Oa move.l dosbase,al 

926 eo Jsr CloseLib(a6) 

;Dos-Lib schliessen 

927 dVO falsch2: 

928 3V5 movem.l (a7)+,d0-d6/a0-a6 

929 hN rts 

930 zkO dosname dc.b ’dos.library*,0 

931 rl dosbase ds.l 1 

932 i5 clstxt dc.b 12,10,10,9,9,155 

933 Cc9 dc.b '1;31;42m FastLo 

adCopy by P.S. (C) M&T 
in 1988 » 

934 n9 dc.b 155,'Om',10,10,10 

935 VwO memtxt dc.b 'Zu wenig Speicher 

vorhanden',10 

936 OW quelltxt dc.b 'Bitte Quelldiskett 

e in DF0:',10 

937 JM zieltxt dc.b 10,'Bitte Zieldiske 

tte in DF0:',10 

938 9A maustxt dc.b '... und linke Maus 

taste druecken!',10 

939 yn losatxt dc.b 'Trackdisk.device - 

Probleme',10 

940 ol stxt dc.b '... saving',10,10 

941 wK Itxt dc.b '... loading',10,10 

942 Fa ctxt dc.b '... changing',10,1 


Startblocknummer in Blk_Nr 


diskbuff 


Speicherlaenge in bufflen 


Anweisung in Kommando 


851 yX Rueckgabewerte 


853 Im ;****int*^nnnnt**int******innt*^n^**»* 

854 g6 losablock: 

855 0M5 lea diskio,a6 

856 a4 move.l #27,d0 

857 7M0 clearloop: 

858 Mu5 move.l #0,(a6)+ 

;Struktur loeschen 

859 SW dbra dO,clearloop 

860 As move.l ExecBase,a6 

861 OQ move.l BllLjIr,d0 

;B110Jr mal 512 

862 LQ mulu #512,d0 

863 85 move.l d0,Blk_Nr 

864 Iz sub.l al,al 

865 Dq Jsr FindTask(a6) 

866 Jq lea readreply,al 

,;Eigenen Task 

867 aX move.l d0,l6(al) 

jwieder aufwecken 

868 Gy Jsr AddPort(a6) 

869 ca lea diskio,al 

870 64 move.l #0,d0 

871 36 clr.l dl 

872 xW lea trddevice,a0 

;Trackdiskdevice oeffne 


799 UC Jmp ende 

800 yFO swapbuffer: 

801 AX5 move.l Chipbuffer,al 

802 ud move.l Fastbuffer,aO 

803 y5 move.l #112640,dO 

804 ZtO transbuff: 

805 ZY5 move.l (a0),dl 

;Chip < = > Fast 

806 69 move.l (al),(a0)+ 

807 Ov move.l dl,(al)+ 

808 LO subq.l #l,d0 

809 Je bne.s transbuff 

810 mS rts 

811 WfO Chipbuffer ds.l 1 

812 GZ Fastbuffer ds.l 1 

813 r3 ;#*^t**************** Warten auf 1 

. Maustaste ******************** 

814 ZY wait: 

815 T35 move.l #maustxt,text 

816 Fa move.l #losatxt-maustxt,tex 

tlen 

817 ox Jsr printtxt 

818 WRO waitloop: 

819 9q5 btst #6,$bfe001 

;Textausgabe 

820 yl bne.s waitloop 

;und warten 

821 xd rts 

822 APO ;*»^^^^**»* Speicher: nomera + getrae 

823 qq i* Routine belegt Speicherbereich 


Jsr 0penDev(a6) 
tst.l dO 
bne error 
lea disklo,al 
move.l #readreply,l4(al) 
move Kommando,28(al) 

;Struktur beschreiben 
move.l diskbuff,40(al) 

;und Block laden 
move.l bufflen,36(al) 
move.l Blk_Nr,44(al) 
move.l ExecBase,a6 
Jsr DoIo(a6) 
lea diskio,al 
move.l 32(al),d6 
move #9,28(al) 

;Motor ausschalten 
move.l #0,36(al) 

Jsr DoIo(a6) 
lea readreply,al 
Jsr RemPort(a6) 

;Port entfernen 
lea diskio,al 
Jsr CloseDev(a6) 

;Trddevice schliessen 

error: 

rts 

trddevice dc.b 'trackdisk.device' 


endtxtl 


LMaustas 


824 3w Laenge in MeraLeange,Speichere 

rt in Bed. * 

825 Y7 Rueckgabewerte: 


0;31;42m RMau 
Nochmal ',155, 


946 qoO endtxt2 dc.b 10,9,155 

947 R59 dc.b '0;31;42m LMaustas 

te = Diskkopie ',155,'Om 


Adresse in Buffer 


827 bM 

828 mQ getmem: 

829 fN5 move.l ExecBase,a6 

830 aT move.l MemLaenge,dO 

;Speicher beantragen 

831 LJ move.l Bedingung,dl 

832 GJ Jsr AllocMem(a6) 

833 YC move.l dO,Buffer 

834 9e0 fehler: 

835 Br5 rts 

836 oJO nomem: 

837 nV5 move.l ExecBase,a6 

838 2C move.l MemLaenge,dO 

839 WO move.l Buffer,al 


dc.b 155,'0;31;42m RMau 
staste = Ramkopie ',155; 
'Om',10 

cerrtxt dc.b 'Fehler in Block $' 

bnummer dc.b ' . Disk u.U. feh 

lerhaft 11 Fehlemummer ' 
enummer dc.b ' ',10 

text ds.l 1 

textlen ds.1 1 


diskio ds.l 20 
readreply ds.l 8 
bufflen ds.l 1 
diskbuff ds.l 1 
Blk_Nr ds.l 1 
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Kopieren 

mit vielen Extras 

Jeder Amiga-Fan benötigt ein Programm, 
das Dateien kopiert. »Supercopy« bietet neben dieser 
Grundfunidion Features, die bisher nur von 
kommerzieli vertriebenen Programmen, beispieis- 
weise CLi-Mate, bekannt waren. 

Überzeugen Sie sich seibst von der Leistungs¬ 
fähigkeit dieses Tools. 


E in Programm zum kom¬ 
fortablen Kopieren ein¬ 
zelner Dateien gehört in 
jede Diskettensammlung. 
Aber ein leistungsfähiges Tool 
muß heute schon mehr bieten, 
als nur die Funktion »Kopie¬ 
ren«. Löschen und Umbenen¬ 
nen von Files, Anzeigen der In¬ 
halte von Text- und Bilddateien 
gehören dazu. Auf dem kom¬ 
merziellen Sektor sind dies 
beispielsweise »Zing!«, »Disk¬ 
master« und »CLI-Mate«. 

Diese Programme bieten 
viele leistungsfähige Zusatz¬ 
funktionen. Ausführliche Tests 
dieser Tools fanden Sie im 
Amiga-Magazin, dort sind die 
Vor- und Nachteile beschrie¬ 
ben. Alle kommerziellen Tools 
haben jedoch einen gravieren¬ 
den Nachteil: sie kosten eine 
Menge Geld. 

»Supercopy« ist eine hervor¬ 
ragende Alternative zu den ge¬ 
nannten Programmen. Neben 
der Grundfunktion Kopieren 
sind folgende Features enthal¬ 
ten: 

— Kopieren mit gleichzeiti¬ 
gem Löschen der Quell¬ 
datei (move), 

—- Kopieren ganzer Directo- 
rles, 

— Umbenennen von Dateien 
(rename), 

Komfort und 
Leistungsvietfalt 

— Löschen von Files, 

— Erstellen von Directorles 
(makedir), 

— Formatieren von Disketten 
(mit oder ohne Verify), 

— Anzeigen von ASCII-Files 
(type), 

— Anzeigen von Blnär-Datei- 
en (hex-type), 

— Anzeigen der zu kopieren¬ 
den Blocks, 

— Anzeige des freien Spei¬ 
cherplatzes auf einer Disk 
(Floppy-, Hard- und RAM- 
Disk), 


—- automatische Erkennung 
der angeschlossenen Ge¬ 
räte, 

— Eingabe von CLI-Befehlen 
ohne Öffnen eines neuen 
Fensters, 

— Anzeige von IFF-Files, 
wenn ein entsprechender 
Befehl (show) auf der Dis¬ 
kette ist, 

— Disk-backup, wenn sich ein 
Kopierprogramm (disk- 
copy) im c-Dlrectory befin¬ 
det. 

Viele Funktionen 
und leichte 
Bedienung 

Trotz der vielen eingebauten 
Funktionen Ist Supercopy sehr 
leicht zu bedienen. Wenn Sie 
das Programm zum ersten Mal 
starten, sollten Sie allerdings 
nur mit Kopien Ihrer Disketten 
arbeiten, um eine mögliche 
Beschädigung, zum Beispiel 
durch den Befehl »FORMAT«, 
zu vermeiden. 

Das Programm Ist In der 
Sprache C geschrieben. Ha¬ 
ben Sie die Listings 1 bis 8 mit 
dem Checksummer (Seite 159) 
eingegeben, sind die Program¬ 
me mit dem Aztec-C V3.6 zu 
compilieren und anschließend 
zu linken. Die nötigen Anwei¬ 
sungen lauten: 
Compiler-Anweisungen: 

Als erstes ist »includes.c« 
(LIsting 1) zu compilieren: 

cc supercopy. pre 
includes.c 

Danach übersetzen Sie die 
Listings 2 bis 8: 

scO.c, scl.c, sc2.c, 
sc4.c, sc5.c und sc6.c: 
cc +B -s -fl supercopy. pre 
-o scx.o scx.c 
(X = Name der Datei) 
sc3.c: 

cc -s +I supercopy. pre 
-o sc3.o sc3.c 


Linken: 

ln -fg -fCd scO.o scl.o 
scl.o sc3.o sc4.o sc5.o 
sc6.o -o supercopy -Ic 

Das klingt sehr viel kompli¬ 
zierter als es wirklich ist. Auf 
der Programmservice-Diskette 
finden Sie das Programm na¬ 
türlich in lauffähiger Form vor. 
Hier entfallen lästige Vorarbei¬ 
ten. 

Haben Sie alles richtig ge¬ 
macht, liegt das Programm als 
»supercopy« in lauffähiger 
Form vor. Starten Sie das Pro¬ 
gramm vom CLI aus mit dem 
Aufruf 

supercopy <RETURN> 

Das Tool wird nun geladen, 
anschließend erscheint der Ar¬ 
beitsbildschirm (Bild 1). Jetzt 
können Sie die gewünschten 
Manipulationen nach Herzens¬ 
lust vornehmen. 

Die Gliederung 
des Arbeits¬ 
bildschirms 

Der Bildschirm zeigt an¬ 
fangs zwei große leere Fenster 
links und rechts. Hier erschei¬ 
nen nach Ihrer Wahl die Inhalte 
der Speichermedien, zum Bei¬ 
spiel der Diskette In Laufwerk 
dfO: 

Die angeschlossenen Gerä¬ 
te sehen Sie Im Fenster in der 
Mitte des Bildschirms. Sollten 
mehr als vier Geräte vorhan¬ 
den sein (z.B. drei Floppy- 
laufwerke, das RAM und eine 
Harddisk), verschieben Sie mit 
dem vertikalen Balken rechts 
neben der Anzeige den Fen¬ 
sterausschnitt. 

Klicken Sie eine der Be¬ 
zeichnungen mit der linken 
Maustaste an, erscheinen im 
aktivierten Fenster (links oder 
rechts) die Dateien. »Aktiv« ist 
immer die Seite (SOURCE 
oder DESTINATION), deren 


nach unten zeigende Pfeile 
sichtbar sind. 

Es werden immer die ersten 
dreizehn Einträge angezeigt. 
Sollten mehr vorhanden sein, 
sehen Sie diese nach Ver¬ 
schieben des Balkens rechts 
neben dem Ausgabefenster 
(bei gedrückter linker Mausta¬ 
ste nach unten ziehen). 

Angezeigt wird anfangs das 
Haupt-Directory (ROOT). In ein 
Unterverzeichnis wechseln 
Sie, indem Sie das entspre¬ 
chende Verzeichnis mit der 
rechten Maustaste anklicken. 

Als Zusatzinformation sehen 
Sie Im Kasten rechts unter der 
Dateianzeige den freien Spei¬ 
cherplatz auf dem Datenträger. 

Die Wurzeln im 
Haupt-Directory 

Der Inhalt eines zweiten 
Speichermediums, beispiels¬ 
weise des RAM, läßt sich auf 
die gleiche Weise im zweiten 
Ausgabefenster darstellen. 
Klicken Sie dazu mit der linken 
Maustaste »DESTINATION« an 
und anschließend das ge¬ 
wünschte Speichermedium. 
Sie können auch hier In ein 
beliebiges Unterverzeichnis 
wechseln. Es Ist auch möglich, 
in beiden Fenstern verschiede¬ 
ne Verzeichnisse der gleichen 
Diskette darzustellen. 

Meldungen des 
Programms 

Links neben dem waage¬ 
rechten Balken unten sehen 
Sie die Bezeichnung »Messa¬ 
ge«. Hier erscheinen während 
der Arbeit mit Supercopy häu¬ 
fig Meldungen des Pro¬ 
gramms. 

Die Schalter in der Mitte des 
Bildschirms besitzen von oben 
nach unten folgende Bedeu¬ 
tung: 

QUIT: beendet die Arbeit mit 
Supercopy (Rücksprung ins 
CLI). 

PARENT: zeigt den Inhalt 
des in dem waagerechten Bal¬ 
ken oben dargestellten Ver¬ 
zeichnisses an. 

ROOT: Wechselt immer in 
das Hauptverzeichnis. 

ALL: Mit diesem Schalter 
kennzeichnen Sie alle Dateien 
des aktiven Verzeichnisses. 
Diese Funktion nimmt Ihnen 
die Arbeit ab, alle Files mit der 
Unken Maustaste der Reihe 
nach anzuklicken. Gekenn¬ 
zeichnete Files erkennen Sie 
an der reversen Darstellung. 
Um die Wahl einzelner Files 
rückgängig zu machen, 
klicken Sie diese mit der linken 
Maustaste erneut an. 
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Bild 1. Der Arbeitsbildschirm von »Supercopy« läßt die Funktionsvielfalt des Programms bereits erahnen 


CLEAR: hebt die Auswahl 
und damit die Reversdarstel¬ 
lung aller Dateien im aktiven 
Verzeichnis auf. 

Nachdem wir erfahren ha¬ 
ben, welche Möglichkeiten zur 
Auswahl der Files bestehen, 
jetzt zu den zahlreichen Funk¬ 
tionen von Supercopy. Im un¬ 
teren Bildschirmteil erkennen 
Sie dreizehn Gadgets. Diese 
tragen beispielsweise die Be¬ 
zeichnungen »COMMAND« 
und »COPY«. Folgende Fähig¬ 
keiten verbergen sich hinter 
diesen Schaltern: 

COMMAND: Nach An- 

kllcken dieses Schalters mit 
der linken Maustaste erscheint 
im Zentrum des Bildschirms 
ein neues Fenster. Hier sind 
beliebige CLI-Kommandos 
einzugeben. Tippen Sie das 
Kommando (z. B. LIST) ein und 
bestätigen mit < RETURN >. 
Statt dessen Ist auch ein be¬ 
reits beim Öffnen des Fensters 
angezeigter Befehl mit »OK« 
(linke Maustaste) zu aktivieren. 
Mit dem Schalter »CANCEL« 


brechen Sie die Kommando- 
Eingabe ab. 

COPY: Kopieren aller im 
»Source«-Verzeichnis markier¬ 
ten Dateien in das aktive Ver¬ 
zeichnis Im Feld »Destination«. 

Spaß 

durch Vielfalt 

Haben Sie Unterverzeichnisse 
gewählt (diese erscheinen in 
einer anderen Farbe), werden 
alle darin enthaltenen Dateien 
kopiert. 

RENAME: Nach Anklicken 
dieses Schalters erscheint die 
Aufforderung, eine Datei zu 
markieren (»please select a Fi¬ 
le.«). Klicken Sie mit der linken 
Maustaste eine beliebige Datei 
an, erscheint ein neues Fen¬ 
ster in der Bildschirmmitte. Der 
Name des gewählten Files wird 
angezeigt und ist beliebig zu 
ändern. Mit < RETURN > 
oder dem Schalter »OK« bestä¬ 
tigen Sie die Namensände¬ 
rung, mit »CANCEL« brechen 
Sie ohne Änderung ab. 


MOVE: wie »COPY«. Zusätz¬ 
lich wird hier nach dem Kopie¬ 
ren die Quelldatei gelöscht. 

TYPE: zeigt den Inhalt einer 
Textdatei an. Nach dem An- 
kllcken ist eine Datei zu wäh¬ 
len. Der Inhalt dieser Textdatei 
wird auf einem neuen Screen 
seltenweise ausgegeben. Wei¬ 
terblättern erfolgt mit 
< SPACE >. Die Textausgabe 
Ist durch Anklicken des 
Schlleß-Gadgets in der linken 
oberen Ecke abzubrechen, 
durch erneutes Anklicken des 
Gadgets schließen Sie den 
Screen. 

Das Programm erkennt, 
wenn die gewählte Datei keine 
Textdatei ist. Die Funktion wird 
daraufhin abgebrochen mit der 
Meldung »not correct. Use 
HTYPEI«. 

BYTES: zeigt die Anzahl der 
Bytes aller gewählten, also re- 
vers dargestellten Dateien. Sie 
können so schnell feststellen, 
ob alle Files überhaupt auf ei¬ 
nen Datenträger passen. Ver¬ 
gleichen Sie einfach die Byte- 


Zahl mit der Anzeige im Feld 
»FREE SPACE«. 

FORMAT: Formatieren einer 
neuen Diskette. Es erscheint 
ein neues Fenster, in dem Sie 
die Bezeichnung des Laufwer¬ 
kes (dfO:, df1:, df2:) und den 
Diskettennamen angeben. 
Wählen Sie zuerst das Lauf¬ 
werk durch Anklicken der ge¬ 
wünschten Bezeichnung mit 
der linken Maustaste. Bewe¬ 
gen Sie den Mauszeiger an¬ 
schließend in das Feld unter 
der Bezeichnung »DISKNA¬ 
ME« und klicken es an. Geben 
Sie nun den Namen der zu for¬ 
matierenden Diskette über die 
Tastatur ein und drücken 
< RETURN >. Anschließend 
startet der Formatiervorgang, 
die Spuren werden angezeigt. 

Wichtig: Supercopy arbeite¬ 
te im Test beim »Format« fehler¬ 
haft, wenn die Diskettenstation 
df2: formatiert werden sollte, 
df1: aber nicht vorhanden war. 
In diesem Fall steht nur Lauf¬ 
werk dfO: zum Formatieren zur 
Verfügung. 
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DELETE: löscht alle selek¬ 
tierten (revers dargestellten) 
Dateien im aktiven Verzeich¬ 
nis. 

HTYPE: zeigt den Inhalt ei¬ 
ner Binär-Datei. Blättern und 
Abbrechen wie bei »TYPE«. 

SWAP: tauscht den Inhalt 
der Fenster »Source« und »De¬ 
stination«. 

MAKEDIR: legt im aktiven 
Directory ein neues Unterver¬ 
zeichnis an. Geben Sie den 
Namen über die Tastatur ein. 

Nützliche 

Optionen 

Supercopy zeigt zwei Schal¬ 
ter in der linken unteren Ecke 
an. Die Funktionen »DISKCO- 


PY« und »SHOWPIC« sind 
nicht im Programm selbst 
enthalten, sondern erfordern 
Zusätze. Dies wurde bewußt 
auf diesem Wege gelöst, um 
das Listing in einer vertretba¬ 
ren Länge zu halten. 

DISKCOPY: erfordert im Un¬ 
terverzeichnis »DISKCOPY« 
ein Kopierprogramm mit dem 
gleichen Namen. Auf der 
Programmservice-Diskette be¬ 
findet sich allerdings ein Ko¬ 
pierprogramm mit diesem Na¬ 
men. 

SHOWPIC: dient der Anzei¬ 
ge von IFF-Grafiken. Im c- 
Direktory muß sich zu diesem 
Zweck ein Programm namens 
»SHOW« befinden. 

Wie schon oben erwähnt 
sind beide Befehle nicht im 
Programm enthalten, die Hilfs¬ 


routinen sind also vom Anwen¬ 
der eventuell hinzuzufügen. 

Zugaben 

Mit den Funktionstasten 
sind noch einige zusätzliche 
Programmpunkte aufzurufen: 
<F1> bis <F3>: Verschie¬ 
dene Farben sind für den Bild¬ 
schirm zu wählen. 

<F4>: Rückkehr zu den nor¬ 
malen Workbench-Farben. 
<F5>: Der Arbeitsbildschirm 
wird um zirka zehn Prozent ver¬ 
kleinert. 

< F6 >: Rückkehr zur Original¬ 
größe. 

<F7>: Erzeugt ein scrIpt-Flle 
mit der Bezeichnung 
»script.asc« Im aktuellen Ver¬ 
zeichnis. In dieses File werden 


alle Directorles und Files ein¬ 
getragen, die selektiert wur¬ 
den. Bei jedem erneuten 
Druck auf <F7> werden die 
gekennzeichneten Files an die 
bereits bestehende List ange¬ 
hängt. Diese Funktion ist vor 
allem sinnvoll, wenn Sie eine 
Übersicht über Ihre Program¬ 
me und alle Dateien behalten 
wollen. Mit einem Disksorter 
können dann diese Files aus 
der Liste in »script.asc« be¬ 
quem weiterverarbeitet wer¬ 
den. 

Nun sind wir am Ende der 
Beschreibung aller Befehle 
des Supercopy angelangt. Wir 
wünschen Ihnen viel Erfolg 
beim Austesten der vielen 
praktischen Funktionen dieses 
tollen Tools. 

(R. Eichenberger/D. Körtke/rs) 


Programmname: 

Inciudes.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Compiler: 

Aztec V3.6a 

Bemerkungen: 

Bitte beachten Sie die Compiler- 
und Linker-Anweisungen Im Text 

Programmname: includes.c 


1 PeO 

2 J7 

3 60 

4 BG 

5 3q 

6 zx 

7 GR 


#include 
#include 
#include 
#include 
#include 
#include 
#include 


< intuition/intuition.h> 

< intuition/intuitionbase .h> 
<exec/types.h> 

< exec/meraory.h > 

<libraries/dos.h > 

<libraries/dosextens.h > 
<stdio.h> 


(C) 1988 M&T 


Listing 1. »inciudes.c« ist ais erstes Programm 
zu compiiieren. Bitte geben Sie das Listing mit dem 
Checksummer (Seite 159) ein. 


1 1 

Programmname: 

scO.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Bemerkung: 

1 - 

siehe Listing 1 


Programmname: scO.c 


1 NmO /int**»*^^»^^^^*^nt*********»*******^nt#»#*»)ntÄinnnnnttnnt**#***tnnt 

ÄtHUt **»*»»»»* 

2 Sc3 Supercopy vl.O (w) in 1988 by Eichenberger Software Prod 

uction 

3 VqO Last UpDate: 

4 SD Wed Oct 5 14:33:35 1988 

6 qF /^^== ==== = = = = ==s:sssss = ===== = 

7 tU4 HEADERS 

8 lAl ======s====s=============s#/ 

9 VyO #include<functions.h> 


10 ds #include <:sc_struct.h > 

11 sD # include <drawbox.h> 

12 a3 char dummy[l]; 

13 BD struct Source src; 

14 9m struct Destination dst; 

15 kl struct Volumes vlm; 

16 JC struct IntuitionBase »IntuitionBase; 

17 3g struct GfxBase »GfxBase; 

18 E7 struct Window *Main_Window; 

19 iv struct Window *Rename_Window; 

20 Np struct Window *Fonnat_Window; 

21 10 struct RastPort ^^mainRP; 

22 HN struct Gadget ^tsgad[13]; /* SourceBlock Gadgets */ 

23 DD struct Gadget *dgad[13]; /* DestinationBlock Gadgets */ 

24 iZ struct Gadget i^vgad[8]; /* VolumesBlock Gadgets */ 

25 Ds # include<vd0:supercopy.h> 

26 WL mainOI 

27 Hn2 OpenLibrariesO; 

28 6u InitWindowO; 

29 zA3 MemoryAllocO; 

30 gO SaveDefaultColorsO; 

31 Wz Record_Volumes(); 

32 kv2 MAIN_WaitMsg(); 

33 HgO /»========================= 

34 MB4 Oeffnen der Libraries 

35 Jbl ======ssss================*/ 

36 U20 OpenLibrariesO! 

37 7P2 if(I(IntuitionBase = (struct IntuitionBase *)0penLibrary( 

'intuition.library",33L))) ( 

38 td4 puts("can't open intuition.library")j 

39 hB2 if(l (GfxBase = (struct GfxBase ^^)0penLibrary( "graph 

ics.library",33L)))[ 

40 eu4 puts("can't open graphics.library"); 

41 PoO /»========================= 

42 uv2 Schliessen der Libraries 

43 rjl ================s=ss===s==*/ 

44 tyO CloseLibrariesOI 

45 9f2 CloseLibrary(GfxBase); 

46 la CloseLibrary(IntuitionBase); 

47 VuO /»========================= 

48 5v3 Intit. des Hauptwindows 

49 xpl ==========================»/ 

50 aQO InitWindowO[ 

51 bA2 InitBlockGadgetsO; 

52 RP if(I(Main_Window = OpenWindow(&MAIN_window)))[ 

53 6W4 puts(''can't open Mainwindow"); 

54 Hd2 mainRP=Main_Window->RPort; 

55 il DrawBorder(mainRP,&MAIN_ßorderListl,0L,0L); 

56 W5 Drawimage (mainRP,8tMAIN_IraageListl ,0L,0L); 

57 Uc Drawimage (mainRP,8tMAIN_Image36 , 77L,186L); 

58 dB Drawimage (mainRP,&MAIN_Iraage36 ,44lL,186L); 

Listing 2. »scO.c« bitte mit dem Checksummer eingeben 
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59 Va3 SetAPen(mainRP,lL)j 

60 ip drawbox (Mairx_Window->RPort,im,183L,251L,194L); 

61 fk drawbox (Main_Window->RPort,178L,182L,250L,193L); 

62 ag SetAPen(mainRP,2L); 

63 xH drawbox (MaiiuWindow->RPort,179L,183L,249L,193L); 

64 af SetAPen(mainRP,lL); 

65 hM drawbox (MairL.Window->RPort,54lL,183L,6l5L,194L); 

66 gK drawbox (MairuWindow->RPort,542L,182L,6l5L,193L); 

67 fl SetAPen(mainRP,2L); 

68 kP drawbox (Main_Window->RPort,543L,183L,6l4L,193L); 

69 ID AddGList (Main_Window,&MAIN_clear,5L,NULL); 

70 JZ RefreshGList(&MAIN_clear,MaiiuWindow,NULL,5L); 

71 "tlO /^ = = = = = = ss = = = = = = s: = = = = = = s = s = 

72 uR3 Init. der BlockGadgets 

73 LDl = = = = s: = s = = = = = = = = = = = = = = s» = = s#/ 

74 8J0 InitBlockGadgets(){ 

75 1J2 reglster UBYTE i; 

76 KJ for(i=0;i<=12;l++)[ 

77 Yf4 sgad[i]=AllocMera((long)sizeof(struct Gadget),MEMF_CLEAR 

] MEMF_CHIP); 

78 Rh CopyGadgets(&MAIN_firstSBlock,sgad[i]); 

79 Gl sgad[i]->TopEdge = MAIN_firstSBlock.TopEdge+i*10; 

80 UR sgad[i]-> Gadget ID = i+3; 

81 Po2 for(i=0;i<=12;i-H-)( 

82 914 dgad[i]=AllocMem((long)slzeof(struct Gadget),MEMF_CLEAR 

] MEMF_CHIP); 

83 pb CopyGadgets(8cMAIN_firstDBlock,dgad[i])j 

84 Pd dgad[i]->TopEdge = MAIN_firstDBlock.TopEdge+i*10; 

85 WS dgad[i]->GadgetID = i+48; 

86 Js2 for( 1=0;i< =3;!++)( 

87 oy4 vgad[i]=AllocMem((long)sizeof(struct Gadget),MEMF_CLEAR 

] MEMF_CHIP); 


Programmname: sc1 .c 

_ Computer: A500, A1000, A2000 mit Kickstart 1.2 

_ Sprache: C _ 

Bemerkung: siehe Listing 1 

Programnrname: scl.c 


1 NraO 

2 Sc3 Supercopy vl.O (w) in 1988 by Eichenberger Software Prod 

uction 

3 CYK Funktionen fuer die Directoryverwaltung 

4 WrO Last UpDate: 

5 zt Fri Apr 29 20:48:29 1988 

7 rG /^^=====s==s==============s= 


8 uV4 HEADERS 

9 JBl =ss=s=====s==============s^/ 


10 rSO #include<exec/types.h> 

11 XO # include<functlons.h> 

12 fu #include <:sc_struct.h > 

13 xM /»=*===================== 


14 3x4 DEFINES 

15 PHI ===rr==r=s======r=========*/ 


16 JKO #define UP 100 

17 bL #define DOWN 101 

18 NO #define SOURCE OL 

19 z9 #define DESTINATION IL 

20 ij #define strlen JBUILTIN_strlen 

21 Go #define strcpy _BUILTIN_strcpy 

22 F8 #define strcmp _BUILTIN_strcmp 

23 TW /»=============s=s==ass=ssx 


24 eG4 GLOBALE VARIABLEN 

25 ZRl === = === = X = = SXS = = SS = = SSS = =='K/ 


26 OfO extern LONG Wait_on_Message(); 

27 7b extern struct Source src; 

28 Fv extern struct Destination dst; 

29 M8 extern struct Volumes vlm; 

30 LW extern struct GfxBase »GfxBase; 

31 xp extern struct RastPort «raainRP; 

32 a9 extern struct Window *Main_Window; 

33 OJ extern struct Stringinfo MAIN_MAIN_s_pathSInfo; 


88 wl CopyGadgets(&MAIN_firstVBlock,vgad[i]); 

89 oA vgad[i]->TopEdge = MAIN_firstVBlock.TopEdge+i«10; 

90 4G vgad[i]-> Gadget ID = i+19; 

91 Vt3 for(i=0;i<=ll;i-H-)( 

92 4l6 sgad[i]->NextGadget = sgad[i+l]; 

93 dN dgad[i]->NextGadget = dgad[i+l]; 

94 oK if(i <= 6) vgad[i]->NextGadget = vgad[l+l]; 

95 uM2 sgad[12]->NextGadget = dgad[0]; 

96 BE dgad[12]->NextGadget = vgad[0]; 

97 gU vgad[7 ]->NextGadget = NULL; 

98 pC MAIN_htype.NextGadget= sgad[0]; 

99 qwO MAIN_cleanup()( 

100 2G3 register ULONG i; 

101 J82 for(i=0;i<=12;i++){ 

102 5v6 FreeMem(sgad[i],(long)sizeof(struct Gadget)); 

103 tu FreeMem(dgad[i],(long)sizeof(struct Gadget)); 

104 6X if(i <= 3) FreeMem(vgad[i],(long)slzeof(struct Gadge 

t)); 

105 L03 MAIN_Jitype.NextGadget=NULL; ' 

106 kX MAIN_MAIN_(L_pathSInfo.Buffer = (UBYTE »)&duinmy; 

107 FH MAIN_MAIN_s_pathSInfo.Buffer = (UBYTE »)&duinmy; 

108 Q52 if(Main_Window) CloseWindow(MairL_Window); 

109 qt CloseLibrariesO; 

110 aSO CopyGadgets(source,destination) 

111 dl3 BYTE <^source,*^destination; 

112 ES register ULONG i; 

113 g7 for(i=0;i<slzeof(struct Gadget);!++)[ 

114 Ye6 ^fdestination-H-=»source-H-; 

(C) 1988 M&T 


Listing 2. (SchiuB) 


y, Xb extern struct Strlnglnfo MAIN_MAIN_d_pathSInfo; 

35 ng extern struct Gadget MAIN_source,MAIN_destination,MAIN_s_pa 

th,MAIN_d_path, 

36 mlJ *sgad[13],»dgad[13],»vgad[13]; 

tnnnnnnnnnnnnnnnnnt 

38 8QN vergleicht 2 Strings (fuer qsort) 

40 nk cmp(a,b) 

41 JV3 char ^f»a,«*b; 

42 eB register int i; 

43 4u char strl[180],str2[180],^^lcase(); 

44 KQ lease(strl,^»a); 

45 VY lease(str2,*b); 

46 iW retum(strcmp(strl,str2)); 

47 AwO char ^flcase(to, frora) 

48 153 char ^^to; 

49 Ry char <^from; 

50 Se4 char *temp = to; 

51 6P while (itfrom) 

52 NI8 if (»from < »A» ]] »from > «Z') 

53 XeC *to++ = »from-H-; 

54 hU8 eise 

55 raqC ^^to-H- = (<^from++ + • '); 

56 FU4 ^^to = 'NO'; 

57 Dq retum(temp); 

59 iU9 Liest das Directory in den Source- oder Destinatio 

n Buffer ein 

60 hRO Sat Apr 30 21:00:46 1988 

62 NA Read_Directory(path,flag) 

63 PU3 char path[]; 

64 fT2 ULONG flag; 

65 28 register int i=0; 

66 9r struct FileLock ^taltlock; 

67 ZK struct FileLock itneulock; /* Zeiger auf Lock-Structure »/ 

68 Xu LONG success; 

69 2T neulock = Lock(path,ACCESS_READ); /^^ ermittelt LockStru 

cture */ 

Listing 3. »scl.c« bitte mit dem Checksummer eingeben 
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70 w6 if (neulock != 0) 

71 S76 altlock = CurrentDir(neulock); 

72 UD verfolgepfad(neulock,flag,altlock); /* ver 

folge Pfad */ 

73 Em altlock = CurrentDir(altlock); 

74 lo2 eise 

75 YP5 WriteMessage("'can't lock selected dir*'); 

76 Hs6 retum(-l); 

77 4R3 Fuli^Update(flag); 

78 660 verfolgepfad(lock,flag,altlock) 

79 81 struct FileLock ^^lock; 

80 vj ULONG flag; 

81 06 struct FileLock »altlock; 

82 3F3 LONG Wait_on_Message(); 

83 gC2 register WORD 1; 

84 pK3 struct FilelnfoBlock »m; 

85 91 struct FileLock »newlock,»oldlock,»ignoredlock; 

86 Mi LONG gadid; 

87 Dm WORD success; 

88 w7 if(llock) retum(O); 

89 Td m = (struct FilelnfoBlock ») 

90 8Q9 AllocMem((long)sizeof(struct FilelnfoBlock),MEMF_C 

LEAR] MEMF_PUBLIC); 

91 He3 success = Examine(lock,m); 

92 Wa2 while (success 1= 0) 

93 cg6 success = ExNext(lock,m); /» examine the next ent 

ry »/ 

94 y8 if(success)( 

95 dn8 switch(flag)( 

96 zZ case SOURCE: 

97 KqK src.list.entrys-H-; 

98 qJ strcpy(src.list;narae[src.list.entrys-l] 


142 UK4 dst.list.name[i] = (char »)AllocMem(27L,MEMF_CLEAR); 

143 sF2 dst.dpath = (char »)AllocMem(181L,MEMF_CLEAR); 

144 SH3 MAIN_MAIN_d_pathSInfo.Buffer = (UBYTE »)dst.dpath; 

145 D92 for(i=0;i<30;!++)[ 

146 0p4 vlm.n[l] = (char »)AllocMem(7L,MEMF_CLEAR); 

147 j80 /»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»Ä»innnnnn(*innnnnnt 

innnnnnnntÄijinnnnne* 

148 K6I Vorheriges Directory im Pfad aktuell mach 


149 WIO Sun Apr 24 18:16:16 1988 

150 rG »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»innnnnnnnnnnnnnnnnnnnnt 

151 zQ Parent_Dir(pfad,flag) 

152 XK2 char pfad[]; 

153 6u ULONG flag; 

154 bd ULONG count; 

155 Gi UBYTE depth; 

156 IH count=strlen(pfad)-l; 

157 dn switch(flag){ 

158 gH4 case SOURCE : depth = src.depth;break; 

159 dN case DESTINATION: depth = dst.depth;break; 

160 fJ default: depth * flag; 

161 rL3 if (depth == 0) retum(“l); 

162 fa2 if (depth >1)( 

163 Tm4 while (pfad[count] 1= '/')( 

164 Tw7 pfad[count]=0; 

165 LI count—; 

166 Vy4 pfad[count]=0; 

167 WJ2 eise 

168 U54 while ((pfad[count] 1= ':') ]] (count==0)){ 

169 Yl6 pfad[count]=0; 

170 Qq count—; 

171 z32 depth—; 

172 s2 switch(flag){ 

173 Jr4 case SOURCE : src.depth=depth;break; 

174 zb case DESTINATION: dst.depth=depth;break; 

175 IM default: break; 

176 CbO /»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»«»intinn(inm»^nnnnnnnnnt« 

177 XOG eingegebener Pfad im StringGadget aktuell m 

achen 

178 9AV gibt depth zurueck 

179 JUO Sun Apr 24 19:01:15 1988 

180 Lk »»»»»»»»»»»»»»»»»»»»»»»»»Ä»»innnt»**innnnnnnnnn(»int**^nnnnnnn( 

181 mf UBYTE NewPath(pfad) 

182 lo2 char pfad[]; 

183 vu register WORD count; 

184 03 register UBYTE depth=0; 

185 K6 count = strlen(pfad); 

186 hS while(count > 0)[ 

187 c24 while((pfad[—count] 1= '/') && (count >. 0)) 

188 Hg (;] 

189 77 depth-H-; 

190 186 if(pfad[strlen(pfad)-l] == ':')[ 

191 pl9 depth = 0; 

192 qF2 retum(depth); 

193 TsO /»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»««»»innnnnjinnnnf» 

194 4AI ein neues Directory an einen Pfad anhaeng 


99 MxR m->fib_FileName); 

100 KAK src.list.length[src.list.entrys-l] = m- 

> fib_Size; 

tOl kz if(m->fib_DirEntryType > 0)( 

102 dnM src.list.dir[src.list.entrys-l] = 1; 

103 UHK eise 

104 ZnM src.list.dir[src.list.entrys-l] = 0; 

105 clK break; 

106 N38 case DESTINATION: 

107 9iK dst.list.entrys-H-; 

108 Tf strcpy(dst.list.name[dst.list.entrys-l] 

+i# 

109 W7R m->fib_FileName); 

110 mK dst.list.length[dst.list.entrys-l] = m- 

>fib_Size; 

111 u9 if(m-> fib_DirEntryType > 0)( 

112 t4M dst.list.dir[dst.list.entrys-l] = 1; 

113 eRK eise 

114 p4M dst.list.dir[dst.list.entrys-l] = 0; 

115 mvK break; 

116 Qv8 ]/» end of switch »/ 

117 OrA ]/» end of if »/ 

118 506 )/» end of while »/ 

119 Mg3 if (lock) UnLock(lock); 

120 07 FreeMem(m,(long)sizeof(struct FilelnfoBlock)); 

121 2y0 Full_Update(flag) 

122 Ft3 LONG flag; 

123 3D2 if((src.list.entrys > 1) && (flag == SOURCE)) Sort_Files 

(flag); 

124 hS if((dst.list.entrys > 1) && (flag == DESTINATION)) Sort_ 

Files(flag); 

125 zz3 Write_Info(flag,2,0); 

126 2T DisplayFiles(flag); 

127 8H PropGad(flag,0); 

128 EO PropGad(flag,l); 

129 RqO /»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»^nnnnnnnnnnnnnnnnnnnnnn^*^n^* 

130 PmU reserviert Speicher 

131 NyR 200 Filenamen a 26 Zeichen 

132 KJM 180 Zeichen fuer den aktuellen Pfad 


195 6s0 Sat Apr 30 21:17:54 1988 

196 bO »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»^t»»Jnnnnnnnnnnnnn(innnnnnj 

197 pr PathCat(newpath,flag) 

198 0a3 char newpath[]; 

199 qe ULONG flag; 

200 KU switch(flag){ 

201 gG5 case SOURCE: 

202 C3C if(src.depth > 0) strcat(src.spath, V*'); 

203 OP src.depth++; 

204 BD strcat(src.spath,newpath); 

205 oQ RefreshGList(&MAIN_s_path,Main_Window,NULL,lL); 

206 FO break; 

207 0g5 case DESTINATION: 

208 wmC if(dst.depth > 0) strcat(dst.dpath, V*); 

209 1D8 dst. depth-H-; 

210 JmC strcat(dst.dpath,newpath); 

211 S2 RefreshGList(&MAIN_d_path,Main__Wlndow,NULL,lL); 

212 LU break; 

213 nCO /»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»innnnntÄ»»*»*«*int^nnnnnt»* 

* * if» * * * * innnnnt * 

214 f5J alle reservierten Strukturen zurueckgebe 
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Ploppy-tools 


215 nOO Sun Apr 24 20:15:40 1988 

216 vK 




217 bX 

MEM_cleanup(){ 

218 wA3 

register ULONG i; 

219 6H2 

for(i=0;i<200;i-H-)[ 

220 GD4 

if(src.list.name[i]) FreeMera(src.list.name[i],27L); 

221 5k2 

if(src.spath) FreeMem(src.spath,181L )} 

222 9K 

for(i=0;i<200;i-H-){ 

223 9K4 

if(dst.list.name[1]) FreeMem(dst.list.name[i],27L); 

224 dS2 

if(dst.dpath) FreeMem(dst.dpath,181L); 

225 VR 

for(i=0;i<30;i-H-)( 

226 Jc4 

FreeMem(vlm.n[i],7L); 

227 IQO 



228 yAK 

Anzeigen der Files in einer der Bioecke 

229 cJO Sun Anr 24 20:13:39 1988 

230 9Y 




231 YY 

DisplayFiles(flag) 

232 NB3 

ULONG flag; 

233 JR 

register UWORD xStart,yStart; 

234 p5 

register struct RastPort ^^rp; 

235 aO 

register UWORD i; 

236 HM2 

char length[10]; 

237 Lx3 

register ULONG count; 

238 gM 

register char »name; 

239 2p 

rp = mainRP; 

240 y8 

switch(flag)[ 

24l Ku6 

case SOURCE: 

242 hy9 

xStart = 37; yStart=58; 

243 IQ 

for(i=0;i<=12;i-H-)( 

244 DwC 

ChangeColorsO; 

245 pR 

count = i+src.scroll_count; 

246 ZK 

name = src.list.name[count]; 

247 CS8 

if(src.list.dir[count] == 1) SetAPen(rp,3L); 

248 KF 

if(src.list.select[count] == l)( 

249 b3F 

SetDrMd(rp,INVERSVID] JAM2); 

250 oHC 

if(strlen(name) <= 20)( 

251 Y3F 

Move(rp,(long)xStart,(long)yStart+i»10); 

252 raP 

Text(rp,name, 

253 oqG 

(long)Strien(name)); 

254 jeC 

else[ 

255 c7F 

Move(rp,(long)xStart,(long)yStart+i»10); 

256 qT 

Text(rp,name, 

257 gLG 

20L); 

258 GKC 

if(((count) < src.list.entrys) && 

259 lOG 

(src.list.dir[count] == 0))( 

260 f8F 

sprintf (length, "jlJldsrc. list. length[count]) 

261 EDC 

9 

SetAPen(rp,2L); 

262 ZyF 

Move(rp,(long)248-TextLength(rp,length,(long 


)strlen(length)). 

263 k7I 

(long)yStart+i»10); 

264 nUF 

Text(rp,length,(long)strlen(length)); 

265 CL6 

break; 

266 xd 

case DESTINATION: 

267 kc9 

xStart = 401; yStart=58; 

268 Qp 

for(i=0;i<=12;i-H-)( 

269 cLC 

ChangeColorsO; ' 

270 tY 

count = i+dst.scroll_count; 

271 JA9 

name = dst.list.name[count]; 

272 2G8 

if(dst.list.dir[count] == 1) SetAPen(rp,3L); 

273 A3 

if(dst.list.select[count] == 1)( 

274 OSF 

SetDrMd(rp,INVERSVID) JAM2); 

275 DgC 

if( Strien (name) <= 20)( 

276 xSF 

Move(rp,(long)xStart,(long)yStart+i»10); 

277 Bo 

Text(rp,name, 

278 DFG 

(long)Strien(name)); 

279 83C 

else[ 

280 IWF 

Move(rp,(long)xStart,(long)yStart+i»10); 

281 Fs 

Text(rp,name, 

282 5kG 

20L); 

283 40C 

if(((count) < dst.list.entrys) && 

284 8YG 

(dst.list.dir[count] == 0)){ 

285 mIF 

sprintf( length, ''Jfld *, dst. list. length[count]) 

286 XX 

9 

Move(rp,(long)612-TextLength(rp,length,(long 


)strlen(length)). 

287 8V 

(long)yStart+l»10); 

288 feC 

SetAPen(rp,2L); 

289 CtF 

Text(rp,length,(long)strlen(length)); 

290 bk6 

break; 


291 Fk3 

] /» end of switch »/ 

292 wMO 

]/» end of block »/ 

293 5U 




294 3aK 

Anzeigen eines Files in einer der Bloec 


ke 

295 fQO Sat Apr 30 15:16:42 1988 

296 De 




297 ay 

Displaysingle(flag,direction) 

298 RF3 

ULONG flag; 

299 CB 

ULONG direction; 

300 Rx 

register ULONG xStart,yStart; 

301 uA 

register struct RastPort »rp; 

302 f5 

register UWORD i; 

303 MR2 

char length[10]; 

304 Q23 

register ULONG count; 

305 IR 

register char »name; 

306 Tu 

rp = mainRP; 

307 3D 

switch(flag){ 

308 Pz6 

case SOURCE: 

309 VY9 

xStart = 37; yStart=178; i=12; 

310 0C6 

if(direction == UP) [ i=0;yStart=58;] 

311 tV9 

count = i+sre. scrolLcount; 

312 dO 

name s src.list.name[count]; 

313 K36 

ChangeColorsO; 

314 HX 

if(src.list.dir[count] == 1) SetAPen(rp,3L); 

315 PK 

if(src.list.select[count] == 1)[ 

316 g8C 

SetDrMd(rp,INVERSVID) JAM2); 

317 tM9 

if( Strien (name) <= 20) j 

318 VqC 

Move(rp,(long)xStart,(long)yStart); 

319 rU 

Text(rp,name, 

320 tvD 

(long)strlen(name)); 

321 oj9 

else[ 

322 ZuC 

Move(rp,(long)xStart,(long)yStart); 

323 vY 

Text(rp,name, 

324 IQD 

20L)i 

325 LP9 

if(((count) < src.list.entrys) && 

326 6TD 

(src.list.dir[count] == 0))[ 

327 kDC 

sprintf (length, "jCld ", src. list. length[count]); 

328 JI9 

SetAPen(rp,2L); 

329 e3C 

Move(rp,(long)248-TextLength(rp,length,(long)st 


rlen(length)). 

330 w4G 

(long)yStart); 

331 sZC 

Text(rp,length,(long)strlen(length)); 

332 HQ6 

break; 

333 2i 

case DESTINATION: 

334 KW9 

xStart = 401; yStart=178; i=12; 

335 Pb6 

lf(direction == UP) [i=0;yStart=58;] 

336 xc9 

count = i+dst.scroll_count; 

337 nE 

name = dst.list.name[count]; 

338 jS 

ChangeColorsO; 

339 7L6 

if(dst.list.dir[count] == 1) SetAPen(rp,3L); 

340 F8 

if(dst.list.select[count] == 1)( 

341 5XC 

SetDrMd(rp,INVERSVID) JAM2); 

342 119 

if( Strien (name) <= 20)( 

343 uFC 

Move(rp,(long)xStart,(long)yStart); 

344 Gt 

Text(rp,name. 

345 IKD 

(long)Strien(name)); 

346 D89 

else[ 

347 yJC 

Move(rp,(long)xStart,(long)yStart); 

348 Kx 

Text(rp,name, 

349 ApD 

20L); 

350 9T9 

if(((count) < dst.list.entrys) && 

351 DdD 

(dst.list.dir[count] == 0)){ 

352 hg9 

SetAPen(rp,2L); 

353 sOC 

sprintf(length, "%ld", dst.list.length[count]); 

354 33 

Move(rp,(long)6l2-TextLength(rp,length,(long)st 


rlen(length)). 

355 LTF 

(long)yStart); 

356 HyC 

Text(rp,length,(long)Strien(length)); 

357 gp6 

break; 

358 Kp3 

]/» end of switch »/ 

359 IRO ] /» end of block »/ 

360 Hs 

ChangeColorsO! 

361 s82 

register struct RastPort »rp; 

362 lo3 

rp = mainRP; 

363 rp6 

SetBPen(rp,0L); 

364 qo 

SetAPen(rp,lL); 

365 GV 

SetDrMd(rp,JAM2); 

366 GfO 
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439 9P9 for(i=0;i<src.list.entrys;i++)[ 

440 9kC m=src.list.naine[i]+strlen(src.llst.narae[i]); 

441 13 i^(m)=(UBYTE)i+l; 

442 Ov <f(m+l) = (UBYTE)0; 

443 15 dir[i]=src.list.dir[i]; 

444 3o length[i]=src.list.length[i]; 

445 8k9 qsort(src.list.narae,(unsigned)(src.list.entrys),(u 

nsigned)4,(ULONG)cmp); 

446 GW for( 1=0;i<src.list.entrys;!++)[ 

447 GrC m=src.llst.narae[l]+strlen(src.llst.name[l]); 

448 eS count = »(m-1); 

449 dzF src.llst.dlr[l] =dlr[—count]; 

450 kY src.llst.length[l]=length[count]; 

451 rad ^^(m-l) = (cha^)0; 

452 DM8 break; 

453 ye4 case DESTINATION: 

454 3M9 for(l=0;l<dst.llst.entrys;l++){ 

455 rBC m=dst.llst.name[l]+strlen(dst.llst.nanie[l]); 

456 xl *(m)=(UBYTE)l+l; 

457 FA *(m+l)=(UBYTE)0; 

458 II dlrCl]=dst.llst.dlr[l]; 

459 xl length[l]=dst.llst.length[l]; 

460 XV9 qsort(dst.llst.name,(unslgned)(dst.llst.entrys),(u 

nslgned)4, (irLONG)cmp); 

461 AT fo.r(l=0;l<dst.llst.entrys;l-H-)( 

462 ylC m=dst.llst.nanie[l]+strlen(dst.llst.naine[l]); 

463 th count = ^^(m“l); 

464 XwF dst.llst.dlr[l] =dlr[—count]; 

465 eV dst.llst.length[l]=length[count]; 

466 Is »(m-l)=(char)0; 

467 Sb8 break; 

468 fOO _cll_parse()[ 

469 Lb _wb_parse()[ 

(C) 1988 M&T 


alle selektierten Fllenames-Flags loesch 


368 qVO Sat Apr 30 21:26:25 1988 

369 On 

370 NC ClearAll(flag) 

371 cQ3 ULONG flag; 

372 Qe reglster ULONG 1; 

373 7H2 swltch(flag)( 

374 T36 case SOURCE: 

375 Jb9 for(l=0;l<=199;l-H-)( 

376 3uD src.llst.select[l] = 0; 

377 Jg ^»src.llst.narae[l] = 0; 

378 qG src.llst.length[l] = 0; 

379 ha9 src.llst.entrys=0; 

3Ö0 4u src.scroll_count=0; 

381 fj SetAPen(malnRP,OL); 

382 JA EreaseBlock(SOURCE); 

383 6F break; 

384 rX6 case DESTINATION: 

385 T19 for(l=0;l<=199;l-H-)( 

386 smD dst.llst.select[l] = 0; 

387 Bb ^^dst.llst.name[l] = 0; 

388 f8 dst.llst.length[l] = 0; 

389 WS9 dst.llst.entrys=0; 

390 tm dst.scrolL_count=0; 

391 pt SetAPen(malnRP,OL); 

392 7t EreaseBlock(DESTINATION); 

393 GP break; 

395 roT Loescht ein Block-Feld 

396 K80 Sun May 01 13:44:48 1988 

397 qF 

398 Kc ClearBlock(flag,count) 

399 4s3 ULONG flag; 

400 8b UWORD count; 

401 z3 SetAPen(malnRP,OL); 

402 vp SetDrMd(malnRP,JAM2); 

403 bl swltch(flag)[ 

404 xX6 case SOURCE: 

405 WyB RectFlll(malnRP,37L, (long)count^fl0+52,250L,(long 

) count 10+59); 

406 TcC break; 

407 Eu6 case DESTINATION: 

408 ghB RectFlll(malnRP,401L,(long)count*10+52,6l4L,(lon 

g)count^^ 10+59); 

409 WfC break; 

410 Af3 ] /» end of switch */ 

412 yGM loeschen eines Blockes mit RectFlll 

413 n50 Sat May 07 20:16:15 1988 

415 g2 EreaseBlock(flag) 

416 zd3 LONG flag; 

417 FJ SetAPen(malnRP,OL); 

418 Xu SetDrMd(malnRP,OL); 

419 rl swltch(flag)( 

420 Dn6 case SOURCE: 

421 ks RectFlll(malnRP,32L,50L,250L,181L); 

422 js9 break; 

423 UA6 case DESTINATION: 

424 f5 RectFlll(raalnRP,396L,50L,6l4L,181L); 

425 mv9 break; 

426 EdO 

427 no3 Markieren der Flies, damit Ich nach qsort die alte Pos. 

rausfinde 

428 Kc danach 

429 MIO 

430 mM Sort_Flles(flag) 

431 a03 ULONG flag; 

432 wT reglster Int 1; 

433 tZ reglster UBYTE count; 

434 Fh char »m; 

435 4g2 UBYTE dlr[200]; 

436 tr3 ULONG length[200]; 

437 9J swltch(flag)[ 

438 V56 case SOURCE: 


Listing 3. (Schluß) 


Programmname: sc2.c 


1 NmO 

2 Rb5 Supercopy vl.O (w) ln 1988 by Eichenberger Software Prod 

uctlon 

3 fK6 alle Gadget-FunktIonen. z.B. copy, rename, forraat usw 


4 LqO Tue Apr 26 20:07:35 1988 

»inni»innnnnnniSC2« / 

6 qF /*==========SS=SSS=SS==S=== 

7 tU4 HEADERS 

8 lAl ===============s==========^^/ 

9 VyO #lnclude<functlons.h> 

10 ds #Include <:sc_struct.h > 

11 vK /*========================= 

12 lv4 DEFINES 

13 NFl =======*s=s===============v 

14 JwO #deflne SOURCE OL 

15 v5 #deflne DESTINATION IL 

16 OP /^========================= 

17 X94 globale VARIABLEN 

18 SKI ss=* = = === = === = = = = = = r =====rV 

19 zTO extern struct Source src; 

20 7n extern struct Destination dst; 

21 EO extern struct Volumes vlm; 

22 DO extern struct GfxBase »GfxBase; 

23 ph extern struct RastPort »malnRP; 

24 S1 extern struct Window *Maln_Wlndow; 

25 Sk extern struct DosLlbrary «DOSBase; 

26 vU extern struct NewWlndow rename_nw; 

27 q3A struct Window *Rename_Wlndow; 

28 wrO extern struct Request er RE(l_requester; 

29 GO extern UBYTE MessageLlne[80]; 


Programmname: 

sc2.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Bemerkung: 

siehe Listing 1 
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30 wa extern UBYTE r_nL.buffer[80]; 

31 St extern UBYTE diskname_buffer[80]; 

32 VC extern struct Gadget MAIN_jnessage; 

33 IcC extern struct Gadget rename_r_jn; 

34 VH extern struct Gadget MAIN_cLpath; 

35 FG extern struct Gadget MAIN_s_path; 

36 3M extern struct Stringinfo MAIN_MAIN_s_pathSInfo; 

37 ae extern struct Stringinfo MAIN_MAIN_cLpathSInfo; 

38 pB extern struct Image FRM_Image3; 

39 KM extern struct Image FRM_Image8; 

40 RP extern struct Image FRM_Iraage9; 

41 nG extern struct Image REQ_Image2; 

42 iF extern struct Image RE(i_Imagel; 

43 Bs extern struct Gadget REQ_name; 

44 Vu extern struct Gadget FRK_cancel; 

45 Gu extern struct Gadget FRM_ok; 

46 81 extern struct Image commancLimg; 

47 2k #define FRM_ImageListl FRM_Image3 

# * * «* * * 

49 yOI kopiert ein File von source auf destinati 

on 

50 LGJ 0= normal kopi 

eren 

51 JL 1= source loes 

Chen 

52 fCO Tue Apr 26 19:16:16 1988 

54 fg Copy(flag) 

55 Jt3 BOOL flag; 

56 raz register ULONG i,t=0; 

57 db struct FileLock »oldlock,*newlock; 

58 kJ char delete[1000]; 

59 vP register LONG entrys; 

60 fH entrys = src.list.entrys; 

61 67 for(i=0;i< entrys ;i++)[ 

62 xW6 if(src.list.select[i] == 1)[ 

63 uZ9 if(src.list.dir[i] == l)( 

64 i9C CopyDir(src.list.name[i],(UL0NG)0,(B00L)flag); 

65 nA insert_file_entry(i); 

66 CL t++; 

67 id9 else{ 

68 ENC t-H-; 

69 Y8 if(CopyFile(src.list.nameCi])==-!)[ 

70 BmA retum(-l); 

71 pAC if(flag == 1)[ 

72 yaF naraecat(src.list.name[i],delete,SOURCE); 

73 JF if(DeleteFile(delete) == NULL)[ 

74 DOI detect_errors(); 

75 gd goto end; 

76 eOC Write_Info(DESTINATION,l,src.list.length[i]); 

77 zM insert_file_entry(i); 

78 kdO end: 

79 xI3 if(flag == 1)[ 

80 PQ6 for(i=0;i<entrys ;i-H-)[ 

81 dk9 if(src.list.select[i] == 1) kill_file_entry(SOURCE 

,i-); 

82 C73 WriteMessage(''all files are copied l''); 

83 bh ClearAllSelected(SOURCE); 

84 xq dst.scrolX_count=0; 

85 30 if(flag == 1)( 

86 J26 print_files(SOURCE); 

87 Yc3 print_files(DESTINATION); 

88 t9 if(t==0)( 

89 P26 WriteMessage("first select files (SOURCE)."); 

90 nRO print_files(flag) 

91 6u3 ULONG flag; 

92 DO EreaseBlock(flag); 

93 ef Sort_Files(flag); 

94 bk PropGad(flag,0); 

95 hr PropGad(flag,l); 

96 Yz DisplayFiles(flag); 

97 XX Write_Info(flag,2,0); 

98 2B0 CopyFile(source) 

99 KP3 char source[]; 

100 aR register struct FileHandle »fhl,»fh2; 

101 dF char filename[500],destination[500]; 

102 Ql char »file_buffer=0; 

103 89 LONG error; 

104 m8 LONG count,countl; 

105 BH struct FileHandle »Open(); 

106 Sm namecat(source,filename,SOURCE); 
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107 5Z namecat(source,destination,DESTINATION); 

108 YL WriteMessage(filename); 

109 01 if((fhl = 0pen(filename,M0DE_0LDFILE))==0)[ /» source n 

ame */ 

110 8H6 puts("can't open"); 

111 mm error = IoErr(); 

112 9j goto cleanup; 

113 Ty3 if((fh2 = 0pen(destination,M0DELNEWFILE))==0)( /» dst n 

ame »/ 

114 CL6 puts("can't open"); 

115 qq error = IoErr(); 

116 Dn goto cleanup; 

117 S53 file_buffer = (char »)AllocMem(ll264L,MEMF_CLEAR); 

118 W3 while(count=Read(fhl,file_buffer,5632L)){ 

119 Wh6 if(Write(fh2,file_buffer,(LONG)count) 1= count)[ 

120 1T9 WriteMessage("Write-Error"); 

121 Vb if(file_buffer 1= NULL) FreeMem(file_buffer,1126 

4L); 

122 JF Close(fh2); 

123 fA Close(fhl); 

124 3e retum(-l); 

125 103 if(count == -l)[ 

126 116 WrlteMessage("Read-Error"); 

127 QwO cleanup: 

128 ci3 if(file_buffer 1= NULL) FreeMem(file_buffer,11264L); 

129 qM Close(fh2); 

130 mH Close(fhl); 

131 GLO ] /» end of block »/ 

133 sxV Requester zeichnen 

134 bOO 

135 j4 Draw_request(flag) 

136 cC3 BOOL flag; 

137 GW register struct RastPort »rp; 

138 kX register LONG newgadid,success; 

139 Dk register int i; 

140 Fx static BOOL execute; 

141 Lv static struct Gadget ok_cancel[2]; 

142 YP if(execute == 0){ 

143 b06 REQ_requester.ReqGadget=NULL; 

144 D3 ok_cancel[0] = FRM_cancel; 

145 Ar ok_cancel[l] = FRM_ok; 

146 iE ok_cancel[0].NextGadget = 0; 

147 B7 ok_cancel[0].LeftEdge=5; 

148 8p ok_cancel[0].TopEdge=35; 

149 aa ok_cancel[0].Activation ]= ENDGADGET; 

150 yM ok_cancel[0].GadgetType ]= REQGADGET; 

151 J1 ok_cancelC0].GadgetID=0K; 

152 Ct ok_cancel[0].TopEdge=35; 

153 rO ok_cancel[l].NextGadget = 0; 

154 il ok_cancel[l].LeftEdge=139; 

155 ij ok_cancel[l].Activation ]= ENDGADGET; 

156 6V ok_cancel[l].GadgetType ]= REQGADGET; 

1573m ok_cancelCl].GadgetID=CANCEL; 

158 K2 ok_cancel[l].TopEdge=35; 

159 Sg AddGList(Main_Window,&REQ_jiame, lL,lL,&REQ_request 

er); 

160 M8 AddGList(MairuWindow,&ok_cancel[0],2L,lL,8cREQ_request 

er); 

161 TH AddGList(MairuWindow,&okL^ancel[l],3L,lL,&REQ_request 

er); 

162 QJ execute = 1; 

163 JN3 success = Request(&REQ_requester,Main_Window); 

164 J4 rp = REQ_requester.ReqLayer->rp; 

165 ZA DrawImage(rp,&FRK_Image8,-lL,-40L); 

166 4Y DrawImage(rp,&FRM_Image9,-l68L,-40L); 

167 fd SetAPen(rp,lL); 

168 Yp drawbox(rp,lL,lL,196L,50L); 

169 TH for(i=0;i<=4;i-H-)[ 

170 hY6 Move(rp,9L,(long)(7+i»2)); 

171 qR Draw(rp,185L,(long)(7+i»2)); 

172 59 Move(rp,62L,(long)(38+i»2)); 

173 VO Draw(rp,135L,(long)(38+i»2)); 

174 p63 if(flag =s 0) DrawImage(rp,&REQ_Image2,52L,2L); 

175 zL if(flag == 1) DrawImage(rp,&REQ_Imagel,57L,2L); 

176 XB if(flag == 2) DrawImage(rp,&commancLimg,45L,2L); 

177 ZN Delay(5L); 

178 Zy success=ActivateGadget(&REQ_name,Main_Wlndow,&REQ_reques 

ter); 

Listing 4. »sc2.c« bitte mit dem Checksummer eingeben 
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251 kYO RenameFile(oldnaine,newnarae,flag) 

252 do3 char oldiiame[] ,newnaine[]; 

253 MO LONG flag; 

254 wl char oldfilename[500]; 

255 oL char newfilename[500]; 

256 EO switch(flag)[ 

257 aA case SOURCE: 

258 6PC nainecat(oldname,oldfllename,SOURCE); 

259 OE namecat(newname,newfilename,SOURCE); 

260 7G break; 

261 sY3 case DESTINATION: 

262 JYC naraecat(oldnaine,oldfilenaine,DESTINATION); 

263 dN namecat(newnarae,newfilename,DESTINATION); 

264 BK break; 

265 pS3 ) /* end of switch */ 

266 5XC re tum (Rename (old f i lename, new f i lename)); 

267 ztO }/» end of Block »/ 

269 TyU Loeschen eines Files 

270 pro Sat May 07 14:56:21 1988 

272 lU Delete()( 

273 HU3 register ULONG i,t=0; 

274 86 struct FileLock *oldlock,*newlock; 

275 sQ char file[500]; 

276 fO LONG block_type; 

277 eO long checkblocks(); 

278 ge ULONG error; 

279 UN blockL_type = checkblocks(); 

280 CZ switch(block_type){ 

281 yY6 case SOURCE: 

282 csC for(l=0;i<src.list.entrys;i++){ 

283 W5F if(src.list.select[i] == 1){ 

284 T8I if(src.list.dir[i] == 1){ 

285 yuE CopyDir(src.list.name[i],lL,0); 

286 nLL naraecat(src.list.name[i],file,block_ty 

pe); 

287 aM kilL_file_entry(block_type,i); 

288 HCl else[ 

289 nwL t++; 

290 i7 WriteMessage(src.list.naine[i]); 

291 sQ namecat(src.list.naine[i] ,file,block_ty 

pe); 

292 11 if(DeleteFile(file) == NULL){ 

293 kXO detect_errors(); 

294 nO retura(-l); 

295 aNL eise 

296 jVO kil3_file_entry(block_type,i); 

297 npl i—; 

298 ka src.scroll_count=0; 

299 KwC RefreshGList(&MAIN_s_path,Main_Window,NULL,lL); 

300 lu break; 

301 WC6 case DESTINATION: 

302 buC for(i=0;i<dst.list.entrys;!++)[ 

303 HoF if(dst.list.select[i] == 1){ 

304 Erl if(dst.list.dir[i] == 1)( 

305 jdE CopyDir(dst.list.name[l],lL,0); 

306 Y4L namecat(dst.list.name[i],file,block_ty 

pe); 

307 ug kill_file_entry(block_type,i); 

308 bWI else( 

309 7GL t++; 

310 Tq WriteMessage(dst.list.name[i]); 

311 d9 nainecat(dst.list.name[l],file,bloclc_ty 

pe); 

312 55 lf(DeleteFile(file) == NULL)[ 

313 4r0 detect_errors(); 

314 7i retura(-l); 

315 uhL eise 

316 3p0 kill_file_entry(block_type,i); 

317 791 1—; 

318 4u src.scroll_count=0; 

319 CmC RefreshGList(&MAIN_d_path,MairuWindow,NULL,lL); 

320 5E break; 

321 xf3 ClearAllSelected((ULONG)block_type,0); 

322 8y src.scroll_countsO; 

323 oh dst.scroll_count=0; 

324 n7 PropGad(block_type,0); 

325 uA PropGad(block»type,l); 

326 11 DisplayFiles(block_type); 

327 cR Write_Info(block_type,2,0); 

328 e30 


179 FeO 

180 cJW Files umbenennen 

181 IVO Mon May 02 21:04:45 1988 

183 JG CalL_Renarae(flag) 

184 0y3 BOOL flag; 

185 Vu struct Gadget »igad; 

186 vA struct IntuiMessage *Wait_for_Message(); 

187 k4 struct IntuiMessage »Message; 

188 4k struct Lock »ignorelock,»dirlock; 

189 gy register LONG nuraber,gadid,newgadid; 

190 Br LONG Wait_for_RenameO J 

191 VTY char newdir[500]; 

192 qFO /»========================= 

193 3ni4 makedir 

194 lAl =r = = =: = = = r = = = =: = = = = = = = = = = = = = V 

195 pA3 if(flag == 1)[ 

196 xD6 makedirO; 

197 eZ retum(O); 

198 wLO /»========================= 

199 NFl ==========================»/ 

200 Ev3 WriteMessage(*'please select a File."); 

201 fpl F0REVER[ 

202 FF6 Message=Wait_for_Message(Main_Window,0); 

203 oN gadid = ((struct Gadget ») Message->IAddress)->Gadg 

etID; 

204 Nw if(Block_Controll(gadid) == 1) continue; 

205 fb if( gadid >= 3 && gadid <= 15 ){ 

206 Sw9 WriteMessage(""); 

207 hm strcpy(r_m_buffer,src.list.name[gadid-3+src.scroll 

_count]); 

208 ba newgadid=Wait_for_Rename(Message,flag); 

209 Ok if(newgadld == -1) retura(-l); 

210 B8 RenaraeFile(src.list.name[gadid-3+src.scroll_count] 

,r_m_buffer,SOURCE); 

211 Di strcpy(src.list.name[gadid-3+src.scroll_count],r_m 

_buffer); 

212 Bm ClearBlock(SOURCE,(UW0RD)gadid-3+src.scroll_count) 


213 vp DisplayFiles(SOURCE); 

214 J9 returaO; 

215 eT6 if( gadid >= 48 &8e gadid <= 61 ){ 

216 c69 WriteMessage(""); 

217 wD strcpy(r_nL.buffer,dst.list.name[gadid-48+dst.scrol 

l_count]); 

218 Ik newgadid=Wait_for_Rename(Message,flag); 

219 Au if(newgadid == -1) retum(-l); 

220 IW RenameFile(dst.list.name[gadid-48+dst.scroll_count 

],r_ra_buffer,DESTINATION); 

221 Ry strcpy(dst.list.name[gadid-48+dst.scrolL_count],r_ 

nL.buf fer); 

222 rQ ClearBlock(DESTINATI0N,(UW0RD)gadid-48+dst.scroll_ 

count); 

223 e4 DisplayFileö(DESTINATION); 

224 TJ retumO; 

225 ls3 ] /» end of forever »/ 

226 810 ] /» end of block »/ 

227 Po /»===========rr============ 

228 Pll Baue Renarae-raakedir Req auf 

229 Oi 0 = Rename 

230 Hg 1 * MakeDir 

231 tl ==========================»/ 

232 f80 LONG Wait_for_Rename(Message,flag) 

233 Uo3 struct IntuiMessage »Message; 

234 Cm BOOL flag; 

235 ix struct IntuiMessage »Wait_for_Message(); 

236 K7 register LONG newgadid,success; 

237 nK register int i; 

238 rF Draw_request((BOOL)flag); 

239 ex Message=Wait_for_Message(MairL_Window,(ULONG)0); 

240 t2 if(Message == 0) retura((long)-l); 

241 ai if( (newgadid = ((struct Gadget ») Message->IAddress)- 

>GadgetID) == P.J1){ 

242 pX6 EndRequest(&RE(l_requester,Main_Window); 

243 Ah retura((long)newgadid); 

244 Nr3 if((newgadid==OK))( 

245 sa6 EndRequest(&REQ_requester,Main_Window); 

246 Dk retura((long)newgadid); 

247 rF3 eise retura(-l); 

248 k90 /»============**=*=:.«====== 

249 PT4 Rename’t ein File 

250 C4l ===============*==========»/ 
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329 71N 

330 lEO 

331 mB 

332 fO 

333 mr3 

334 dU 

335 dP 

336 qG 

337 16 

338 OP 

339 ZX6 

340 4V3 

341 rCO 

342 5aM 

343 sZO 

344 20 

345 gß 

346 8H3 

347 nx 

348 Xa 

349 4Z 

350 dh 

351 Kp 

352 NU6 

353 Gp 


355 JP 

356 hN9. 

357 BzC 

358 WBF 

359 tx 

360 05 

361 IC 

362 mH 

363 qZI 

364 8BL 


366 ZkC 

367 kDO 

368 GuC 

369 6k9 

370 Ij 

371 J80 

372 Dv4 

373 B31 

374 UNO 

375 9h3 

376 uv 

377 03 

378 p7 

379 tc6 

380 yd9 

381 dj3 

382 WvO 


BCPL-String in C-String urawandeln 
Fri Apr 29 20:49:57 1988 

BstrC(bstr,buffer) 

BSTR *bstr; 

UBYTE *buffer; 

UBYTE »str; 

LONG loop,zaehler=0; 
str = (UBYTE *) BADDR( bstr ); 
for( loop = (LONG) str[0]; loop~; ++zaehler){ 
buffer[zaehler] = str[zaehler+l]; 
buffer[zaehler] = 0; 

Registriere alle Devices im Speicher 
Fri Apr 29 20:57:12 1988 

Record_Volumes() { 

register ULONG xStart=304,yStart=97,count=0; 

char buffer[10]j 

struct RootNode *rootnode; 

struct Doslnfo *dosinfo; 

struct DeviceList ^^devicelist; 

struct FileLock »filelockj 

I rootnode = (struct RootNode ») DOSBase->dl_Root; 

dosinfo = (struct Doslnfo *) BADDR( rootnode->m_In 
fo); 

devicelist = (struct DeviceList *) BADDR( dosinfo->d 
l_DevInfo ); 

SetAPen(mainRP,2L); 
while( count <=29 )( 

if( devicelist->dL_Type == 0){ /* nur wenn De 

vice */ 

' BstrC(devicelist->dL_Name,buffer); 

if( ( Checkdevice (buff er)) == 0) goto next; 
strcpy(vlm.n[count-H-] , buff er); 
vlm.entrys-H-; 
if( count <= 4)[ 

if( strlen(buffer) <= 6 )( 

. Move(raainRP,(long)xStart,(long)yStart+ 

(count-l)*10); 

Text(mainRP,vlm.n[count-l],(long)strle 
n(vlm.n[count-l]) ); 

! if(devicelist->dI_Next == 0) break; 

\ next: 

: devicelist = (struct DeviceList *) BADDR( devic 

elist->dLJJext ); 

I PropGad((ULONG)2,(UBYTE)1); 

PropGad((UL0NG)2,(UBYTE)O); 


Checke Device 


checkdevice(device) 
char device[]; 
static char *devlist[] 


[ TO'', "SER", "CON", "RAW", "PAR"] 


register LONG i,n; 
for( i=0; i<=4; i++)( 

if( (strcmp(device,devlist[i])) == NULL){ 
retum(OL); 
return(IL); 


384 JQO 

385 e3 

386 LA 

387 Be3 

388 Lk 

389 Bp 

390 e30 

391 MzK 

392 iyO 

393 raB 

394 FE 

395 7N3 

396 Z2 


Schreibt eine Message in die Message-Lin 
e 

Mon May 02 21:06:22 1988 

WriteMessage(text) 
char text[]; 

strcpy(MessageLine,text); 

RefreshGList(&MAIN_message,Maia_Window,NULL,IL); 

Warte auf Message von beliebigem Window 
I Wed May 04 20:37:43 1988 

******^****¥t1t**** / 

Struct IntuiMessage »Wait_for_Message(MsgWindow,Code) 
struct Window «MsgWindow; 

ULONG Code; 


397 p3 register ULONG i; 

398 9T struct IntuiMessage »Message; 

399 8C2 static struct IntuiMessage Message2; 

400 IQ3 BYTE »source,»destination; 

401 li2 FOREVER 

402 r76 Wait((LONG)1< <MsgWindow->UserPort->mp_SigBit); 

403 Zi5 while ((Message = (struct IntuiMessage ») GetMsg ((str 

uct MsgPort »)MsgWindow->UserPort))) 

404 hF9 source = (BYTE »)Message; destination = (BYTE »)&M 

essage2; 

405 Ox for(i=0;i<sizeof(struct IntuiMessage) ;i++){ 

406 GM8 »destination-H-=»source++; 

407 sI6 switch(Code)( 

408 aqC case 0: 

409 elF if( (Message->Class == CLOSEWINDOW)) (retum 

(0);] 

410 Zi if( (Message->Class == REQCLEAR))( retum(O) 

;) 

411 pj if( (Message->Class == GADGETUP) ]] (Messag 

e->Class == GADGETDOWN) 

412 JHL ]] (Message-> dass == M0USEBUTT0NS))( 

413 rPH ReplyMsg (Message); 

414 ZTI retum((struct IntuiMessage »)&Message2); 

415 cl break; 

416 klC case 1: 

417 kpl ReplyMsg(Message); 

418 aV return(&Message2); 

419 gp break; 

421 20P File an Pfad und in Zielbuffer 

422 zCO Sat May 07 14:59:47 1988 

424 17 namecat(pfad,destination,flag) 

425 JM3 char »pfad,»destination; 

426 9n LONG flag; 

427 z9 switch(flag)[ 

428 Lv6 case SOURCE: 

429 T19 if((strlen(pfad)+strlen(src.spath)) >= 180){ 

430 HZC WriteMessage("Path-Memory full !"); 

431 BM MAIN_WaitMsgO; 

432 5R9 if(src.depth == 0) 

433 QUC sprintf(destination, "JtsjCs",src.spath,pfad); 

434 pc9 eise 

435 hDC sprintf(destination, "J(s/$s",src.spath,pfad); 

436 x69 break; 

437 i06 case DESTINATION: 

438 oN9 if((strlen(pfad)+strlen(dst.dpath)) >= 180)[ 

439 nGC WriteMessage("Path-Meraory fulll"); 

440 KV MAIN_WaitMsgO; 

441 fz9 if(dst.depth == 0) 

442 b6C sprintf(destination, "$sjfs",dst.dpath,pfad); 

443 yl9 eise 

444 JYC sprintf(destination, "J{s/jCs",dst.dpath,pfad); 

445 6F9 break; 

446 uo4 default: 

447 bj9 if(destination[atrlen(destination)-l] == ':'){ 

448 JoC strcat(destination,pfad); 

449 sn9 else[ 

450 QiC strcat(destination,"/"); 

451 rar strcat(destination,pfad); 

452 e30 /»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» 

««««««««««)( 

453 raJL alle selektierten Files deselektieren 

454 DRO Sat May 07 16:48:25 1988 

455 mB »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» 

456 5L ClearAllSelected(flag,kill_dirs) 

457 tr3 ULONG flag,kill_dirs; 

458 o2 register ULONG i; 

459 Vf2 switch(flag)( 

460 rR6 case SOURCE: 

461 1x9 for(i=0;i<=src.list.entrys;i++)[ 

462 smC src.list.select[i]=0; 

463 Mq if(kill_dirs==l) src.list.dir[i]=0; 

464 PY6 break; 

465 Aq case DESTINATION: 

466 oN9 for(i=0;i<=dst.list.entrys;i++)( 

467 cZC dst.list.selectCi]=0; 

468 CM if(kilL.dirs==l) dst.list.dirCi]=0; 

469 Ud6 break; 

470 J63 EreaseBlock(flag); 


Listing 4. (Fortsetzung) 
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471 b2 DisplayFiles(flag); 

473 6eT alle Files selektieren 

474 plO Sat May 28 13:49:09 1988 

iHHHHHHHHHHt* » » « « » / 

476 bK SetAll(flag) 

477 yc3 LONG flag; 

478 8M register ULONG i; 

479 pz2 switch(flag){ 

480 B16 case SOURCE; 

481 Lr9 for(isO;i<=src.list.entrys;i-H-)| 

482 I8C src.llst.select[i]=l; 

483 ir6 break; 

484 T9 case DESTINATION: 

485 7g9 for(i=0;i<=dst.list.entrys;i++)( 

486 luC dst.list.select[i]=l; 

487 inv6 break; 

488 b03 EreaseBlock(flag); 

489 tK DisplayFiles(flag); 

491 I7M loeschen eines Fileeintrags im Block 

492 160 Sat May 07 18:22:55 1988 

494 dl kill_file_entry(flag,pos) 

495 113 register LONG flag,pos; 

496 HU register LONG i; 

497 TH switch(flag)[ 

498 T36 case SOURCE: 

499 wM9 for(i=pos;i<src.list.entrys;i++)( 

500 LkC strcpy(src.list.narae[i],src.list.name[i+l]); 

501 EA src.list.select[i]=src.list.select[i+l]; 

502 XW src.list.dir[i] =src.list.dir[i+l]; 

503 kH src.list.length[i]=src.list.length[i+l]; 

504 3d9 src.list.entrys—; 

505 i9 EreaseBlock(SOURCE); 

506 5E break; 

507 qW6 case DESTINATION: 

508 qw9 for(i=pos;i<dst.list.entrys;i++)[ 

509 ezC strcpy(dst.list.narae[i],dst.list.name[i+l]); 

510 Rg dst.list.select[i]=dst.list.select[i+l]; 

511 k2 dst.list.dir[i] =dst.list.dir[i+l]; 

512 xn dst.list.length[i]=dst.list.length[i+l]; 

513 rU9 dst.list.entrys—; 

514 5r EreaseBlock(DESTINATION); 

515 EN break; 

516 g50 

517 EAI hineinsetzen eines Filenames in einem Bio 


if( (newgadid=Wait_for_Rename(Message,(BOOL)l)) == -1)[ 
retum(-l); 

block_type=checkblöcks(); 
switch(block_type){ 
case SOURCE: 

namecat(r_nL.buffer,newdir,SOURCE); 

strcpy(src.list.name[src.list.entrys],r_m_buffe 


src.list.dir[src.list.entrys]=l; 
src.list.select[src.list.entrys]=0; 
src.list.entrys++; 
break; 

case DESTINATION: 

namecat(r_nL.buffer,newdir,DESTINATION); 
strcpy(dst.list.name[dst.list.entrys],r_ra_buffe 


559 dj dst.list.dir[dst.list.entrys]=1; 

560 Bn dst.list.select[dst.list.entrys]=0; 

561 T2 dst.list.entrys++; 

562 z88 break; 

563 X23 if( (ignorelock = Lock(newdir,ACCESS_READ)) == NULL)( 

564 fK6 WriteMessage("creating a new directory.*); 

565 8U dirlock=CreateDir(newdir); 

566 iS UnLock(dirlock); 

567 Ka3 if(ignorelock != NULL) UnLock(ignorelock); 

568 Ts Sort_Files(block_type); 

569 SS EreaseBlock(block_type); 

570 15 PropGad(block_type,0); 

571 s8 PropGad(block_type,l); 

572 zz DisplayPiles(block_type); 

573 bOO 

574 Uya Command 

575 HbO Sat May 28 17:27:16 1988 

577 o5 command0 

578 qF2 struct Gadget *igad; 

579 GV3 struct IntuiMessage *Wait_for_Message(); 

580 ol char <^strchr(); 

581 6Q2 struct IntuiMessage ifMessage; 

582 Q63 struct Lock ^^ignorelock,*dirlock; 

583 2K register LONG nuraber,gadid,newgadid; 

584 gN struct FileHandle *fp; 

585 YE LONG Wait_for_Rename(); 

586 oJ2 static char »argv[20]; 

587 264 int i=0,t»0,n=0; 

588 dK3 if( (newgadid=Wait_for_Rename(Message,(BOOL)2)) *= -1)[ 

589 Y96 retum(-l); 

590 Tg3 Execute(r_nL.buffer,OL,OL); 

591 88 WindowToFront(Main_Window); 

592 uJO 

593 HWa SHOWPIC 

594 VNO Fri Jun 03 19:10:19 1988 

595 2R 

596 Hx showpic()( 

597 xM2 static char ^^argv[50],*execnarae; 

598 MI3 register int i,n=l; 

599 cK LONG checkblocks(),totaleize=0,bl_type; 

600 VJ static UBYTE callname[] = ^c:show 

601 YB struct FileLock »lock; 

602 nV2 struct FileLock »altlock; 

603 AM3 argv[0] = callname; 

604 Pe bl_type = checkblocks(); 

605 Mu switch(bl_type)[ 

606 Dn6 case SOURCE: 

607 tJ9 lock = Lock(src.spath,ACCESS_READ); 

608 vO altlock=CurrentDir(lock); 

609 kt break; 

610 VB4 case DESTINATION: 

611 zq9 lock = Lock(dst.dpath,ACCESS_READ); 

612 zS altlock=CurrentDir(lock); 

613 ox break; 

614 V33 switch(bl_type)[ 

615 Mw6 case SOURCE: 

616 0G9 for(i=0;i<src.list.entrys;i++)[ 

617 uTC lf(src.list.select[i] == l)( 

618 qlB argv[n++] = src.list.name[i]; 

619 u39 break; 

620 fL6 case DESTINATION: 

621 k39 for(i=0;i< dst.list.entrys;!++){ 

622 QxC if(dst.list.select[i] *= 1)( 


518 w20 Sat May 07 18:40:32 1988 

519 oD »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»**»innnnnnnn^***innnnnf»#***** 

520 NV insert_file_entry(olcLpositlon) 

521 E73 ULONG old_position; 

522 PV register int i^O; 

523 oe char strl[180],str2[180],»lcase(); 

524 by if(dst.list.entrys > 0)[ 

525 0k6 while(i <= dst.list.entrys)! 

526 IS9 lcase(strl,dst.list.narae[i]); 

527 mt lcase(str2,src.list.name[old_position]); 

528 im if(strcmp(strl,str2) == 0) 

529 aBC return(-l); 

530 KIT i-H-i 

531 PB3 strcpy(dst.list.name [dst.list.entrys],src.list.name [ 

old_position]); 

532 No dst.list.dir [dst.list.entrys]=src.list.dir [oldLpos 

ition]; 

533 yb dst.list.length[dst.list.entrys]=src.list.length[olcLpos 

ition]; 

534 Nq Sort_Files(DESTINATION); 

535 3c dst.list.entrys-H-; 

536 dlO makedirO! 

537 Ba2 struct Gadget »igad; 

538 bq3 struct IntuiMessage »Wait_for_Message(); 

539 Qk2 struct IntuiMessage »Message; 

540 kQ3 struct Lock »ignorelock,»dirlock; 

541 Me register LONG nuraber,gadid,newgadid; 

542 rX LONG Wait_for_Rename(); 

543 CE char newdir[500]; 

544 zi LONG block_type; 
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Programmname: 

sc3.c 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 


Bemerkung: siehe Listing 1 


667 Cb 


668 mx 

swapOl 

669 2G3 

struct Source source; 

670 eh 

source = src; 

671 dY 

src = dst; 

672 Qf 

dst = source; 

673 mV 

print_files(SOURCE); 

674 15 

print_files(DESTINATION); 

675 ov 

MAIN_MAIN_s_pathSInfo.Buffer = src.spath; 

676 ZF 

MAIN_MAIN_cLpathSInfo.Buffer = dst.dpath; 

677 yY 

RefreshGList( &MAIN_(l_path,MairL.Window,NULL, IL); 

678 R3 

RefreshGList(&MAIN_s_path,MairuWindow,NULL,IL); 

679 2r0 detect_errors()[ 

680 RS3 

LONG error; 

681 yy 

error = IoErr(); 

682 Ob 

switch(error)( 

683 rh6 

case 202: 

684 SG9 

WriteMessage('^Object is in use !"); 

685 y7 

break; 

686 lt6 

case 213: 

687 9L9 

WriteMessage('Disk is not validated.'); 

688 U 

break; 

689 zq6 

case 221: 

690 Em9 

WriteMessage( TDisk is full.'); 

691 4D 

break; 

692 6y6 

case 222: 

693 e49 

WriteMessage('File is protected front deletion.'); 

694 7G 

break; 

695 D66 

case 223: 

696 369 

WriteMessage('File is protected front writing.'); 

697 AJ 

break; 

698 0J6 

case 225: 

699 MH9 

WriteMessage('Not a DOS disk.'); 

700 DM 

break; 

701 VR6 

case 226: 

702 BS9 

WriteMessage('No disk in drive.'); 

703 GP 

break; 

704 E46 

case 103: 

705 wy9 

WriteMessage('insufficient free Store.'); 

706 JS 

break; 

707 714 

default: 

708 0D9 

WriteMessage('Disk-Error.'); 

(C) 1988 M8cT 

Listing 4. (Schiuß) 


623 gHB 

argv[n++] = dst.list.nante[i]; 

624 289 

break; 

625 R53 

for(i=l;l<n;i++)[ 

626 yc6 

totalsize+=strlen(argv[i]); 

627 yM3 

totalsize+=n+6; /* fuer Show-Befehl und Spaces */ 

628 oL 

execnante = (char *) AllocMent(totalsize,MEMF_CLEAR); 

629 4z 

strcpy(execname,callname); 

630 WA 

for(l=l;i<n;i++)[ 

631 p96 

strcat (execnante, argv [ i]); 

632 de 

if(l < (n-l) )strcat(execnante, ' '); 

633 Xs3 

Execute( execnante, OL, OL); 

634 vU 

for(i=0;i<=49;i-H-)( ' 

635 cr6 

argv[i]=0; 

636 QK3 

FreeMent (execnante, tot als ize); 

637 ch 

UnLock(lock); 

638 m 

CurrentDir(altlock); 

639 PS 

ClearAllSelected(bl_type,0); 

640 H6 

DisplayFiles(b]_type); 

64l h60 

»**»*»*»«****»* tut * 

642 ILX 

ROOT-Directory 

643 UwO Sat May 28 19:19:07 1988 

644 pE 


645 J5 

root_dir()( 

646 0S3 

char newdir[80],^^strchr(); 

647 zl 

switch(checkblocks())[ 

648 tT9 

case SOURCE: 

649 JmC 

strcpy(newdir,src.spath); 

650 gi 

newdir[strchr(newdir,':•)-newdir+l]=0; 

651 f6 

strcpy(src.spath,newdir); 

652 fK 

src.depth = 0; 

653 Sb 

break; 

654 Dt9 

case DESTINATION: 

655 b5C 

strcpy(newdir,dst.dpath); 

656 nto 

newdir[strchr(newdir,':')“newdir+l]=0; 

657 nf 

strcpy(dst.dpath,newdir); 

658 Q8 

dst.depth = 0; 

659 Yh 

break; 

660 PS3 

ClearAll(checkblocks()); 

661 il 

RefreshGList(&MAIN_cLpath,Main_Window,NULL,IL); 

662 Bn 

RefreshGList(&MAIN_s_path,Main_Window,NULL,IL); 

663 Mo 

ReadLDirectory(newdir,checkblocks()); 

664 4T0 

665 VJY 

SWAP-Blocks 

666 uNO 

Sat May 28 19:19:26 1988 


26 Sk 

extern struct RastPort »ntainRP; 

27 V4 

extern struct Window *Main_Window; 

28 gZ 

extern struct Gadget MAIN_source,MAIN_destination,MAIN_s_pa 
th,MAIN_cLpath, 

29 BiL 

MAIN_s_prop,MAIN_d_prop,MAIN_dev_prop; 

30 OuO extern struct Proplnfo MAIN_MAIN_s_propSInfo,MAIN_MAIN_cLpr 
opSInf 0 ,MAIN_MAIN_dev_propSInfo; 

31 bg 

USHORT oldcolor[5]; 

32 sH 


33 EWV 

Warte auf Message 

34 vtO Sun May 01 16:16:23 1988 

35 OP 


36 03 

MAIN_WaitMsg()| 

37 xp2 

register ULONG Class; 

38 r2 

register USHORT Code,Qualifier; 

39 Gt3 

register SHORT MouseX,MouseY; 

40 N02 

register struct IntuiMessage »Message; 

41 DY3 

register struct Window »IDCMPwindow; 

42 Ag2 

int i; 

43 Fw 

FOREVER 

44 086 

Wait((LONG)l< <Main_Window->UserPort->mp_SigBit); 

45 x95 

while ((Message = (struct IntuiMessage ») GetMsg ((str 
uct MsgPort »)Main_Window->UserPort))) 

46 Sq7 

Class = Message->Class; 

47 HB8 

Code = Message->Code; 

48 tD9 

MouseXs Message->MouseX; 

49 OM 

MouseY= Message->MouseY; 

50 07 

Qualifier= Message->Qualifier; 

51 gi‘6 

IDCMPwindow = Message->IDCMPWindow; 

52 2a8 

ReplyMsg (Message); 

53 jd6 

switch (Class)[ 

Listing 5. »sc3.c« bitte mit dem Checksummer eingeben 


1 NraO /»»»»»»»»»»»»»»»»»»*»*»»»»»»»»»»»»»»»»»»*»*»»»»»»»»»»»»»»»» 

2 Sc6 

Supercopy vl.O (w) 
roduction 

in 1988 by Eichenberger Software P 

3 HbR 


Window-Aktionen Funktionen 

4 3G0 Tue Apr 26 20:20:41 1988 


5 3w 

innnnnnnnnnnntSC3» / 

6 qF 


== 

7 tU4 

HEADERS 


8 lAl 

======================== 

==v 

9 VyO 

#include < functions.h > 


10 ds 

#include <:sc_struct.h > 


11 vK 


== 

12 lv4 

DEFINES 


13 NFl 


==v 

14 JwO 

#define SOURCE OL 


15 v5 

#define DESTINATION IL 


16 JK 

#define UP 100 


17 bL 

#define DOWN 101 


18 2R 

/«======================: 

== 

19 ZB4 

GLOBALE VARIABLEN 


20 UMl 


==*/ 

21JL0 

struct So,urce src; 


22 Hu 

struct Destination dst; 


23 st 

struct Volumes vlrn; 


24 7J 

I/)NG Wait_on_Message(); 


25 GR 

• 

extern struct GfxBase »GfxBase; 
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case RAWKEY: 

Key_Call(Code,Qualifier)j 
break; 

case ACTIVEWINDOW: 

MoveWindow(MairL_Window, OL, (long) -(MaiiuWi 
ndow->TopEdge)); 

SizeWindow(MairuWindow,OL,(long)256-(Main 
_Window-> Height)); 
break; 

case MOUSEBUTTONS : 

if(Code != MENUDOWN) break; 
Call_Mouse(MouseX,MouseY,Code); 
break; 

case REQCLEAR 

break; 

; do_gadgets(Message); 
break; 

: do_gadgets(Message); 
break; 

j End of switch 
Class = 0; Code = 0; 
j End of while »/ 

] /* End of forever */ 

) /* End of Wait_Msg */ 

Gadgets kontrollieren 

Sun May 01 16:15:59 1988 

do_gadgets(raes) 
danach die 

gewaehlten Coramands ausfuehren 


127 IE dst.list.entrys=0; 

128 gl strcpy(dst.dpath,vlm.n[ number2 ]); 

129 JD strcat(dst.dpath, 

130 9J RefreshGList(&MAIN_d_path,Main_Window,NUL 

L,1L); 

131 Ay ClearAll(DESTINATION); 

132 TB ReacLDirectory(dst.dpath,DESTINATION); 

133 4D break; 

134 iD6 ] /* end of switch »/ 

135 el3 ] end of if */ 

136 GD success=Block_Controll(gadid); 

137 Im if(success =* 1) retum(); 

138 Ih switch(gadid)( 

139 509 case COPY; 

140 vYF CopyO; 

141 CL break; 

142 Mj9 case RENAME: 

143 4wF Call_Rename((BOOL)0); 

144 FO break; 

145 pY6 case DELETE: 

146 pGF DeleteO; 

147 IR break; 

148 6i9 case FORMAT: 

149 5IF InitFormatReqO; 

150 LU break; 

151 hf9 case COMMAND: 

152 Z6A comraandO; 

153 OXF break; 

154 gI9 case BYTES: 

155 pfF calL_bytes(); 

156 Ra break; 

157 TK9 case MOVE: 

158 TsF Copy((B00L)l); 

159 Ud break; 

160 WD9 case MAKEDIR: 

161 RKF CalL_Rename((BOOL)1); 

162 Xg break; 

163 tv9 case TYPE: 

164 JTF TypeO; 

165 aj break; 

166 gT9 case HTYPE: 

167 oHF HTypeO; 

168 dm break; 

169 mh9 case SWAP: 

170 foF break; 

171 tq9 case DISKCOPY: 

172 5nF fexecl(''c:diskcopy'',''c:diskcopy*'); 

173 ir break; 

174 Qf9 case SHOWPIC: 

175 I6F showpicO; 

176 lu break; ( 

177 XP3 ] /* end of switch */ 

178 btO ] /* end of block */ 

180 xHA untersucht, welcher Block aktiv ist SOURCE oder D 

ESTINATION 

181 yhO Sat Apr 30 21:10:58 1988 

183 Gk checkblocksOI 

184 YJ2 if( MAIN_source.Flags & SELECTED) retum(SOURCE); 

185 16 if( MAIN_destination.Flags & SELECTED) return(DESTINATI0N 


case GADGETDOWN 


case GADGETUP 


/* Frage welches Gadget gedrueckt wurde 


struct IntuiMessage »mes; 
struct Gadget *igad; 

BOOL Block_Controll(),success; 

register LONG gadid,i,number,number2,number3; 

igad = (struct Gadget *) mes-> IAddress; /* Ptr auf Gad 

get */ 

gadid = igad->GadgetID; /* Eigene Identitaetsnummer »/ 
number = (gadid-3)+src.scroll_count; 
number2 = (gadid-19)+vlm.scroll_count; 
number3 = (gadid-48)+dst.scrolL_count; 


SOURCE-Block 


if( (gadid >= 3 && gadid <= 15) && (number < 
t.entrys-1) )( 

if(src.list.select[ number ] == 0) 
src.list.selectC number ]=1; 
eise 

src.list.selectC number ]=0; 
ClearBlock(S0URCE,gadid-3); 

DisplayFiles(SOURCE); 


DESTINATION-Block 

if( (gadid >= 48 && gadid <= 6l) && (number3 < 
ist.entrys-1) ){ 

if(dst.list.select[ number3 ] == 0) 
dst.list.selectC number3 ]=1; 
eise 

dst.list.selectC number3 ]=0; 

ClearBlock(DESTINATION,gadid-48); 
DisplayFiles(DESTINATION); 


186 MIO /*************************^****ii**ii***itititii^kii^*ikitit*ititititiiitit*it 

187 QZ5 Wenn rechte Maustaste ueber Directory gedrueckt wurde, 

aktuell machen 

188 PhO Sat May 07 13:10:37 1988 

189 Ut 

»********»»»**»»«/ 

190 08 Call_Mouse(x,y,Code) 

191 Fg3 SHORT x,y; /» Mauskoordinaten */ 

192 ub USHORT Code; 

193 5XC if( (x >= 37) && (x <= 242) && (y <= 179) )( 

194 VMF if(src.list.dirC((y-52)/10) + src.scrolL_cou 

nt] == 1)[ 

195 HWI PathCat(src.list.nameC((y-52)/10) + src.s 

croll^count],SOURCE); 

196 8n ClearAll(SOURCE); 

197 5g ReadJDirectory(src.spath,SOURCE); 

198 nrC if( (x >= 401) && (x <= 506) && (y <= 179) ) 


VOLUMES-Block 


if( (gadid >= 19 && gadid <= 27) && (number2 <= vlm.e 
ntrys-1) )( 

switch(checkblocks() )[ 
case SOURCE: 

src.depth=0; 
src.list.entrys=0; 
strcpy(src.spath,vlm.nC number2 ]); 
strcat(src.spath, ":*'); 

RefreshGList(&MAIN_s_path,MairLWindow,NUL 
L,1L); 

ClearAll(SOURCE); 

ReadJDirectory(src.spath,SOURCE); 
break; 

case DESTINATION: 
dst.depth=0; 


if(dst.list.dirC((y-52)/10) + dst.scrolL_cou 


AMIGA-SONDERHEFT 2 










rLOPPY-TOOLS 



»-J 

II 

II 

c 


268 RX 

register struct ViewPort *vp; 


200 azi 

PathCat(dst.llst.naine[((y-52)/10) + dst.s 


269 ZI 

static BOOL resizing; 



crolI_count],DESTINATION); 


270 tY 

vp = &(Maia_Window->WScreen-> ViewPort); 

201 I6E 

ClearAlK DESTINATION); 


271 g62 

switch(Code)| 


202 bJI 

ReacLDlrectory(dst.dpath,DESTINATION); 


272 Yj6 

case 0x50: 


203 VvO j/» end of block »/ 


273 q69 

SetRGB4(vp,OL,0x5L,0x5L,0x5L) 




274 YN 

SetRGB4(vp,IL,OxdL,OxbL,0x9L) 




275 FI 

SetRGB4(vp,2L,OxOL,OxOL,OxOL) 


205 RvJ 

Errechnet bei: what = 0 -> neue Poslti 


276 GJ 

SetRGB4(vp,3L,0xfL,0x7L,0x0L) 



on 


277 OX 

break; 


206 pwZ 

what = 1 -> neue Groess 


278 jv6 

case 0x51: 



e 


279 Ki9 

SetRGB4(vp,OL,OxaL,OxaL,OxaL) 


207 ZVO Sun May 01 16:15:40 1988 


280 r5 

SetRGB4(vp,IL,0x2L,0x4L,0x6L) 




281 Bq 

SetRGB4(vp,2L,0xfL,0xfL,0xfL) 




282 PT 

SetRGB4(vp,3L,OxOL,0x8L,OxfL) 


209 9U PropGad(flag,what) 


283 Ud 

break; 


210 lp3 

ULONG flag; 


284 u76 

case 0x52: 


211 Ji 

UBYTE what; 


285 vo9 

SetRGB4(vp,OL,OxOL,0x5L,OxaL) 


212 2y 

switch (flag) [ 


286 Dr 

SetRGB4(vp,IL,OxfL,OxfL,OxfL) 


213 sS6 

case SOURCE: 


287 zY 

SetRGB4(vp,2L,OxcL,OxcL,OxfL) 


214 kK 

switch(what){ 


288 VZ 

SetRGB4(vp,3L,OxOL,0x8L,OxfL) 


215 TJC 

case 0: 


289 aj 

break; 


216 xRF 

if(src.list.entrys >= l4)[ 


290 5J6 

case 0x53: 


217 FHC 

MAINLMAIN_s_propSInfo.VertPot=((ULONG)src.scrol 


291 Ph9 

Recall^default_color(); 



l_count^t65535/( (src. list. entrys-1) -12)); 


292 dm 

break; 


218 L8F 

eise 


293 DS6 

case 0x54: 


219 BXC 

MAIN_MAIN_s_propSInfo.VertPot=0; 


294 4R9 

if(resizing == 0)( 


220 TcF 

break; 


295 aOC 

SlzeWindow(Main_Window,(long)0,(long)-47); 

221 bsC 

case 1: 


296 Ms 

MoveWindow(Main_Window,(long)O,(long)20); 

222 3XF 

if(src.list.entrys >= 14)| 


297 Ip 

resizing=l; 


223 Hll 

MAIN_MAIN_s_propSInfo.VertBody = (UL0NG)6 


298 js9 

break; 



5535/(src.list.entrys/13+1); 


299 0e6 

case 0x55: 


224 REF 

eise 


300 Ca9 

if (resizing == 1)[ 


225 dpi 

MAIN_MAIN_s_propSInfo.VertBody = 65535; 


301 GxC 

MoveWindow(Maia_Window,OL,(long)-(Main_Window- 

226 Zi8 

break; 



>TopEdge)); 


227 dv9 

RefreshGList(&MAIN_s_prop,Main_Window,NULL,IL); 


302 rv 

SizeWindow(Main_Window,OL,(long)256-(MairuWindo 

228 bk 

break; 



w->Height)); 


229 M26 

case DESTINATION: 


303 It 

resizing=0; 


230 Oa 

switch(what)[ 


304 py9 

break; 


231 JzC 

case 0: 


305 Zq6 

case 0x56: 


232 e6F 

if(dst.list.entrys >= l4)( 


306 mc 

write_turbo_script(); 


233 tcD 

MAIN_MAIN_d_propSInf0.VertPot=((ULONG)dst.scro 


307 sl9 

break; 



ll_count^t65535/( (dst. list. entrys-1) -12)); 


308 KjO 


234 bOF 

eise 





235 x4C 

MAIN_MAIR_cLpropSInfo.VertPot=0; 


309 upL 

Sichert die aktuellen Workbench-Farben 

236 jsF 

break; 


310 8c0 

Mon May 02 19:45:10 1988 


237 r8C 

case 1: 


311 Sr 


238 kCF 

if(dst.list.entrys >= l4)[ 





239 mfl 

MAIK_MAIN_cLpropSInfo.VertBody = (ULONG)6 


312 Qc 

SaveDefaultColors() [ 



5535/((dst.list.entrys/13+1)); 


313 qv3 

register BYTE i; 


240 hUF 

eise 


314 PY 

for(i=0;i<=3;i++){ 


241 RMI 

MAIN_MAIN_d_propSInfo.VertBody = (ULONG)6 


315 PE6 

oldcolor[i] = GetRGB4(MaiiL-Window->WScreen->ViewPor 


5535; 



t.ColorMap,(long)i); 


242 py8 

break; 


316 SrO 


243 Rb9 

Ref reshGList (&MAIN_cLprop, MairuWindow, NULL, IL); 





244 rO 

break; 


317 OIC 

Schreibt die Default-Farben wieder in die Color 

245 nx6 

case 2: /* ProportionalGadget fuer Devices und Volum 



Map ein. 



es V 


318 ZWO 

Mon May 02 20:21:08 1988 


246 Gq 

switch(what)[ 


319 az 


247 zFC 

case 0: 





248 oGI 

if(vlra.entrys >= 5) 


320 OK 

RecalI_default_color()( 


249 6NC 

MAIN_MAIN_dev_propSInfo.VertPot=((ULONG)vlm.scr 


321 y33 

register BYTE i; 



olI_counti^65535/( (vlm. entrys-1)-3)); 


322 md 

register UWORD »ColorTable; 


250 rel 

eise 


323 as 

LoadRGB4(8t(MaiiL_Window->WScreen-> ViewPort) ,oldcolor,4L 

j251 TZC 

MAINLMAIN_dev_propSInfo.VertPot=0; 



); 


252 z8F 

break; 


324 azO 


253 70C 

case 1: 





254 ilF 

if(vlm.entrys >= 5){ 


325 FRD 

Rechnet Anzahl Bytes, die kopiert werden solle 

255 Mrl 

MAIN_MAIN_dev_propSInfo.VertBody = 65535/ 



n, aus. 



(vlm.entrys/4+1); 


326 RCO 

Sun Apr 24 17:13:28 1988 


256 xkF 

eise 


327 i7 


257 TFI 

MAIN_MAIN_dev_propSInfo.VertBody = 65535; 





258 5E8 

break; 


328 kc 

call_bytes(){ 


259 lt9 

RefreshGList(&MAIN_dev_prop,MaiiuWindow,NULL,IL); 


329 Ho3 

register int i; 


260 7G 

break; 


330 5z 

register ULONG total=0; 


261 103 

] /* end of switch */ 


331 RR 

char text[10]; 


262 azO 



332 uD 

switch(checkblocks())| 





333 o06 

case SOURCE: 


263 elR 

Auswertung von RAWKEYCodes 


334 Si9 

for(i=0;i< src.list.entrys;i++)( 

264 dCO 

Mon May 02 18:48:31 1988 


335 MvC 

if(src.list.select[i] == !){ 

265 17 



336 FIF 

total+=src.list.length[i]; 




337 MV9 

break; 


266 63 

Key_Call(Code,Qualifier) 


338 7n6 

case DESTINATION: 


267 193 

USHORT Code,Quallfier; 


Listing 5. (Fortsetzung) 
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339 CV9 for(i=0;i<dst.list.entrys;i++)( 

340 sPC if(dst.list.select[i] == 1)( 

341 5oF total+=dst.list.length[i]; 

342 Ra9 break; 

343 ql3 sprintf(text,'jCld'^,total); 

344 q62 WriteMessage(text); 

346 sY3 totales CleanUp fuer Debugger 

346 Na _abort()[ 

349 eE3 puts(''you have QÜIT rae IIIl'"); 

350 all MEK_cleanup(); 

351 iw MAIN_cleanup(); 

352 fAO exit(TRUE); 

353 3S /***^n^»*^^*******»**innnt****#*intint*»#»**innnnnnnf»**»*inj#}nnt* 

354 8pS Fuer die Block-Kontrolle 

355 QDO Sun May 22 13:20:09 1988 

357 Lr BOOL Block_Controll(gadid) 

358 k63 LONG gadid; 

359 II register int i; 

360 r7 register struct RastPort *rp; 

361 NW register ULONG xStart=304,yStart=97,count=0; 

362 QJ BOOL success; 

363 2p rp = mainRP; 

364 PL switch(gadid)[ 

365 Ku9 case SOURCE: 

366 gSF if( (MAIN_source.Flags & SELECTED) == 0)f 

367 JCI MAIN_destination.Flags = GADGHIMAGE+GADGI 

MAGE+SELECTED; 

368 2K RefreshGList(&MAIN_destinatlon,Main_Windo 

w,NULL,1L); 

369 aVF else[ 

370 Lul MAIN_destination.Flags = GADGHIMAGE+GADGI 

MAGE; 

371 5N • RefreshGList(&MAIN_destination,Main_Windo 

w,NULL,1L); 

372 kqF success=l; 

373 w5 break; 

374 hN9 case DESTINATION: 

375 NFF if( (MAIN_destination.Flags & SELECTED) == 0 


MAIN_source.Flags = GADGHIMAGE+GADGIMAGE+ 
SELECTED; 

Ref reshGList (&MAIN_source, Main>.Window, NUL 
L,1L); 
else{ 

MAIN_source.Flags = GADGHIMAGE+GADGIMAGE; 
Re freshGList(&MAIN_source,Main_Window,NUL 
L,1L); 
success=l; 
break; 

case S_PATH: 

ClearAll(SOURCE); 
src.depth = NewPath(src.spath); 

if( (stmcmp(src.spath, "ram:'",4)) == NULL)( 
strcpy(src.spath, "TlAM:''); 

Read_Directory(src.spath,SOURCE); 

successsl; 

break; 

case D_PATH: 

ClearAll(DESTINATION); 
dst.depth = NewPath(dst.dpath); 

if( (stmcrap(dst.dpath, "rain: ^,4)) == NULL)[ 
strcpy(dst.dpath, 'TlAM:"'); 

Read_Directory(dst.dpath,DESTINATION); 
success=l; 
break; 
case SPROP: 

src.scroll_count = ((ULONG)(src.list.entrys- 
13)*(ULONG)MAIN_MAIM_s_propSInfo.VertPot)/Oxf 
fff; 

SetAPen(mainRP,OL); 

RectFill(mainRP,32L,50L,250L,181I/); 
DisplayFiles(SOURCE); 
success=l; 
break; 
case DPROP: 

dst.scrolUcount = ((ULONG) (dst. list.entrys- 
13)*(ULONG)MAINJ<AIN_dLpropSInfo.VertPot)/Oxf 
fff; 
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408 6AA 

SetAPen(mainRP,OL); 

409 QqF 

RectFill(mainRP,396L,50L,6l4L,181L); 

410 f5 

DisplayFiles(DESTINATION); 

411 NT 

success=l; 

412 ZiA 

break; 

413 Yg9 

case DEVPROP: 

4l4 geC 

SetBPen(rp,OL); 

415 ih 

SetAPen(rp,2L); 

416 5K 

SetDrMd(rp,JAM2); 

417 9tF 

vlm.scroll_count = ((ULONG)(vlm.entrys-4)*(U 
LONG)MAIN_MAIN_dev_propSInf0.VertPot)/Oxffff; 

418 BM 

for(i=l;i< =4;i++)[ 

419 6el 

if( strlenO <= 6 )[ 

420 i5L 

Move(mainRP,(long)xStart,(long)yStart+ 
(i-l)»10); 

421 No 

Text(mainRP,vlm.n[i-l+vlm.scroll_count 
], (long) Strien (vlm. n [ i-l+vlm. scrolL.cou 
nt]) ); 

422 jsF 

break; 

423 Yb7 

case QUIT: 

424 mgF 

MEM_cleanup(); 

425 u8 

MAIN_cleanup(); 

426 rM 

exit(TRUE); 

427 dj 

success=l; 

428 py 

break; 

429 8J9 

case CLEAR: 

430 IHF 

ClearAllSelected((ULONG)checkblocks()); 

431 slA 

break; 

432 KH9 

case ALL: 

433 JRF 

SetAll((LONG)checkblocks()); 

434 v4 

break; 

435 e66 

case SUP: 

436 vlF 

do( 

437 AmE 

if(src.scroll_count > 0)[ 

438 CxL 

ScrollRaster(mainRP,0L,-10L,37L,52L,24 

9L,179L); 

439 3aF 

src.scroli^count—; 

440 BIG 

DisplaySingle(S0URCE,100L); 

441 kqL 

PropGad(SOURCE,0); 

442 hSi 

Delay(2L); 

443 6X9 

]while(!(64 & ^^((UBYTE *)0xbfe001))); 

444 uOF 

success=l; 

445 6F 

break; 

446 Ze9 

case SDOUN: 

447 6wF 

do[ 

448 Ndl 

if((src.list.entrys >= 14) && (src.scrol 
l_count <= (src.list.entrys)-l4))[ 

449 IwL 

ScrollRaster(mainRP,0L,10L,37L,52L,249 

L,179L); 

450 OTF 

src.scroll_count++; 

451 R2G 

Displaysingle(S0URCE,101L); 

452 vlL 

PropGad(S0URCE,0); 

453 sdl 

Delay(2L); 

454 HU 

]while(l(64 & *((UBYTE *)0xbfe001))); 

455 5BF 

success=l; 

456 HQ 

break; 

457 LL6 

case DSTUP: 

458 H7F 

do( 

459 xXE 

if(dst.scroll_count > 0)[ 

460 z3L 

ScrollRaster(mainRP,0L,-10L,401L,52L,6 

13L,179L); 

461 4eF 

dst.scrolI_count—; 

462 cLG 

DisplaySingle(DESTINATI0N,100L); 

463 fHL 

PropGad(DESTINATI0N,0); 

464 3oI 

Delay(2L); 

465 St9 

]while(!(64 & ^^((UBYTE *)0xbfe001))); 

466 GMF 

success=l; 

467 Sb 

break; 

468 tJ9 

case DSTDOWN: 

469 SIF 

do[ 

470 bql 

if((dst.list.entrys >= 14) && (dst.scrol 
l_count <= (dst.list.entrys)-l4))[ 

471 WJL 

ScrollRaster(mainRP,0L,10L,401L,52L,6l 

3L,179L); 

472 IXF 

dst.scroll_count++; 

473 scG 

DisplaySingle(DESTINATION,101L); 

474 qSL 

PropGad(DESTINATI0N,0); 

475 Ezl 

Delay(2L); 

476 d4A 

}while(I(64 & ^^((UBYTE »)0xbfe001))); 

477 RXF 

success=l; 

478 dm 

break; 

479 hH9 

case PARENT: 

480 yMA 

switch( checkblocksO ){ 

481 Cml 

case SOURCE: 

482 GpO 

Parent_Dlr(src.spath,SOURCE); 




rLOPPY-TOOLS 


19 TLl 

= = = = = = = = S = = = S = SSSS = S = S = =S=X f 

20 OUO extern struct Source src; 

21 8o 

extern struct Destination dst; 

22 Fl 

extern struct Voluraes vlm; 

23 EP 

extern struct GfxBase ^tGfxBase; 

24 ql 

extern struct RastPort «mainRP; 

25 T2 

extern struct Window »Main_Window; 

26 TI 

extern struct DosLibrary ^^DOSBase; 

27 wV 

extern struct NewWindow rename_nw; 

28 r4A 

struct Window *Rename_Window; 

29 aßO extern struct NewWindow fonnat_nw; 

30 XzA 

struct Window »Forraat_Window; 

31 IQO extern UBYTE MessageLine[80]; 

32 yc 

extern UBYTE r_nL.buffer[80]; 

33 Uv 

extern UBYTE diskname_buffer[80]; 

34 XE 

extern struct Gadget MAIN_raessage; 

35 mE 

extern struct Gadget rename_r_jn; 

36 ER 

extern struct IntuiText forniat_IText2; 

37 qy 

static char *block_pfad[l]; 

38 yN 




39 d5X 

Funktion fuer: 

40 QqN 

Directory loeschen -> flag = 1 

41 mD 

Directory kopieren -> flag = 0 

42 4p0 Wed Oct 5 14:34:07 1988 

43 8X 



* » * * iHJ / 

44 BZ 

CopyDir(directory,flag,move) 

45 EE2 

char directoryC]; 

46 NB3 

ULONG flag; 

47 kn 

BOOL move; 

48 rW 

struct FileLock «dirlock,«oldlock; 

49 U5 

WORD success,check; 

50 Ld 

register int i,t; 

51 cC 

if((block_pfad[0][0] == NULL))[ 

52 L16 

if(l(block_pfad[0]=AllocMera(300L,MEMF_CHIP] MEMF.CLEAR 


»11 

53 rS9 

I(block_pfad[l]=AllocMera(300L,MEMF_CHIPl MEMF.CLEAR 


»)( 

54 6N 

WriteMessage('no raemory free !"); 

55 fs3 

namecat('',block_pf ad [SOURCE], SOURCE); 

56 en 

namecat(directory,block_pfad[SOURCE],3L); 

57 9n 

naniecat( '"',block_pf ad [DESTINATION], DESTINATION); 

58 13 

namecat(directory,block_pfad[DESTINATION],3L); 

59 tH 

f(flag == 1)( 

60 4r6 

if((dirlock=Lock(block_pfad[checkblocks()],ACCESS_REA 


II 

II 

o 

61 Jc9 

WriteMessageC'can't lock selected dir I''); 

62 TQ6 

goto end; 

63 eZ3 

else[ 

64 996 

if((dirlock=Lock(block_pfad[SOURCE],ACCESS_READ))==0) 

\ 

65 ng9 

WriteMessage("'can‘t lock selected dir l'"); 

66 XU6 

goto end; 

67 Y03 

oldlock=CurrentDir(dirlock); 

68 JN 

GetDir(dirlock,flag,move); 

69 DM 

end:; 

70 5e 

oldlock=CurrentDir(oldlock); 

71 JT 

UnLock(dirlock); 

72 qB 

if(flag == 1)( 

73 kQ6 

if(DeleteFile(block_pfad[checkblocks()])==0){ 

74 D09 

detect_errors(); 

75 Gr 

retum(-l); 

76 Xh3 

block_pfad[0][0]=0; 

77 iE 

FreeMem(bloclc.pfad[0] ,300L); 

78 pH 

FreeMem(blocle.pfad[l] ,300L); 

79 zDO GetDir(curr_lock,flag,move) 

80 x52 

struct FileLock «curr^lock; 

81 wk3 

ULONG flag; 

82 JM 

BOOL move; 

83 TT 

struct FileLock «njewlock,«oldlock,«ignorelock,«dirlock; 

84 Le 

struct FilelnfoBlock «fib; 

85 8R 

static BYTE loop; 

86 5g 

WORD success,check; 

87 wE 

register int i,t; 

88 IL 

check=checkblocks(); 

89 8j 

if(flags=l) goto next; 


91 532 

Directory im Destination- 

92 4k3 

Dir schon vorhanden ? 

93 fXl 


94 3z3 

if( (ignorelock * Lock(block_pfad[DESTINATION],ACCESS_RE 


AD)) NULL)[ 

Listing 6. »sc4.c« bitte mit dem Checksummer eingeben 


483 luG 

RefreshGList(&MAIN_s_path,Haln_Wlndow,NULL, 

IL); 

484 mR 

ClearAll(SOURCE); 

485 jKO 

Read_Directory(src.spath,SOURCE); 

486 lu 

break; 

487 WCC 

case DESTINATION: 

488 uBO 

Parent_Dir(dst.dpath,DESTINATION); 

489 wWG 

RefreshGLlst(&HAIN_d_path,Maln_Wlndow,NULL, 

IL); 

490 xl 

ClearAll(DESTINATION); 

491 GyO 

Read_Directory(dst.dpath,DESTINATIO 

N); 

492 rO 

break; 

493 hnF 

success=l; 

494 t2 

break; 

495 qu6 

case ROOT: 

496 qaA 

root_dir(); 

497 w5F 

break; 

498 509 

case SWAP: 

499 x6F 

swapO; 

500 z8 

break; 

501 FH9 

default: success=0;break; 

502 993 

] /«end of switch«/ 

503 CZ2 

retum( success); 

504 oiO } /« end of Block «/ 

505 Vu 


506 cFI 

Testet ob Message vorliegt, wenn Ja -> T 

RUE 

507 460 Wed Jun 01 11:07:46 1988 

508 d2 

*****»»#*** »«» *«*«*«***»«*»** tut* tut * tut tut * * 

509 tm 

LONG Wait_on_Message(window) 

510 V13 

struct Window «window; 

511 OX 

register struct IntuiMessage «raessage; 

512 Ea 

LONG gadid; 

513 pV 

message = (struct IntuiMessage «)window->UserPort->mp_ 
MsgList.lhJiead; 

514 uS 

while (message-> ExecMessage.mn_Node.IrujSucc) 

515 vQ 

gadid = (struct Gadget «) (message-> IAddress)->GadgetI 

D* 

516 Cz6 

if (message-> dass == GADGETUP) [ 

517 Ea9 

raessagesGetMsg(window-> UserPort); 

518 TU 

ReplyMsg(message); 

519 HC 

retum( gadid); 

520 Y16 

if (message->Class == GADGETDOWN)[ 

521 Ie9 

message=GetMsg(window-> UserPort); 

522 XY 

ReplyMsg(message); 

523 LG 

retum( gadid); 

524 Sr6 

message s (struct IntuiMessage «)message->ExecMessag 
e.mn_Node.InJSucc; 

525 Zq3 

retum (FALSE); 

Listing 5. (Schluß) 



Programmname: 

SC4.C 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Bemerkung: 

siehe Listing 1 


1 NraO 

/#»««**»»»*«*»«#» »tut tut * tut * tut * tnnnnt »tunt tnnnnnnt * * 

2 Sc6 

Supercopy vl.O (w) in 1988 by Eichenberger Software P 
roduction 

3 CpG 

loeschen und kopieren von Directorys und ma 
kedir 

4 XZU 

TURBO-script creater 

5 N70 

Wed Oct 5 14:34:15 1988 

6 Az 

* innnnnnt » * » * *SC4«/ 

7 rG 

/)t=s = ssssss = ===== = = = s = = = ss = 

8 uV4 

HEADERS 

9 JBl 

===========sss=======s**eSÄ/ 

10 WzO 

# include < functions.h > 

11 dO 

# include <vd0:sc_struct.h> 

12 wL 

/Ä=====ss=========ssass=s== 

13 2w4 

DEFINES 

14 OGI 

SS=========S=============SÄ/ 

15 KxO 

#define SOURCE OL 

16 w6 

#define DESTINATION IL 

17 IQ 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

11 

II 

H 

18 YA4 

GLOBALE VARIABLEN 
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Programmname: 

SC5.C 

Computer: 

A500, A1000, A2000 mit Kickstart 1.2 

Sprache: 

c 

Bemerkung: 

siehe Listing 1 


95 616 

WriteMessage( "creating a new directory.; 

96 Tu 

if(!(dirlock=CreateDir(block_pfad[DESTINATION])))[ 

97 aN9 

detect_errors(); 

98 Au6 

UnLock(dirlock); 

99 m23 

if(ignorelock != NULL) UnLock(ignorelock); 

100 RuO 

next: 

101 sM3 

fib = (struct FilelnfoBlock *) 

102 1P9 

AllocMem((long)slzeof(struct FilelnfoBlock),MEMF_C 

HIP] MEMF_CLEARl MEMF_PUBLIC); 

103 yW3 

successsExamlne(curr_lock,fib); 

104 ez 

1=0; 

105 zy 

if(flag==0) check=l; 

106 ko2 

while (success != 0) 

107 xZ6 

success = ExNext(curr_lock,fib); examine the n 

ext entry »/ 

108 5h 

if(success 1= NULL){ 

109 Jq9 

lf((flb->flb_EntryType > 0) && (success 1= NULL) 

)1 

namecat (&f Ib- > f lb_FlleName [0], bloclc_pf ad[check 
),3L)j 

110 XaC 

111 Og 

newlock=Lock(&fib-> fib_FileName[0]);/* neues D 
irectory 'locken' */ 

112 Fj 

oldlock=CurrentDir(newlock); Director 

y aktuell machen */ 

113 ün 

Ge tDir(newlock,flag,(BOOL)0); 

114 Ek 

UnLock(newlock); 

115 Xs 

lf(flag == 1){ 

116 OQF 

if(DeleteFile(block_pfad[check])==0){ 

117 Uhl 

detect_errors(); 

118 xY 

retum(-l); 

119 lAC 

oldlock=CurrentDir(curr_lock); 

120 bL 

if(flag==l) Examine(curr_lock,fib); /* nur wenn 
im Delete-Modi 

121 cw 

Parent_Dir(block_pfad[check],2L); 

122 bW9 

else{ 

123 EbC 

if(flag==0)[ 

124 Z5F 

if(copy_file(block_pfad[check],&fib-> fib_Fi 
leNameCO]) == -1)( 

125 URI 

goto end; 

126 i3C 

lf(flag == 1)[ 

127 p9F 

if(fib->fib_EntryType <= 0)[ 

128 niFI 

if(delete_files(block_pfad[check],&fib-> 
fib_FileName[0],fib,curr.lock)==-l) ( 

129 YVC 

goto end; 

130 Dm 

if(move == 1)[ 

131 tDF 

if(fib->fib_EntryType <= 0)( 

132 yhl 

if(delete_files( '^'',&fib-> fib_FileNarae[0] 

,fib,curr^lock)==-l)( 

133 cZ 

goto end; 

134 wu9 

i-H-; 

135 fYO 

end: 

136 Iz3 

FreeMera(fib,(long)sizeof(struct FilelnfoBlock)); 

137 c80 

copy_file(dst,source) 

138 6n3 

char dst[],source[]; 

139 D4 

register struct FlleHandle *fhl,*fh2; 

140 Gs 

char filenarae[500],destination[500]; 

I4l ig 

struct FileLock ^^oldlock; 

142 2p 

char ^^file_buffer; 

l43 mn 

LONG error; 

144 Qm 

LONG count,countl; 

145 pv 

struct FileHandle »0pen(); 

146 ZQ 

sprintf(destination, "'Jts/J{s'',dst,source); 

147 ED 

WriteMessage(source); 

148 dl 

if((fhl = 0pen(source,M0DE_0LDFILE))==0)[ /* source nam 
e */ 

149 lu6 

puts('"can't open'"); 

150 PP 

error = IoErr(); 

151 mM 

goto cleanup; 

152 6b3 

if((fh2 = 0pen(destination,M0DE_NEWFILE))==0)[ /* dst n 
ame */ 

153 py6 

puts('"can't open'"); 

154 TT 

error = IoErr(); 

155 qQ 

goto cleanup; 

156 513 

file_buffer = (char «)AllocMem(ll264L,MEMF_CLEAR); 

157 9g 

while(count=Read(fhl,file.buffer,5632L)){ 

158 Yv6 

if(count == -1){ 

159 Jo9 

WriteMessage( ""Read-Error - corrupt File !'"); 

160 Re 

FreeMem(file_buffer,11264L); 

161 Xm 

Close(fh2);Close(fhl); 

162 fO 

retum(-l); 

163 EP6 

if(Write(fh2,file_buffer,(L0NG)count) != count)[ 

164 JB9 

WriteMessage( 'Vrite-Error'"); 

165 Wj 

FreeMem(file.buffer,11264L); 

166 er 

Close(fh2);Close(fhl); 

167 kL 

retum(-l); 


168 5b0 cleanup: 

169 kt3 

if(file_buffer) FreeMera(file_buffer,11264L); 

170 Ca 

if(fh2) Close(fh2); 

171 8U 

if(fhl) Close(fhl); 

172 vOO ) 

/» end of block */ 

173 Is delete_files(dst,source,fib,lock) 

174 gN3 

char dst[],source[]; 

175 o7 

struct FilelnfoBlock *fib; 

176 hK 

struct FileLock ^»lock; 

177 rT 

char filename[500],destination[500]; 

178 GP 

register ULONG success; 

179 142 

if(dst[0] 1= 0){ 

180 S16 

switch(checkblocks()) { 

181 Mw9 

case SOURCE: 

182 whF 

if(source[0] 1= NULL) 

183 68 

if(D€leteFile(source)==0)( 

184 zml 

detect_errors(); 

185 2d 

return(-1); 

186 03F 

success=Examine(lock,fib); 

187 w5 

break; 

188 hN9 

case DESTINATION: 

189 3oF 

if(source[0] != NULL) 

190 H8I 

sprintf(destination, "Jfs/^s'",dst, source); 

191 uhF 

eise 

192 Qzl 

strcpy(destination,dst); 

193 fqF 

if(DeleteFile(destination)==0)[ 

194 9wl 

detect_errors(); 

195 Cn 

retum(-l); 

196 ADF 

success=Examine(lock,fib); 

197 6F 

break; 

198 fa6 

retum(O); 

199 ql3 

else( 

200 NP6 

if(DeleteFile(source)==0)( 

201 G39 

detect_errors(); 

202 Ju 

retum(-l); 

203 HK6 

success=Examine(lock,fib); 

204 lg 

retum(O); 

205 SXO ) 

/» end of block »/ 

206 E6 write_turbo_script()( 

207 Q13 

FILE »fp; 

208 Be 

char pfad[500]; 

209 Ls 

register int i; 

210 sc 

fp=fopen('"script.asc'", '"a'); 

211 xG 

switch(Checkblocks())[ 

212 rR6 

case SOURCE: 

213 VI 

for(i=0;i< sre.list.entrys;i++) ( 

214 3zC 

lf((src.llst.select[l] »» 1) && (sro.llst.dir[l 
] 1= 1))( 

215 2dF 

namecat(sre.list.name[i],pfad,SOURCE); 

216 Pd 

fprintf(fp, '"^s\n'",pfad); 

217 Aq6 

case DESTINATION: 

218 FY 

for (i=0; i < dst. list. entrys; i-H-) [ 

219 y8C 

lf((dst.llst.seleot[i] == 1) && (dst.list.dir[l 
] 1= 1))1 

220 raRF 

namecat(dst.list.name[i],pfad,DESTINATION); 

221 Ui 

fprintf(fp, '"^s\n'',pfad); 

222 dd3 

)/*end of switch»/ 

223 Jb 

fclose(fp); 

(C) 1988 

M&T ListIngG. (Schluß) 


1 NmO /»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»«»»«««««««!( 

2 Sc6 

Supercopy vl.O (w) in 1988 by Eichenberger Software P 
roduction 

3 KdR 

Formatieren einer Diskette 

4 EnO Sat May l4 17:15:41 1988 

5 3w 

**«ÄÄ*)nnnfint*SC3» / 

6 qF 

/» = = rss== ===== = s: = ====s = s === 

7 tU4 

HEADERS 

8 lAl 

========.=======.=========v 

9 VyO 

#inclüde < functions.h > 

10 42 

#include < devices/trackdisk.h > 

11 dO 

#include < vdO:sc_struct.h > 

12 wL 


13 2w4 

DEFINES 

14 OGI 



106 
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15 KxO #define SOURCE OL 

16 w6 #define DESTINATION IL 

17 IQ /ÄSSSSSSSSSS==============S 

18 yA4 GLOBALE VARIABLEN 

19 TLl ==========================V 

20 OUO extern struct Source src; 

21 8o extern struct Destination dst; 

22 Fl extern struct Volumes vlm; 

23 EP extern struct GfxBase »GfxBase; 

24 qi extern struct RastPort *mainRP; 

25 Sk extern struct DosLibrary ^^DOSBase; 

26 DL extern UBYTE MessageLine[80]; 

27 tX extern UBYTE r_nL.buffer[80]; 

28 Pq extern UBYTE disknaine_buffer[80]; 

29 S9 extern struct Gadget MAIN_jnessage; 

30 h9 extern struct Gadget renaine_r_jn; 

31 c2 extern struct Image FRM_Image2; 

32 JH extern struct Image FRM_Image9; 

33 nit extern struct Image FRM_drive; 

34 Qq extern struct Image FRM_format_rot; 

35 Ys extern struct Image FRM_format_weiss; 

36 Me extern struct Image verify_img; 

37 Ce extern struct Border FRM_Border4; 

38 cK extern struct NewWindow FRM_nw; 

39 8h extern struct NewWindow rename_nw; 

40 iH extern struct Window *Maia_Window; 

41 IAA struct Window *Format_Window; 

42 51 struct Window *Rename_Window; 

43 srO extern VOID drawbox(); 

44 So extern struct Gadget FRM_diskname; 

45 wd #define FRM_ImageListl FRM_Iraage2 

46 BV #define FRH3orderListl FRM_Border4 

47 WK #define NUMCYLS 80 /» normal # of cylind 

ers */ 

48 lY #define MAXCYLS (NUMCYLS+20) max # cyls to look 

for during cal */ 

49 Nq #define NUMHEADS 2 

50 4B #define NUMTRACKS (NUMCYLS^NUMHEADS) 

51 JW #define BLOCKSIZE TDJSECTOR 

52 hn #define CYLSIZE BLOCKSIZE^^NUMHEADS»NUMSECS 

53 py #define MOTOIUON 1 

54 cE #define MOTOIUOFF 0 

55 EI struct MsgPort ^diskport; 

56 Ik struct lOStdReq «diskreq; 

57 n2 ULONG openerror = -999; 

58 QL ULONG Block; 

59 hF char maskC]=( 1,4,9] ;/*V 

60 uR unsigned char «disk_memory,»abfalLjnemory; 

61 ae ULONG «buf; 

63 9NH Format Requester init. und auf Aktionen wa 

rten 

64 TsO ««««««« 

65 nV InitFormatReqOf 

66 KW3 register LONG success; 

67 o82 struct IntuiMessage «Message; 

68 U9 register WORD mouse_x,mouse_y; 

69 Y23 register struct RastPort «rp,«0pen_FormatWlndow(); 

70 31 struct IntuiMessage «Wait_for_Message(); 

71 zB BOOL verify_flag=l; 

72 aT2 LONG drive=0,test_drive,Check_connected_Drives(); 

73 9V3 LONG gadid; 

74 JL ULONG count; 

75 JD rpaOperL-FormatWindowO; 

76 k02 test_drive=Check_connected_Drives(); 

77 Fi3 ActivateGadget(&FRM_diskname,Format_Window,NULL); 

78 gq F0REVER{ 

79 lr6 Message=Walt_for_Message(Format_Window,lL); 

80 DY5 gadid = (USHORT)((struct Gadget «) Message->IAddress) 

-> Gadget ID; 

81 6J6 if(gadid == CANCEL){ 

82 Nf CloseWindow(Format_Window); 

83 0Z9 retum(FALSE); 

84 ct6 if(Message->Class == RAWKEY){ 

85 H09 switch(Message->Code){ 

86 hwC case 0x34: /« fuer ’V «/ 

87 cdF if(verify_flag == l)( 

88 Fel verify_flag=0; 

89 Xb DrawImage(rp,&verify_img,0L,0L); 

90 50E elsel 

91 Mml verify_flag=l; 

92 Gs RectFill(rp,232L,52L,(long)232+30,(long)5 

2+14); 


break; 

if((gadid == OK) ]] (gadid == DISKNAME))( 

FormatingDisk(drive,diskname_buffer,verify_flag,rp 


CloseWindow(Format_Window); 

/* FormatingDisk(drive,diskname_bu ffe r,verify_flag, 

rp);V 

goto quit; 

if(Message->Class == M0USEBUTT0NS)( 
mouse_x=Message-> MouseX; 
mouse_y=Message-> MouseY; 
if((mouse_x >* 75) && (mouse_x <= 158) &Se 
(raouse_y >= 36) && (mouse_y <= 45))[ 
count = (mouse_x-75)/28; /« 0, 1, 2 «/ 

if((test_drive&mask[co\int])=sO) goto weiter; /« 


106 daA SetAPen(rp,0L); 

107 TMC RectFill(rp,80L,25L,170L,35L); /« aktelies drl 

ve loeschen«/ 

108 ry DrawImage(rp,&FRM_drive,(long)(count«30),0L); 

109 wQ drive=count; 

110 zK6 weiter: 

111 W30 quit: 

112 AZ /««««««««««««««««««*««««««««««««««««««««««««««««««*«««««««« 

113 6PR Formatieren einer Diskette 

114 HgO «««««««««««*«««««««*««««««*««««««««««««««««««««*«««*««««»»« 

115 3J FormatingDisk(Drive,diskname,verify_flag,rp) 

116 0d3 ULONG Drive; 

117 pe UBYTE diskname[]; 

118 Np2 BOOL verify_flag; 

119 DT3 struct RastPort «rp; 

120 qW register ULONG i,n; 

121 vh2 char text[3]; 

122 ht3 LONG Wait_oruMessage(); 

123 11 0pea_All(Drive); 

124 Rp SwitchMotor(M0T0IL.0N); 

125 gn for(ir0;i<NUMCYLS; i++)( 

126 0y5 SetAPen(rp,lL); 

127 Qf6 SetDrMd(rp,JAM2); 

128 Ew sprintf(text,'$ld',i); 

129 An Move(rp,200L,63L); 

130 aT Text(rp,text,(long)strlen(text)); 

131 KL if(verify_flag == 1)( 

132 kG9 DrawImage(rp,&FRM_format_rot,0L,0L); 

133 GO FormatCylinder(i,disk_memory); 

134 7y if(Wait_orL_Message(Format_Window) == CANCEL){ 

135 ebC goto end; 

136 mk9 DrawImage(rp,&FRM_format_weiss,0L,0L); 

137 Lz DrawImage(rp,&FRM_format_rot,0L,8L); 

138 GS if(Read_DiskBlock(i,abfalLjnemory,(BOOL)l)==-l)[ 

139 aGC puts('Verify^Error !!!*); 

140 c49 DrawImage(rp,&FRM_format_weiss,0L,8L); 

141 up6 else{ 

142 uQ9 DrawImage(rp,&FRM_format_rot,0L,0L); 

143 QA FormatCylinder(i,disk_meraory); 

144 H8 if(Wait_on_Message(Format_Window) ** CANCEL){ 

145 olC goto end; 

146 wu9 DrawImage(rp,&FRM_format_weiss,0L,0L); 

147 Io3 W ilte_DiskInformation(diskname); 

148 slO end: 

149 s03 SwitchMotor(M0T01L.0FF); 

150 mK cleanup(NULL); 

151 BaO /«=ssss=s================== 

152 2Y4 alles freigeben 

153 dVl ==========================«/ 

154 hCO cleanup(mes) 

155 lU char «mes; 

156 BL3 if (mes) puts(mes); 

157 wV /« drive dfO: wieder freigeben «/ 

158 Cx if(Iopenerror) CloseDevice(diskreq); 

159 er if(diskreq) DeleteStdlO(diskreq); 

160 F6 if(dlskport) DeletePort(diskport); 

161 2D if(disk_memory) FreeMem(disk_memory, (ULONG)CYLSIZE); 

162 7o if(abfalljiiemory) FreeMem(abfalL_memory, (ULONG)CYLSIZE) 


163 NmO /«===r==s=s================ 

164 So4 Drive ein/aus 

165 phl ==========================«/ 

166 zlO SwitchMotor(onoffswitch) 

167 LU ULONG onoffswitch; 

168 tI3 diskreq-> io^Length = onoffswitchj 
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169 xo 

diskreq-> io_Conimand * TD_M0T0R; 


170 uC 

DoIO(diskreq); 


171 w70 

/» lesen eines Blocks von Diskette 


172 Eh 

ReadJ)iskBlock(block, buf,flag) 


173 pG 

ULONG block; 


174 pQ 

unsigned char ^^buf; 


175 Fp 

BOOL flag; 


176 lk3 

diskreq->io_Length = BLOCKSIZE; 


177 W 

if(flag *= 1) diskreq->io_Length = CYLSIZE; 


178 le 

diskreq->io_Data = (APTR) buf; 


179 Pe 

diskreq->io.Coramand = CMD_READ; 


180 nC 

diskreq->io_Offset = block*BL0CKSIZE; 


181 ct 

if(flag == 1) diskreq->io_Offset = block»CYLSIZEj 


182 60 

DoIO(diskreq); 


183 Jg 

if(diskreq->io_Error != 0){ 


184 nt6 

puts('' *** Read-Error ***''); 


185 zl 

printfC*'— Block nr. $d — Error Number is: 

J^dVn", 


block, diskreq-> ioJError); 


186 3e 

retum(-l); 


187 UP3 

return(O); 


188 mBO 



189 Q44 

schreiben eines Blocks 


190 E61 



191 L20 Urite_DlskBlock(block,buf) 


192 Is2 

int block; 


193 AS3 

UBYTE *buf; 


194 J2 

diskreq->io_Length = BLOCKSIZE; 


195 Iv 

diskreq->ioJData = (APTR) buf; 


196 ao 

diskreq-> io_Command = CMD_WRITE; 


197 4T 

diskreq->lo_Offset = block^^BLOCKSIZE; 


198 Me 

DoIO(diskreq); 


199 zw 

if(diskreq->io_Error != 0)[ 


200 Ws6 

puts('^ Write-Error 


201 Fl 

printfC— Block nr. — Error Number is: 

%d\n\ 


block,diskreq->io_Error); 


202 OPO 

/^====SS===SS====SSS==S=S== 


203 Q14 

Updaten eines Blocks 


204 SKI 

========ss=sss=========sss#/ 


205 mWO UpDateO 


206 z83 

diskreq->io_Command = CMD_UPDATE; 


207 Vn 

DoI0(diskreq); 


208 85 

if(diskreq-> io_Error 1= 0)[ 


209 AG6 

puts('' *** UpDate-Error ***'^); 


210 hZ 

printf('^rror Number is; <ld\n*,diskreq->io_Error); 

211 9yo 



212 XCl 

Track formatieren -> ohne Verify 


213 bT 



2l4 690 ForinatCylinder(cyl, buf) 


215 pq3 

LONG cyl; 


216 Xp 

UBYTE *buf} 


217 wH 

diskreq->io_Length = CYLSIZE; 


218 fl 

diskreq->io_Data = (APTR) buf; 


219 IK 

diskreq->io_Command = TD_F0RMAT; 


220 f<3 

diskreq->io^0ffset = cyl^^CYLSIZE; 


221 J1 

DoI0(diskreq); 


222 MJ 

if(diskreq-> io_Error 1= 0){ 


223 G06 

puts('' *** FORMAT-Error ***''); 


224 vn 

printf('^rror Number is: JfldXndiskreq->iojrror); 

225 NmO 



226 8Z 

Track formatieren -> mit Verify 


227 phl 



228 zhO Verify_Fonnat(cyl, buf) 


229 343 

LONG cyl; 


230 13 

UBYTE *buf; 


231 AV 

diskreq->io_Length = CYLSIZE; 


232 tW 

diskreq->io_Data = (APTR) buf; 


233 J9 

diskreq->io_Command = ETD_FORMAT; 


234 tr 

diskreq->io_0ffset = cyl^CYLSIZE; 


235 xF 

DoI0(diskreq) ; 


236 aX 

if( diskreq->io_Error 1= 0){ 


237 UE6 

puts('' *** FORMAT-Error «*«"); 


238 91 

printf(^rror Number is: jCldXndiskreq- > io_Error) ; 

239 bOO 

/it = = s = = = = = = s: = ss = = = a* = = = s = = = 


240 aD2 

Pruefsumme neu berechnen 


241 3vl 



242 4v0 CorrectBlockChecksuin(buf) 


343 yG 

UBYTE «buf; 


244 uS3 

ULONG checksum, «long_ptr; 


245 Qs 

LONG i; 


246 JH 

long_ptr = (ULONG «)buf; 


247 pC 

checksum * 0; 


248 8n 

for(i=0; i< BL0CKSIZE/4;i-H-) 


249 7x6 

checksum += long_ptr[i]; 



250 Jm3 

long_ptr[5] -= checksum; 


252 Qx4 

Block besetzen 

253 F71 

= = = sss = = ssss = = = = sssss = = = ss'K ^ 

254 190 Alloc_DiskBlock(block, buf) 

255 Jt 

int block; 

256 BT 

UBYTE «buf; 

257 s23 

ULONG «long_ptr * (ULONG «) buf; 

258 OQ 

LONG longword, bit, i; 

259 DD 

ULONG checksum; 

260 TO 

longword * (block-2)/32; 

261 x5 

bit = block-2-longword«32; 

262 SU 

long_ptr[longword+l] &= ««ß(lL< <bit); 

263 b9 

/« BAM checksumme berechnen «/ 

264 pH 

for(i=l,checksum « 0;i<BLOCKSIZE/4;i-H-) 

265 ND6 

checksum += long_ptr[i]; 

266 Sm3 

long_ptr[0] s -checksum; 

267 3S0 


268 Jo4 

oeffne Device, Port usw. 

269 VNl 

s=sss===s=sss===ssssss=s=s#/ 

270 c70 0pen_All(drlve) 

271 XL3 

LONG drive; 

272 xS 

/« CHIP Memory fuer buf holen «/ 

273 zk5 

if(I(disk_jnemory = AllocMem((LONG)CYLSIZE,MEMF_CHIP] ME 
MF_CLEAR))) 

274 NuD 

cleanup('^o memory l"'); 

275 2U5 

if(I(abfall_memory * AllocMera( (LONG)CYLSIZE,MEMF.CHIP 
]MEMF_CLEAR ) ) ) 

276 PwD 

cleanup( 'Ho memory 1 ') ; 

277 IZ3 

/« Port zur Kommunikation mit trackdosk.device aufbauen 
»/ 

278 Gt5 

if(I(diskport = CreatePort(''mydisk.port*', OL))) 

279 xk8 

cleanup("CreatePort failedl"); 

280 cH3 

/« StdIO-Block zur Kommunikation ueber 'diskport* aufbau 
en «/ 

281 KyA 

if(!(diskreq = CreateStdlO(diskport))) 

282 C38 

cleanup('CreateStdlO failedl"); 

283 w3 

/« reservieren der trackdisk.device dfO: «/ 

284 TR5 

openerror = OpenDevice(TD_NAME,(LONG)drive,diskreq,dri 

285 H98 

if(openerror) cleanup("OpenDevice failedl"'); 

286 MIO 

/«=======*=====»===*======* 

287 k24 

mache Disk Doswuerdig! ! 

288 ogl 

sss========a==srsss==ssss=«/ 

289 HMO Write_DiskInforraation(diskname) 

290 cs3 

Char diskname[]; 

291 bH 

register ULONG i,n; 

292 nQ 

ULONG «L_buf; 

293 Fo 

ULONG namelength; 

294 mO 

for(i=0;i<4;i++) 

295 SG6 

disk_meraory[i] * TX)S\0'[i]; 

296 m53 

Write_DiskBlock(0,disk_memory); 

297 Tb 

L.buf = (ULONG «)disk_memory; 

298 ER 

l_buf[0] = 2; 

299 Er 

L-buf[3] = 72; 

300 Wh 

l_buf[78] = Oxffffffff; 

301 JB 

l_buf[79] = 881; 

302 5L 

DateStamp(&l_buf[121]); 

303 KI 

DateStamp(&l_buf[105]); 

304 Ev 

disk_memory[432] * strlen(diskname); 

305 vN 

for(i=0;i< strlen(diskname);i++) 

306 B06 

disk_memory[433+i] = diskname[i]; 

307 NU3 

l_buf[127] = 1; 

308 fA 

CorrectBlockChecksum(dlsk_memory); 

309 eF 

Write_DiskBlock(880,disk_meraory); 

310 PI 

for(i=l;i<56;i-H-) 

311 br6 

l_buf[i] = Oxffffffff; 

312 1X3 

Alloc_DiskBlock(880,disk_memory); 

313 Oe 

Alloc_DiskBlock(881,disk_meraory); 

314 oQ 

Write_DiskBlock(881,disk_memory); 

315 Ju 

UpDateO; 

316 SrO 


317 u7N 

Format Window oeffnen und zeichnen 

318 AoO Sun May 15 10:24:39 1988 

319 az 


320 WK 

struct RastPort «OpenJ‘ormatWindow()[ 

321 EU2 

register struct RastPort «rp; 

322 X33 

register WORD i; 

323 6q 

static LONG yl[] = (8,10,12,14,16); 

324 dF 

static LONG y2[] * [78,80,82,84,86]; 

325 0u2 

Format_Window=OpenWindow((struct NewWindow «) &FRM_nw); 
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Ploppy-tools 


326 vu3 rp = Forraat_Window->RPort; 

327 FD SetAPen(rp,lL); 

328 IT for(i=0;l<5;i++)( 

329 FK6 Move(rp,9L,(long)yl[i]); 

330 tH Draw(rp,355L,(long)yl[i]); 

331 rH Move(rp,63L,(long)y2[i]); 

332 N3 Draw(rp,302L,(long)y2[i]); 

333 AJ3 Move(rp,lL,22L); 

334 pl Draw(rp,365L,22L); 

335 cl Move(rp,lL,47L); 

336 VP Draw(rp,365L,47L); 

337 W SetAPen(rp,3L); 

338 ta for{i=0;i<4;i-H-){ 

339 Jn6 drawbox(Format_Window->RPort,(long)187+i,(long)51+i, 

(long)l87+38-i,(long)51+18-i); 

340 cQ3 DrawBorder(rp,&FRfl_BorderListl,OL,OL); 

341 hl4 DrawImage(rp,&FRM_IraageListl,OL,OL); 

342 Ah DrawIraage(rp,&FRM_Image9,0L,0L); 

343 x43 DrawImage(rp,&FRM_drive,OL,OL); /* 

344 8r return(rp); 

345 YJO /* last Update: 

346 kT Wed Oct 5 14:34:41 1988 

347 e3 »/ 

348 x9 LONG Check_cormecte<LDrives()( 

349 rl3 register LONG i,n=0,count30; 

350 C7 static char <^drives[] = ('DFO'",'DFl','T)F2^ ; 

351 Gn for(i=0;i<=29;i-H-)( 

352 GE6 for(n=0;n<=2;n-H-)[ 

353 yni9 if(strcnip(vlm.n[i],drives[n]) == 0)[ 

354 snC count) =mask[n];/»V 

355 5P3 retum(count); 

(C) 1988 M&T 


Listing 7. (Schluß) 


Programmname: sc6.c _ 

_ Computer: A500, A1Q00, A2000 mit Kickstart 1.2 

_ Sprache: C _ 

Bemerkung: siehe Listing 1 

Prograramname: sc6.c 


1 NmO /****^**^**i^^*^*ii**ii*iiii****ii**it***ii**^*************ik******* 

Ä » « «im«* 

2 Sc3 Supercopy vl.O (w) in 1988 by Eichenberger Software Prod 

uction 

3 KPC 1. Zeigt die freie Speicherkapazitaet eines Lau 

fwerks an 

4 dT 2. Type und Typeh 

5 7WI 3. Command 


6 BtO 

Wed Oct 5 14:35:12 1988 



7 Yx 






8 sH 

/^3=S=S=SS3SSS==========SSS 



9 vW4 

HEADERS 



10 KCl 

SSSSSSSSSSSSSSSSSSSSS3SSSS*/ 



11 XOO 

#include < functions.h > 



12 el 

#include < vdO:sc_struct.h > 



13 xM 

/tt33333=SSS=S3====SS3SSSSSS 



14 3x4 

DEFINES 



15 PHI 

= = = = = = = = = = = 33 = 3 = = = = = = = = = = 3V 



16 nUO 

#define SPACE 

0x20 


17 qW 

#define BACKSPACE 

0x08 


18 lY 

#define LINEFEED 

OxOa 


19 nX 

#define RETURN 

OxOd 


20 We 

#define CSI 

0x9b 


21 al 

#define DEVICEL5TATUS_REP0RT 

0x36, 

0x6e 

22 OS 

#define WINDOW_STATUS_REQUEST 0x30, 

0x20, 0x71 

23 oX 

#define DELETELLINE 

0x4d 


24 Sg 

#define CURSOfUUP 

0x41 


25 Dn 

#define CURSORJX)WN 

0x42 


26 4F 

#define CURSOIUShift_UP 

0x54 


27 On 

#define CURSOR_Shift_DOWN 

0x53 



28 FP #define ARGl *(long_niemory+counter-»-l),*(long_memory+counte 

r+2), * (long_jnemory+counter+3), * (long_jneraory+counter+4) 

29 YB #define SOURCE OL 

30 AK #define DESTINATION IL 

31 Lv UBYTE del„line[] = {CSI,DELETE_LINE,CSI,Ox32,CURSOR>UP]; 

32 yi UBYTE change_color[] = [CSI,'2',' j *,'3','3S'4', »0','m' 


33 ONO CSI,'O*,';','3','4',‘OS'm* 

]; 

34 IhO /*==================s3asss= 

35 pR4 GLOBALE VARIABLEN 

36 kcl ========s=======ss===s=ss=#/ 


37 HIO extern struct Source src; 

38 P5 extern struct Destination dst; 

39 WI extern struct Voluines vlin; 

40 Vg extern struct GfxBase »GfxBase; 

41 7z extern struct RastPort »mainRP; 

42 kJ extern struct Window *Main_Window; 

43 k2 extern struct DosLibrary ^^DOSBase; 

44 Dm extern struct NewWindow rename_nw; 

45 BLA struct Window »Rename_Window; 

46 rSO extern struct NewWindow format_nw; 

47 oGA struct Window »Format_Window; 

48 pB7 struct Window »Type_Window; 

49 aiO extern UBYTE MessageLine[80]j 

50 Gu extern UBYTE r_ni_buffer[80]; 

51 niD extern UBYTE diskname_buffer[80] j 

52 pW extern struct Gadget MAINLmessage; 

53 4W extern struct Gadget rename_r_m; 

54 WJ extern struct IntuiText format_IText2; 

55 P4 struct IntuiMessage «message; 

56 e 3 /if = = = = = = = ss = = = = = = = = sss = = s = = 


57 6C4 Globale Variablen fuer Type-Window 

58 6yl =======S====S3==3333=SSr==»/ 


59 iVO struct MsgPort *Con_w_Port; 

60 ZH struct MsgPort *Con_r_Port; 

61 IL struct lOStdReq *CorL.w_Msg; 

62 42 struct lOStdReq *Con_r_Msg; 

63 wn ULONG conErr; 

64 L2 struct NewWindow Type_nw = [ 0,0,640,256,0,1,GADGETUP+M0USEB 

UTTONS+CLOSEWINDOW+RAWKEY, 

65 0X3 WINDOWCLOSE+WINDOWSIZING+WINDOWDEPTH+ACTIVATE,NULL,NULL, 

NULL,NULL,NULL,640,20,640,257, 

66 IK WBENCHSCREEN 

67 OKO ] ; 

68 XV struct FileHandle ^tfilehandle=0; 

liikunii*********^*** 

70 lv6 schreibt die aktuelle Diskettenkapazitaet in den 'fre 

e-space' block 

71 uEM wenn call = 0 *> die zahl addieren 

72 uE wenn call = 1 => die zahl subtrahie 

ren 

73 eE wenn call = 2 => aktualisieren 

75 Ol Write_Info(flag,call,zahl) 

76 rf3 ULONG flag; 

77 91 BOOL call; 

78 Cw ULONG zahl; 

79 pl static ULONG actual_diskspace[2]; 

80 rq struct InfoData «infodata; 

81 An4 struct FileLock ^^lock; 

82 ed2 char bytes[12]; 

83 uk3 LONG count; 

84 kl2 infodata * (struct InfoData *) AllocMem((long)sizeof(stru 

ct InfoData),MEMF_CLEAR); 

85 v03 SetAPen(mainRP,lL); 

86 pj2 SetDrMd(mainRP,JAM2); 

87 Vf3 switch(flag)( 

88 rR6 case SOURCE: 

89 in9 lock =Lock(src.spath,ACCESS_READ); 

90 JR Info(lock,infodata); 

91 Y7 if(stmcmp(src.spath,TUM:",4) 1= NULL){ 

92 G7 count=(infodata->icLNumBlocks-infodata->id_NumBl 

ocksUsed) 

93 MMG * (infodata->idLBytesPerBlock); 

94 L89 eise 

95 IWC count = AvailMem(MEMF_CHIP)+AvailMera(MEMF_FAST) 

96 n66 switch(call)[ 

Listing 8. »scG.c» bitte mit dem Checksummer eingeben 
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97 ZpC 

case 0: 

98 INF 

count+=zahl;break; 

99 duC 

case 1: 

100 7VF 

count-=zahl;break; 

101 or9 

if(count> 99999999) count==0; 

102 xL 

sprintf (bytes, '"J{81d^,count); 

103 YH 

Move(mainRP,182L,191L); 

104 ye 

Text(mainRP,bytes,(long)strlen(bytes)); 

105 278 

UnLock(lock); 

106 din6 

break; 

107 04 

case DESTINATION: 

108 F89 

lock =Lock(dst.dpath,ACCESS_READ); 

109 ck 

Info(lock,infodata); 

110 5S 

if(stmcmp(dst.dpath,'TIAM:'',4) 1= NULL)[ 

111 ZQ 

count=( infodata-> i<L_NuinBlocks-infodata-> id_NuniBl 
ocksUsed) 

112 ffO 

* (infodata->idLBytesPerBlock); 

113 eR9 

eise 

114 bpC 

count = AvailMem(MEMF_CHIP)+AvailMein(MEMF_FAST) 

115 6P6 

i 

switch(call)[ 

116 s8C 

case 0: 

117 KgF 

count+=zahl;break; 

118 wDC 

case 1: 

119 QoF 

count-=zahl;break; 

120 LR9 

if(count < 0) count = 0; 

121 Ge 

sprintf (bytes, ''Jt81d', count); 

122 TH 

Move(mainRP,182+364L,191L); 

123 Hx 

Text(mainRP,bytes,(long)strlen(bytes)); 

124 LQ 

UnLock(lock); 

125 w56 

break; 

126 Av3 

FreeMera(lnfodata,(long)sizeof(struct InfoData)); 

127 PoO 


128 alc 

TYPE 

129 pOO 

Tue May 17 19:00:55 1988 

130 Xw 


131 14 

Type()[ 

132 012 

struct IntuiMessage ^fMessage,»Wait_for_Message(); 

133 Y83 

■ register LONG gadid; 

134 04 

ULONG i=0,n=0,q; 

135 dH 

UBYTE *raybuffer=0,*0pen_type_things(); 

136 XI 

char ReadLBuffer[803; 

137 oM2 

char filename[180]; 

138 V53 

UBYTE zeilen_speicher[180]; 

139 Qu 

LONG laenge,z=0,FileSize(); 

140 Ol 

Wait_for_Click(Read_Buffer,filename,&laenge); 

I4l 6Z0 

next: 

142 263 

mybuffer=0perutype_things(filename,ilaenge); 

143 u5 

while((i < laenge)){ 

144 RR6 

while((»(mybuffer+i) 1= '\n») && (n<180)){ 

145 LP9 

zeileruspeicher [n++] (mybuf fer+i++); 

146 EC6 

if(n>136){ 

147 es9 

WriteMessage('incorrect. Use HTYPE I"); 

148 CO 

Close_type_things(&laenge,mybuffer); 

149 S3 

retum(-l); 

150 816 

ze i len_spe icher [n-f+] =' \n ’; 

151 Qd 

zeilen_speicher [n-H-] =NULL; 

152 aO 

n=0; 

153 FD 

i++; 

154 sn 

ConsoleStringWrite(Con_w_Msg,zeileruspeicher); 

155 p4 

Z-H-; 

156 He 

q=(Type_Window-> Height-27)/8; 

157 d2 

if(z==q)( 

158 jX9 

if(Wait_for_Space((UW0RD)0) == 0) goto end2; 

159 5h 

z=0; 

160 fd4 

)/^^ifV 

161 hq6 

end:; 

162 y30 end2: 

163 wc3 

Wait_forJ5pace((UWORD)l); 

164 mG 

WriteMessage( "“*) ; 

165 Tf 

Close_type_things(&laenge,mybuffer); 

166 2R0 


167 dQc 

HTYPE 

168 V60 Sun May 22 13:53:33 1988 



170 zü HType()[ 

171 Uo2 

struct IntuiMessage ^^Message; 

172 B13 

register LONG gadid; 

173 ZH 

ULONG i=0,n=0,q,buf=0,counter=0; 

174 EQ2 

ULONG ^^long_memory; 

175 FD3 

UBYTE «mybuffer=0; 


176 Bw 

.char ReacLBuffer[80]; 

177 S02 

char filename[180]; 

178 9j3 

UBYTE zeilen_speicher[180]; 

179 4Y 

LONG laenge,z=0,FileSize(); 

180 SP 

Wait_for_Click(ReacLBuffer,filename,&laenge); 

181 kDO 

next: 

182 gk3 

mybuffer= 0 pen_type_things(filename,&laenge); 

183 OsO /«««««/ 

184 i7 

/« = = = = = = = = = = = = s: = = = = = = = s: = =:s = 

185 dN 

n = Zaehler fuer 'zeileruspeicher* (UBYTE) 

186 PA 

buf = Zaehler fuer 'mybuffer' (UBYTE) 

187 B31 


188 3D3 

longjneraory = (ULONG «)mybuffer; 

189 ep 

while((i < laenge))[ 

190 nl 6 

sprintf(&zeilea_speicher[n],''J(04ld: $081x JtOBlx J{081x 
^081x 55081X ] *,i«4,«(long_memory+counter),ARGl); 

191 Jp 

n+=52; 

192 di 

Counter += 5; 

193 lg 

for (q= 0 ; q < 20 ; q-H-) { 

194 xr9 

lf((*(mybuffer+buf) <= 31 ) ]) (»(mybuffer+buf) > 

= 128))( 

195 GxC 

sprintf(&zeilen_speicher[n],"); 

196 kD 

buf-H-; 

197 7A 

n-H-; 

198 pk9 

else[ 

199 iSC 

sprintf(&zeilen_speicher[n], "J^c",«(mybuffer+buf 
)); 

200 oH 

buf-H-; 

201 BE 

n-H-; 

202 wl 6 

sprintf(&zeileruspeicher[n], ^) ;n-H-; 

203 9t 

sprintf (&zeilen_speicher[n], "Xn*^) ;n++; 

204 Mm 

i+=5; 

205 IV 

zeilen_speicher[n-H-] =NULL; 

206 Ss 

n= 0 ; 

207 75 

i++; 

208 kf 

ConsoleStringWrite(Con_w_Msg,zeilea_speicher); 

209 hw 

Z++; 

210 9 W 

q=(Type_Window-> Height-27)/8; 

211 Vu 

if(z==q)( 

212 kD9 

if(Wait_forJSpace((UW0RD)0) == 0) goto weiter; 

213 xZ 

z= 0 ; 

214 XV4 


215 glO weiter: 

216 nT3 

Wait_for_Space((UWORD)1); 

217 d7 

WriteMessage( ""') ; 

218 KW 

Close_type_things(&laenge,mybuffer) ; 

219 HgO /«========================= 

220 0 c 2 

eroeffnet alles wichtige 

221 jbl 


222 xqO 0pen_alL_Corx_things()[ 

223 iA3 

if (I (Con_w_Port = CreatePort ('^P-con-dev_writeOL))) [ 

224 yM4 

puts(*'I can't open the console-writeport I!"'); 

225 Bs 6 

kilL_al]_type(); 

226 Wz3 

if(I(Con_w_Msg = CreateStdI0(Con_w_Port)))( 

227 7K6 

puts(''I can't open the console-write-messageport 1 ! ") 

228 Ev 

kill_alLtype(); 

229 mU3 

if(1 (Con_j_Port s CreatePort(^P-con-dev_read',0L) ))[ 

230 r44 

puts(''I can't open the console-readport I!''); 

231 Hy 6 

kill.all_type(); 

232 el3 

if(I(Cori_r_Msg = CreateStdIO(Con_r_Port)))[ 

233 QD 6 

puts('^I can't open the console-read-messageport 1 !*'); 

234 Kl 

kill_all_type(); 

235 qy3 

if(I ( Type_Window = OpenWindow ( &Type_nw ))) | 

236 p 86 

puts(''I can't open my high quality spezial Window! ! 11 
llir); 

kill_all_type(); 

237 N4 

238 S23 

Con_w_Msg->io_Data = (APTR)Type_Window; 

239 Zp 

Con_w_Msg->io_Length = sizeof(«Type_Window) ; 

240 8 a 2 

if((conErr = 0penDevice(''console.device'^,0L,Con_w_Msg,0L) 
)!=NULL)[ 

241 WS 6 

puts(''I can't open the console.device'^) ; 

242 S9 

kill_all_type(); 

243 1L3 

Con_r_Msg->io_Device = Con_w_Msg-> io_Device; 

244 4H 

Con_r_Msg->io_Unit = Con_w_Msg-> io_Unit; 

245 h60 /«========================= 

246 8a4 

alles zurueckgeben 

247 911 


248 cLO kilL_al]_type()[ 

249 c53 

if ( IconErr ) CloseDevice ( Con_w_Msg) ; 

250 Ow 

if(Coruw_Port) DeletePort(Con_w_Port) ; 

251 vJ 

if(Con_r_Port) DeletePort(Con_r_Port); 

252 HB 

if(Con_w_Msg) DeleteStdI0(CorL.w_Msg); 

253 JT 

if(CorL.r_Msg) DeleteStdI0(CorLJ_Msg); 

254 8 r 

if(Type_Window) CloseWindow(Type_Window); 
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255 rGO /»========================= | 

256 1U4 

auf Con schreiben 

257 JBl 


258 9U0 ConsoleWrite(StdReq,String,length) 

259 k33 

struct lOStdReq »StdReq; 

260 P5 

UBYTE string[]; 

261 nJ 

ULONG length; 

262 Nn 

StdReq->io_Comraand = CMD_WRITE; 

263 9j 

StdReq->io_Data = (APTR)String; 

264 mc 

StdReq->io_Length = length; 

265 4L 

DoIO(StdReq); 

266 2R0 /*========================= 

267 4G4 

auf Con String schreiben 

268 UMl 


269 e40 ConsoleStringWrite(St(iReq,string) 

270 vE3 

struct lOStdReq »StdReq; 

271 aG 

UBYTE String[]; 

272 Xx 

StdReq-> io_Conunand = CMD_WRITE; 

273 Jt 

StdReq->io_Data = (APTR)string; 

274 bv 

StdReq->ioJLength * -IL; 

275 EV 

DoIO(StdReq); 

276 CbO 


277 c84 

Zeichen lesen 

278 eWl 


279 470 QueueRead(StdReq, buffer, length) 

280 50 

struct lOStdReq »StdReq; 

281 Q7 

char »buffer; 

282 63 

ULONG length; 

283 HE3 

StdReq-> io_Coinmand * CMD_READ; 

284 Mx 

StdReq->io_Data = (APTR) buffer; 

285 7x 

StdReq->io_Xength = length; 

286 96 

SendlO(StdReq); 

287 zOO 

288 YBT 

Warte auf Space-Taste 

289 2z0 

Sun May 22 10:06:35 1988 

290 TW 


291 hX 

Wait_for_Space(flag) 

292 u93 

UWORD flag; 

293 Fk 

ULONG MessageClass; 

294 cp 

USHORT Code; 

295 2s2 

struct IntuiMessage »message; 

296 613 

ConsoleWrite(Coa_w_Msg,change_color,9L); 

297 gX 

if(flag ==0) 

298 6Z6 

ConsoleStringWrite(CorL_w_Msg,•Xn»»» Please press SPAC 

E to continue.»»»''); 

299 eR2 

eise 

300 tI6 

ConsoleStringWrite(Con_wJ<sg,'^n»»» END OF FILE.»»»") 

301 dM3 

} 

ConsoleWrite(Coruw_Msg,&change_color[9],9L); 

302 IS2 

F0REVER{ 

303 xe4 

if (message = (struct IntuiMessage ») 

304 Hr8 

GetMsg(Type_Window-> UserPort)) ( 

305 599 

MessageClass ^ message->Class; 

306 Od 

Code = message->Code; 

307 45 

ReplyMsg(message); 

308 g3 

switch (MessageClass)( 

309 pl8 

case CLOSEWINDOW : 

310 TOC 

retum(O); 

311 w5 

break; 

312 Ac 

case RAWKEY: 

313 QMI 

switch(code)( 

314 eKL 

case 64: 

315 TOI 

ConsoleWrite(Con_w_Msg,&del_line[0],2L); 

316 hH 

ConsoleWrite(Con_w_Msg,&del_line[2],3L); 

317 6BR 

ConsoleStringWrite(Con_w_Msg,"\n 

318 bY 

goto end; 

319 4D 

break; 

320 fuE 

case 0x45: 

321 eZR 

retum(O); 

322 7GI 

break; 

323 8H 

break; 

324 JH4 

)/»if*/ 

325 zy3 

)/»forever»/ 

326 MV 

end:; 

327 ok 

retum(l); 

328 e30 

329 kkT 

Filegroesse bestimmen 

330 jUO Sun May 22 10:23:25 1988 

331 mB 

»»«»innnnnnnnnnm« / 

332 KJ 

LONG FileSize (name) 
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333 0t3 

char name[]; 

334 ST 

BPTR lock; 

335 03 

struct FilelnfoBlock »fileinfoblock; 

336 hl 

fileinfoblock = AllocMem ((LONG)sizeof (struct FilelnfoB 
lock),MEMF_CLEAR); 

337 M 

lock = Lock (name, ACCESS_READ); 

338 wR 

if (lock == NULL) retum (-1); 

339 mB 

if (Examine (lock, file infoblock) == FALSE) retum (-1); 

340 v2 

UnLock (lock); 

341 fP 

retum (file infoblock- > f ib_Size); 

342 sHO 


343 pEP 

Warte bis Name angeklickt wird 

344 TNO Sun May 22 11:27:29 1988 

345 OP 

innnnnnnnnm»« Ä « « » / 

346 TL 

Wait_for_C1ick(ReacLBuffer,filename,laenge) 

347 aM3 

char »ReadJBuffer; 

348 6s 

char »filename; 

349 sM 

ULONG »laenge; 

350 WH2 

struct IntuiMessage »Message,»Wait_for_Message(); 

351 G83 

BOOL Block_Controll(); 

352 ib 

register LONG gadid,FileSize(),err; 

353 Ml 

WriteMessage("Please select a name to typing."); 

354 81 

F0REVER{ 

355 ii6 

Message=Wait_for_Message(MairL.Window,0); 

356 ax 

if (Message == -1) retum(-l); 

357 Ir5 

gadid s ((struct Gadget ») Message->IAddress)->Gadge 
tID; 

358 rQ6 

if(Block_Controll(gadid) == 1) continue; 

359 Le 

sw i tch (checkb locks ()) ( 

360 Fp 

case SOURCE: 

361 SUC 

if( (gadid >=3) && (gadid <=15) )( 

362 nvF 

strcpy(ReacLBuffer,src.list.name[gadid-3+src 
.scroll_count3); 

363 g8 

goto next; 

364 hUC 

eise 

365 EnF 

err=l; 

366 pyC 

break; 

367 aG9 

case DESTINATION: 

368 DZC 

if( (gadid >= 48) && (gadid <=6l) )( 

369 BzF 

strcpy(ReadLBuffer,dst.list.name[gadid-48+ds 
t.scroll_count]); 

370 nF 

goto next; 

371 obC 

eise 

372 LuF 

err=l; 

373 w5C 

break; 

374 039 

default: err=l;break; 

375 W66 

if(err==l) continue; 

376 tMO next: 

377 TH3 

namecat(ReadLBuffer,filename,(long)checkblocks()); 

378 li 

»laenge = FileSize(filename); 

379 TsO /»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»innnnnnnnnnnnnnni 

380 KyB 

Oeffne alle console.device Sachen. Lese File in 
den Buffer 

381 ueO Sun May 22 11:33:09 1988 

382 bO 


383 vr 

UBYTE »Open_type_things(filename,laenge) 

384 GL3 

char filename[]; 

385 Sw 

ULONG »laenge; 

386 Ww 

static UBYTE »buffer; 

387 WN 

0pen_alL_Con_things(); 

388 oX 

buffer = (UBYTE »)AllocMem(»laenge,MEMF^CLEAR]MEMF.CHIP) 

389 Jo 

i 

filehandle = Open(filename,M0DE_0LDFILE); 

390 4c 

Read(filehandle,buffer,»laenge); 

391 Wf 

re tum (buff er); 

392 g50 /»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»innnnnnnnnnnnnnnnnnnt 

393 PDD 

Schliesse alle console.device Sachen. Schliess 
e File. 

394 6r0 Sun May 22 11:35:08 1988 

395 oD 


396 ej 

Close_type_things(laenge,mybuffer) 

397 tw3 

LONG »laenge; 

398 GV 

UBYTE »mybuffer; 

399 YP 

if(filehandle 1= NULL) Close(filehandle); 

400 Oh 

kill_all_type(); 

401 m6 

lf(mybuffer 1= NULL) FreeMem(mybuffer,»laenge); 

(C) 1988 M&T 

Listing 8. (Schluß) 
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A uch in diesem Sonderheft gibt’s wieder eine geballte La¬ 
dung Tips und Tricks für Sie. Wir haben wieder einmal 
kräftig in unserer Trickkiste gewühlt. Aber was heißt hier 
in unserer Trickkiste — natürlich in der unserer Leser. Denn wir 
bekommen laufend die heißesten Kniffe zugesandt und wollen 
diese natürlich für alle Leser zugänglich machen. 

Sicher haben auch Sie schon mit dem einen oder anderen 
Kunstgriff dem Amiga auf die Sprünge geholfen. Behalten Sie 
aber Ihre Kniffe nicht für sich, sondern machen Sie diese auch für 
den Rest der Leserschaft zugänglich, indem Sie sie an uns 
schicken. Veröffentlichte Tricks werden natürlich honoriert. 

Logo goes Basic.., 

Wer einfache Logo-Grafik in Basic erzeugen möchte, dem hilft 
unser kleines Unterprogramm. Mit der Angabe von Winkel, Länge 
und Farbe wird eine entsprechende Linie von Startpunkt (0,0) aus 
gezogen. 

SCREEN 1,320,200,5,1 
WINDOW 1,,(0,0)-(300,186),0,1 

REM Dieser Aufruf zieht eine Linie von (0,0) 

REM zur Mitte des Bildschirms 


Es spielt keine Rolle, was in diesem File steht. Schreiben Sie 
einen Text und verlassen den Editor mit <ESC> <x> 
< RETURN >. 

3. Ergänzen Sie diese Zeilen in der »Startup-Sequence«: 

ECHO "wollen Sie im CLI bleiben j/n ?" 

FAILAT 25 
CD >nil: ? 

IF NOT EXISTS dummy 
SKIP cli 
ENDIF 
LOADWB 

ENDCLI >nil: 

LAB cli 
CD : 

ECHO "wollen Sie RAMCLI aktivieren ?" 

FAILAT 25 
CD >nil: ? 

IF EXISTS dummy 
SKIP nein 
ENDIF 

; Ein Beispiel um die RAM-Disk mit ' 

; CLI-Befehlen zu aktivieren 
MAKEDIR ram:c 
COPY c: ram:c 


a = 35 
b = 170 
c = 3 

CALL LG (a,b,c) 

SUB LG (winkel,lan,färbe) 
STATIC 

pi = 3.141593 
LOCATE 1.1 
ra = (winkel-iWges) 
*pi/180 

xl = lan*C0S(ra)+x 
yl = lan*SIN(ra)+y 
LINE(x,y)-(xl,yl),färbe 
X = xl 

y = yl 

Wges = winkel-fWges 
END SUB 


Ein Cocktail 
für 

alle Fälle 

Hier sind sie wieder, unsere kleinen 
nützlichen Helfer: Tips und Tricks für 
alle Fälle. Es ist garantiert für jeden et¬ 
was dabei. Schauen Sie doch mal rein! 


PATH ram:c ADD 
LAB nein 
CD : 

ECHO "Initialisierung 
beendet" 

Wenn Sie nun Ihre Work- 
Disk neu starten, fragt der Ami¬ 
ga, ob Sie mit dem CLI und mit 
den CLI-Befehlen in der RAM- 
Disk arbeiten möchten. Die Er¬ 
klärung zum Programm: 

Das Dummy-Gerät »NIL:« 
wird gewinnbringend genutzt. 
Durch Umlenken der Help- 
funktion »?« auf dieses Gerät 
verfügt der Benutzer Im CLI 
über eine elegante Eingabe¬ 
funktion. Nach Ausgabe des 
Helptextes auf das nicht exi- 


Das Listing enthält bereits ein kleines Beispielprogramm. Es er¬ 
zeugt eine Linie mit der Länge 170 im Winkel von 35 Grad. Der 
Winkel ist in der Variablen »a«, die Länge in »b« angegeben, »c« 
enthält die Farbe. (Albert TreytI/M. Jobst/rs) 


stierende Ausgabegerät kön¬ 
nen Sie einen Text eingeben. Dieser stellt nun das aktuelle Direc¬ 
tory dar (CD-Funktion). 

Jetzt sucht der Computer in diesem Directory nach dem File 
»dummy«. Findet er es, war die Eingabe »n«, da nur im Directory 
»n« ein File »dummy« existiert. Mit Hilfe dieses Tricks läßt sich 


auch eine Paßwortkontrolle realisieren. Sie brauchen nur ein Di- 


Startup mit Abfrage 

Kopieren Sie die CLI-Befehle nur bei Bedarf in die RAM-Disk. 
Die CLI-Befehle in der RAM-Disk sparen Zeit und schonen Ihre 
Disketten—falls Sie mit dem CLI arbeiten. Das Kopieren benötigt 
jedoch Speicherplatz und verlängert die Boot-Zeit. Benötigen Sie 
das CLI nicht, sondern möchten mit der Workbench arbeiten, so 
ist die Installation der RAM-Disk in der »Startup-Sequence« unnö¬ 
tig. Für diesen Fall können Sie sich zwei Startdisketten erstellen: 
eine ausschließlich für die Arbeit mit dem CLI, die zweite für die 
Workbench. Das kostet eine Diskette. Es gibt jedoch eine pfiffi¬ 
gere Methode: Bauen Sie eine Abfrage in der »Startup- 
Sequence« ein. Der Trick, der hierzu angewendet wird, ist die Ver¬ 
wendung der Befehle FAILAT und CD: 

Sie müssen Ihre Startdiskette (im allgemeinen eine Kopie der 
Original-Workbench) vorher präparieren. 

1. Erzeugen Sie ein neues Dateiverzeichnis mit dem Namen »n«: 

MAKEDIR n 

2. In diesem Verzeichnis erzeugen Sie mit dem Editor ein File mit 
dem Namen »dummy«: 

ED n/dummy 


rectory zu generieren, dessen Name Ihrem Codewort entspricht. 
In diesem Verzeichnis muß wiederum das File »dummy« stehen. 
Wird ein falsches Schlüsselwort eingegeben, so findet der Amiga 
die Datei nicht und beginnt erneut mit der Abfrage. 

Dies hilft auf jeden Fall, um die neugierige Schwiegermutter 
vom Amiga fernzuhalten — falls sie nicht weiß, daß man die 
»Startup-Sequence« mit <CrRL D> abbrechen kann. 

(Martin Horn/rs) 

Batchfiles beschleunigen 

Unter einem Batchfile versteht man eine Textdatei, die CLI- 
Befehle enthält. Man kann in diese Datei eine Reihe solcher Be¬ 
fehle unterbringen, und mit »EXECUTE Name des Batchfiles« 
werden diese Kommandos automatisch der Reihe nach ausge¬ 
führt. Die CLI-Befehle sind Programme wie jedes andere Anwen¬ 
derprogramm auch — sie müssen also erst von der Diskette gela¬ 
den werden (sofern sie sich nicht in der RAM-Disk befinden). Die 
Ladezeiten fallen besonders ärgerlich auf, wenn in einem Batchfi¬ 
le mehrere ECHO-Befehle (funktioniert ähnlich PRINT in Basic) 
nacheinarider auftauchen, und deshalb jedesmal neu geladen 
werden müssen. Ähnlich verhält es sich mit anderen Kommandos 
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bei der täglichen Arbeit mit dem CLI (CD...DIR,CD...DIR und so 
weiter). Neben der Möglichkeit, die Befehle in die schnelle RAM- 
Disk zu legen, gibt es eine weitere, das RAM einzubeziehen. Man 
ordnet dem Laufwerk DFO: einen bestimmten RAM-Bereich als 
Puffer zu, in dem die zuletzt geladenen Befehle gespeichert wer¬ 
den. So brauchen diese Kommandos nicht neu geladen, sondern 
können aus dem Puffer gelesen werden. Um mit dem Befehl 

ADDBUFFER Laufwerk Puffergröße 

wirklichen Zeitgewinn erzielen zu können, sollte man den Puffer 
etwa 18 bis 20 KByte groß wählen. Beispiel: ADDBUFFERS dfO: 
18. Der einzige Nachteil dieser Methode soll jedoch nicht ver¬ 
schwiegen werden. Es ist nur durch einen Reset möglich, diesen 
Speicherbereich wieder anderweitig zu vergeben — man sollte 
sich also genau überlegen, wieviel Speicher man dafür »opfert«. 

(Michael Baas/rs) 

Gut gescrollt ist halb... 

Die Funktion »ScrollRaster« aus der »graphics.library« ermög¬ 
licht dem (C-)Programmierer, einen rechteckigen Bildausschnitt 
in eine beliebige Richtung zu scrollen. Der Befehl hat die Syntax 

ScrollRaster(rastport,deltaX, 
deltaY,vonX,voriY,bisX,bisY); 

»deltaX« und »deltaY« geben die Verschiebung in Punkten an. 
Hier beginnt auch schon das Problem: Normalerweise müßten 
positive Delta-Werte eine Verschiebung nach unten beziehungs¬ 
weise rechts, negative Werte eine Verschiebung nach oben bezie¬ 
hungsweise links bewirken. 

Daß dem nicht so Ist, scheinen nicht einmal die Entwickler 
selbst bemerkt zu haben. Jedenfalls wird sowohl im »Amiga- 
Programmler-Handbuch« als auch Im »ROM-Kernel-Manual« der 
Befehl mit oben genannten Scroll-Richtungen angegeben. Als 
Programmierer Ist man spätestens dann verblüfft, wenn sich der 
Bildschirm, trotz scheinbar korrekter Syntax in die falsche Rich¬ 
tung davon macht. Erst ein Blick In Anhang A des »ROM-Kernel- 
Manual« offenbart die korrekte (ungewöhnliche) Syntax des Be¬ 
fehls. Zltat:»Dle Funktion scrollt die Pixel auf den Punkt (0,0) zu.« 
Aha. Die korrekten Delta-Werte lauten also: 
nach oben beziehungsweise links: positiver Wert; 
nach unten beziehungsweise rechts: negativer Wert. 

Achtet man bei der Anwendung dieses recht nützlichen Befehls 
auf diese »verdrehte« Form, bleibt so mancher Ärger erspart. 

(Holger Schemel/M. Jobst/rs) 

Bildschirmsplitting 

Diese kleine Farbdemonstratlon splittet den Bildschirm in zwei 
Hälften. Das Programm demonstriert die Abfrage der Position des 
Rasterstrahls mit Hilfe der Hardware-Register. 

execbase = 4 
forbid = -132 
permid = -138 
Start: 

raovem.l dO-d2/al/a2/a6,-(SP) 

lea $dff004,al ; u.a. Y-POS des Rasterstrahls 

lea $dffl80,a2 ; Farbregister 

'move.l execbase,a6 

jsr forbid(a6) ; Multitasking aus 

zeilenloop: 

move.l #$2b00,d0 ; >>2b<< = Zeile für Split 

; > > Ib < < = Minimum 

Farbloop: 

move.w #$0000,dl ; erste Farbe 

wait: 

move.l (al),d2 ; 

and.l #$0001ff00,d2; y-Pos. in d2 
cmp.l d0,d2 ; Zeile erreicht ? 

bne wait 

move.w dl, (a2) ; neue Farbe ins Register 

waitl: 


flPS&TRICKS 

move.l (al),d2 
and.l #$0001ff00,d2 
cmp.l d0,d2 

beq waitl ; nächste Zeile abwarten 

cmp. b # $bc, $bfe001 

beq done ;linke Maustaste gedrückt ? 

add.w #$100,dl ;neue Farbe 

cmp.w #$1000,dl ; Farbe wechselt laufend 

blt wait 

add.l #$0100,d0 ;Splitzeile +1 

cmp.l #$13900,dO ;größer Maximum? 

blt farbloop 
bge zeilenloop 
done: 

move.l execbase , a6 

jsr permid(a6) 

movem.1 (sp)+,d0-d2/al/a2/a6 

rts 

Das Programm ist mit dem Seka-Assembler geschrieben. Nach 
dem Start wird zunächst jeder weitere Task gesperrt. Danach ver¬ 
ändert das Programm ab einer bestimmten Bildschirmzeile die 
Hintergrundfarbe. Zur besseren Demonstration wird diese Farbe 
laufend geändert. Nach Durchlaufen der Farbskala erhöht das 
Programm die Zeile, In der der Bildschirm gesplittet werden soll. 
Sie können den Programmablauf jederzeit durch einen Druck der 
linken Maustaste stoppen. Ein Nachteil des Programms ist, daß 
der Prozessor auf eine bestimmte Rasterposition wartet und 
nichts anderes erledigen kann. Noch besser wäre es daher, die 
Farbe des Hintergrunds mit Hilfe des Coppers ab einer bestimm¬ 
ten Position zu verändern. (Klaus Kuphal/rs) 


Animation in Basic 

Auch von Basic aus ist es möglich, fließende Animationen zu er¬ 
stellen. Der Trick besteht darin, mit zwei verschiedenen Screens 
zu arbeiten. Während der eine Screen das aktuelle Bild der Ani¬ 
mation zeigt, wird auf dem anderen »versteckt« bereits das näch¬ 
ste erstellt. Anschließend werden beide Screens vertauscht, und 
der Vorgang beginnt von neuem. Das folgende kleine Demo- 
Programm arbeitet mit diesem Prinzip. 

SCREEN 1,640,200,1,2 :REM zwei gleiche 

SCREEN 2,640,200,1,2 :REM Screens öff 

nen 

WINDOW 1,"",(0,0)-(631,186),28,1 :REM zwei gleiche 
WINDOW 2,(0,0)-(631,186),28,2 :REM Windows öffnen 

Variablen: 

x=10:y=10:xl=621:y1=176:w=l:p=l:f=1 
Loop: 

WINDOW w :REM Window 

Nr. w nach vorne 

w=w+l:IF w=3 THEN w=l 

WINDOW OUTPUT w :REM Ausgabe 

auf Hintergrundwindow 
CLS :REM Window 

löschen 

LINE (x,y)-(xl,yl),l,b :REM Rechteck 

zeichnen 

x=x+f: y=y+p: xl=xl-f: yl=yl-p : REM Rechteck 

verkleinern 

IF y=170 THEN p=0 
IF x=626 THEN f=-2:p=-l 
IF y=0 THEN p=l 
IF x=0 THEN f=2 
GOTO Loop 

Das Programm erzeugt eine einfache Animation eines sich in 
der Größe verändernden Rechtecks. (H. Kalläne/M. Jobst/rs) 
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Per Schalter für das Laufwerk 

Einige Amiga-Programme funktionieren nur, wenn kein exter¬ 
nes Laufwerk angeschlossen ist. Aber einige Laufwerke besitzen 
keinen Ausschalter. Damit Sie sich die Arbeit ersparen, das Lauf¬ 
werk immer herauszuziehen, bauen Sie sich den Schalter selbst: 
Sie müssen ihn nur in die RDY-Leitung einlöten — entweder Im 
Laufwerk oder Im Anschlußkabel. Das RDY-Signal liegt beim Ami- 
ga 500 an Pin 1 des externen Diskanschlusses. Natürlich dürfen 
Sie den Schalter nur bei ausgeschaltetem Computer betätigen. 

(Maurice AL-Khaliedy/rs) 




SUB-D-Buchse 


23pin/weiblich 

Pin 

Signal 

Beschreibung 


1 

RDY 

Bereitschafts-Signal 

(active low) 

2 

DKRD 

Schreib/Lese-Signal 

(active low) 

3 

GND 

Signalmasse 

4 

GND 

Signalmasse 


5 

GND 

Signalmasse 


6 

GND 

Signalmasse 


7 

GND 

Signalmasse 


8 

MTRXD 

Motor-Steuerung 

(active low) 

9 

SEL2B 

Laufwerk 2 aktivieren 

(gepuffert, active low) 

10 

DRESB 

Reset-Signal 

(gepuffert, active low) 

11 

CHNG 

Diskettenwechsel-Signal 

(active low) 

12 

+5 

+5 Volt 


13 

SIDEB 

Kopfwahl-Signal 

(gepuffert, active low) 

14 

WPRO 

Schreibschutz-Signal 

(active low) 

15 

TKO 

Spur 0-Signal 

(active low) 

16 

DKWEB 

Schreibfreigabe-Signal 

(gepuffert, active low) 

17 

DKWDB 

Daten schreiben 

(gepuffert, active low) 

18 

STEPB 

Signal für Kopf-Stepper 

(gepuffert, active low) 

19 

DIRB 

Stepper-Richtungs-Signal 

1 (gepuffert, high = 
Richtung Spur 0) 

20 

NC 

Nicht belegt 


21 

SEL1B 

Laufwerk 1 aktivieren 

(gepuffert, active low) 

22 

INDEX 

Index-Impuls 

(active low) 

23 

+12V 

+12 Volt 


Diese Tabelle zeigt die Belegung des 23poligen 
SUB-D-Steckers für die Zusatzlaufwerke am Amiga 


Super-Hochauflösung 

Überall steht geschrieben, der Amiga hätte eine maximale Bild¬ 
schirmauflösung von 640 X 512 Punkten. In Wahrheit steht Ihnen 
eine weit höhere Auflösung zur Verfügung. Ein Screen kann bis 
zu 704 X 564 Punkte groß sein. Die 69376 zusätzlichen Punkte 
können Sie mit Hilfe der Grafikbefehle des Betriebssystems ohne 
weiteres nutzen. Besonders In C und Assembler ist dies recht ein¬ 
fach. Zwei Zahlen müssen geändert werden: 

Um einen Screen zu öffnen, müssen Sie eine »NewScreen«- 
Struktur erstellen. Der dritte Wert dieser Tabelle gibt die Screen- 
Brelte an, der vierte die Höhe. Üblicherweise stehen dort, bei¬ 
spielsweise für einen hochauflösenden Screen im Interlace- 
Modus die Werte 640 und 512. Ersetzen Sie diese Werte durch 
704 beziehungsweise 564. 

NewScreen.Width=704; 

NewScreen.Height=564; 

Wenn Sie nun die Funktion »OpenScreen« anspringen, er¬ 
scheint der übergroße Screen. Er ist aber nur zum Teil sichtbar. 
Um dem abzuhelfen, müssen Sie folgendes ändern: 

Erstens sollten Sie das Bild des Monitors etwas verkleinern und 
neu zentrieren. Die Regler hierzu befinden sich im allgemeinen 
an der Rückseite des Monitors. 

Zweitens müssen Sie das Bild mit Hilfe der »Preferences« nach 
oben links verschieben. Klicken Sie hierzu das große Rechteck in 
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der Mitte des »Preference-Windows« an und bewegen das ge¬ 
samte Fenster mit der Maus in die gewünschte Ecke. Für die ge¬ 
naue Einstellung Ist ein wenig Experimentieren notwendig. Sie 
dürfen das Bild nicht zu weit verschieben, da sonst der obere 
Rand des Screens verschwindet. Wenn Sie den Monitor einmal 
eingestellt haben, können Sie in Ihren Programmen sofort die 
»Super-Hochauflösung« ausprobieren. 

Der Effekt läßt sich Im übrigen auch In allen anderen View-Modi 
ausnutzen, um mehr Punkte darzustellen. So stehen Ihnen zum 
Beispiel für einen LowRes-Screen 352 statt der üblichen 320 
Punkte in der Horizontalen zur Verfügung. 

Warum nicht gleich die volle Auflösung? 

Die Einschränkung auf 640 x 512 Punkte erfolgt, well nicht alle 
Monitore diese extreme Auflösung darstellen können (Over¬ 
scanning). Besonders an den Rändern kommt es zu Unregelmä¬ 
ßigkeiten. Außerdem sind in den Grenzbereichen nicht alle 
Sprites sichtbar. (Jürgen Brendel/rs) 


Beckertext und Bilder 

Die Bildverarbeitung mit Beckertext ist bei der Verwendung des 
Hilfsprogramms »BTSnap« aufgrund des hohen Speicherbedarfs 
der Bilder stark eingeschränkt. Vor allem dann, wenn man nur 512 
KByte Hauptspeicher zur Verfügung hat. Erstellt man jedoch sei¬ 
ne Grafiken mit DPaInt II und speichert die gewünschten Bildaus¬ 
schnitte als Pinsel (Brush), kann eine Menge Speicherplatz ein¬ 
gespart werden. Hinter dem Namen des Pinsels sollte man das 
Suffix ».IFF« setzen, damit das Bild von Beckertext erkannt wird. 

(Jens Scheifgen/M. Jobst/rs) 

Tolles Tool mit Anleitung 

Der Editor »MicroEmacs« schlägt den ED um Längen. Aller¬ 
dings nur wenige wissen, daß sich dieses hervorragende Werk¬ 
zeug auf der ExtrasD-Diskette von Commodore befindet. Schau¬ 
en Sie nach. Das Programm hat seinen Platz in der Schublade 
»Tools«. Und auch eine Anleitung ist auf der Diskette gespeichert. 
Sie verbirgt sich hinter dem Pildogramm »MlcroEmacs.doc«. Es 
existieren drei Wege, die Anleitung zu lesen: 

— Klicken Sie das Piktogramm »MlcroEMACS.doc« zweimal an. 
Mit einem System-Requester fordert der Amiga Sie nun auf, das 
Original der ExtrasD-Diskette einzulegen. Sofern Sie nur ein 
Laufwerk besitzen, gelangen Sie nach zwei weiteren Disketten¬ 
wechseln in das erste Bild der Anleitung. 

—• Wer die Anleitung schneller lesen möchte, lädt das Utility 
»More«. Es dient dazu, ASCII-Dateien auf dem Bildschirm auszu¬ 
geben. Nach der Frage »Filename?«, tippen Sie »MicroEMACS. 
doc« und drücken < RETURN >. 

— Der elegante Weg ist, eine <Shift>-Taste zu drücken und mit 
der Maus die PIktogramme MlcroEMACS.doc und More anzu¬ 
klicken. Danach wählen Sie In der Menüzeile der Workbench 
»Open«. Wer es noch einfacher möchte, klickt bei gehaltener 
<Shift-Taste> MicroEMACS.doc an und aktiviert dann MORE 
mit einem Doppelklick. 

Nach dem Laden sehen Sie auf dem Bildschirm die erste Seite 
der Anleitung. Durch Drücken von <h> gelangen Sie In einen 
Screen mit Hilfsanweisungen zu More. Mit < Space > blättern Sie 
in der Anleitung weiter. Sie umfaßt 70 Seiten und ist in englisch ge¬ 
schrieben. Am Ende befindet sich eine alphabetische Liste aller 
»Shortcuts« (abgekürzte Befehle) von MIcroEMACS. Sie verlas¬ 
sen die Anleitung mit <q >. Wer den gesamten Text intensiv stu¬ 
dieren möchte, kann ihn auch mit PrintFlles ausdrucken lassen. 

(Nick Seggeike/rs) 

Basic und Textverarbeitung? 

Haben Sie sich nicht auch schon über den langsamen Editor 
des Amiga-Basic geärgert? Gerade wenn mit dem List-Fenster 
gearbeitet wird, dauert es in der Regel unzumutbar lange, bis der 
Text sich wieder der Größe des Fensters angepaßt hat. 

Besser ist es daher, die Programme mit einem herkömmlichen 
Editor oder einer Textverarbeitung zu schreiben. Durch die inten¬ 
sive Nutzung der Funktionstastenbelegung oder Such- und Er¬ 
setzfunktionen der Textverarbeitungsprogramme läßt sich viel 
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Zeit einsparen. So können Sie beim Schreiben des Programms 
anstatt des Schlüsselwortes GOSUB die Folge »gb« einsetzen 
und diese vor dem Speichern durch GOSUB ersetzen. Ein Nach¬ 
teil dieser Methode ist allerdings das Speichern und erneutes La¬ 
den in den Basic-Speicher vor der Ausführung des Programms. 
Folgendes ist jedoch zu beachten: Sowohl vom Basic-Interpreter 
als auch von den Textverarbeitungsprogrammen müssen die Pro¬ 
gramme im ASCII-Format gespeichert werden. Im Basic läßt sich 
dies durch die Angabe von »,a« im Anschluß an den Dateinamen 
des SAVE-Befehls erreichen. (Lutz Beyert/rs) 

Maus rein — Maus raus 

Das kann selbst ruhige Zeitgenossen manchmal zur Ver¬ 
zweiflung bringen •— Immer wenn die Maus angeschlossen ist, 
braucht man einen Joystick und kurz darauf will ein anderes Pro¬ 
gramm nur mit der Maus arbeiten. Das damit verbundene häufige 
Umstecken der Stecker Ist nicht nur lästig, es schadet auf lange 
Sicht auch den Kontakten am Joystick-Port des Amiga. Da liegt es 
nahe, sich einen Umschalter zu bauen. Hierzu benötigen Sie: 

— einen 9-Pin-D-SUB-Stecker 

— zwei 9-Pin-D-SUB-Buchsen 

— zwei LEDs (rot 18 mA) 

— zwei Widerstände 220 ß 

— einen Wechselschalter 

Die Bauteile verbinden Sie nach dem im Bild gezeigten Schalt¬ 
plan. Den fertigen Umschalter schließen Sie mit dem Stecker an 
den Port des Amiga an. In die Buchsen 1 und 2 stecken Sie den 
Joystick beziehungsweise die Maus ein. Über den Schalter kön¬ 
nen Sie nun einfach zwischen beiden hin- und herschalten. Die 
Leuchtdiode zeigt Ihnen jeweils an, wer aktiv ist. 

(Maurice ALKhaliedy/rs) 



Der Schaltplan für den Maus/Joystick-Umschalter 

Datum mit Format 

Die Basic-Funktion »DATE$« gibt das aktuelle Datum an. Leider 
erfolgt die Ausgabe nur Im englischen Format. Anstatt 
»14.12.1988« heißt es »12-14-1988«. Mit folgendem Unterpro¬ 
gramm wird das anders: 

Datum: 

IF LEN(DATE$)=10 THEN 

Dat$=MID$(DATE$,4,2)+". "+LEFT$(DATE$,2)+". "+RIG 
HTS(DATE$,4) 

END IF 



IF LEN(DATE$)=9 AND LEFT$(DATE$,2)=" THEN 
Dat$=MID$ (DATE$ ,4,2)+". "+LEFT$ (DATE$, 1)+"- "+RIG 
HT$(DATE$,4) 

END IF 

IF LEN(DATE$)=9 AND LEFT$(DATE$,2) " THEN 

Dat$=MID$(DATEI,4,1)+". "+LEFT$(DATE$,2)+". "-+HIG 
HT$(DATE$,4) 

END IF 

IF LEN(DATE$)=8 THEN 

Dat$=MID$(DATEI,3,1)+". "+LEFT|(DATEI,l)+". "+RIG 
HT|(DATE|,4) 

END IF 
RETURN 


Nach dem Aufruf mit »GOSUB Datum« steht in der Variable 
»Dat$« das aktuelle Datum im korrekten Format. 

(Matthias Specht/M. Jobst/rs) 

Selbstgestrickte Icons schützen 

Mit Hilfe des CLI-Befehls PROTECT können Sie Ihre selbster¬ 
stellten Icons schützen. Dies ist besonders für Basic- 
Programmierer interessant. 

Wenn Sie für Ihr Programm mühsam ein eigenes Icon erstellt 
haben, dann das Programm ändern und erneut speichern, löscht 
Amiga-Basic brutal Ihr Icon. Deshalb sollten Sie das Icon bezie¬ 
hungsweise die zugehörige Info-Datei mit diesem Befehl sichern: 

PROTECT Programmtitel.info R 

Jetzt hat Amiga-Basic keine Chance mehr. Dieses Icon kann 
nur noch gelesen werden. (Rolf-Dieter Schiedrum/rs) 

Unprotect 

Eine geschützte Datei oder ein geschütztes Icon (siehe neben¬ 
stehender Tip) kann mit »DELETE« nicht mehr gelöscht werden. 
Dieser Schutz ist sinnvoll, um ein unbeabsichtigtes Löschen von 
Dateien zu vermelden. Wenn Sie sich aber doch einmal fest ent¬ 
schlossen haben, eine gesicherte Datei zu verändern, können Sie 
den Schreibschutz aufheben: 

PROTECT filename RWED 

Dieser Befehl erlaubt Ihnen den freien Zugriff auf Ihre Datei. 

(Laurent Münster/rs) 

Pruckeransteuerung in Basic 

Die Ansteuerung eines Druckers von Basic aus ist etwas pro¬ 
blematisch. Mit Hilfe von LPRINT, LPT1: und PRT: erfolgt die 
Druckeransteuerung über das »printer.device« des Amiga. Das 
Device versteht aber nicht die In den Druckerhandbüchern ange¬ 
gebenen Steuercodes, sondern benutzt eigene Kontrollzeichen. 
Steuert man dagegen einen Drucker, der an der parallelen 
Schnittstelle angeschlossen ist, direkt über PAR an, so sind die 
deutschen Umlaute nicht druckbar. Abhilfe schaffen die folgen¬ 
den kurzen Unterprogramme «txt:« oder »stz:«, die den Drucker je 
nach Bedarf entweder über PRT oder direkt über PAR ansteuern. 
Da beim Amiga nur ein Druckerkanal auf einmal geöffnet sein 
darf, muß immer dafür gesorgt werden, daß jedes Unterpro¬ 
gramm den zuvor geöffneten Kanal schließt: 

REM Demo für die Druckersteuerung 

GOSUB txt 

PRINT#1, "Dies ist ein Beispiel für die Umlaute: 

äöüÄÖO" 

GOSUB stz 

PRINT#1, chr$(27);"W";chr$(l); :REM Breitschrift 
ein 

GOSUB txt 

PRINT#1, "Dies ist Breitschrift äöüÄÖO" 

CL0SE#1 

END 
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stz: REM Steuerzeichen an Drucker 

CL0SE#1 : OPEN "par: " for OUTPUT AS 
#1 :RETURN 

txt: REM Texte mit Umlauten 

CLOSE #1 : OPEN "prt:" for OUTPUT AS #1 
: RETURN (Thomas Küpper/rs) 

Scrollen im Listfenster 

Das Listfenster des Amiga-Basic läßt sich auf mehrere Arten 
Scrollen: 

— Am bekanntesten ist das Scrollen mit Hilfe der Cursortasten. 

— Seitenweise läßt sich das Fenster durch gleichzeitiges Drücken 
der Shift-Taste und der Cursortasten nach oben beziehungsweise 
unten verschieben. 

— Die dritte Methode ist hingegen nicht so bekannt. Das Listfen¬ 
ster können Sie auch mit der Maus bewegen. 

Um eine bestimmte Zeile auf dem Bildschirm anzuzeigen, 
brauchen Sie nur die linke Maustaste drücken und bei gedrückter 
Taste mit der Maus nach unten oder oben aus dem Fenster zu fah¬ 
ren. Das Listing bewegt sich so lange in die geforderte Richtung, 
bis Sie den Mauszeiger wieder ins Fenster bringen oder die Maus¬ 
taste loslassen. 

Diese Funktion dient eigentlich zum Markieren eines Blocks, 
der nachfolgend mit »COPY, CUT und PASTE« bearbeitet werden 
soll. Um den selektierten Block normal darzustellen, genügt ein 
Mausklick. Alles Ist wie gehabt, nur der Cursor ist genau dort, wo 
Sie es möchten. (Heinz Lösch/rs) 

Basic steuert die Hardware 

In der AMIGA SI9I&7 steht In der Rubrik »Tips und Tricks«, wie 
sich die Power-LED mit Hilfe eines Assemblerprogramms ein- 
und ausschalten läßt. Auch Basicprogrammlerer können auf die 
Hardware zugreifen: 

POKE 12574721,254 schaltet die LED aus 
POKE 12574721,252 schaltet die LED ein 

Lassen Sie in Ihren Programmen die Leuchtdiode ein paarmal 
blinken. Verblüffen Sie mit diesem Effekt Ihre Bekannten. 

(Daniel Swertz/rs) 

RAM-Pisk in neuem Kleid 

Hatten Sie schon einmal das Bedürfnis, das Icon der RAM-Dlsk 
zu ändern, sind Sie daran aber gescheitert? Der folgende Trick 
hilft sicher: Soll das RAM-Dlsk-Icon aussehen wie das der Work- 
bench, so fügen Sie einfach in der Startup-Sequenz vor der Zeile 

PATH RAM:ADD 
die Sequenz 

COPY SYS:DISK.INFO RAM: 

ein. Wollen Sie der RAM-Disk ein individuell gestaltetes Icon ver¬ 
passen, so entwerfen Sie dieses zunächst wie jedes andere 
DIsketten-Piktogramm mit dem Icon-Editor. Speichern Sie es 
dann unter dem Namen »DISKI(.info)« auf der Work- 
bench-Dlskette ab. Nun muß die an gleicher Stelle wie oben ein¬ 
gefügte Zelle lauten: 

COPY SYS:DISK1.INFO RAM:DISK.INFO 

Schon haben Sie beim nächsten Booten ein selbst gewähltes 
Disk-Icon für die RAM-Disk. (Christoph Becker/M. Jobst/rs) 

Pie »Backups« von Ed und Edit 

Wenn man viel mit dem Texteditor Ed oder dem Zeileneditor 
Edit arbeitet, kann es schon einmal passieren, daß man einen vor¬ 
her in den Editor geladenen und veränderten Text mit 
< ESC >< X > überschrieben hat und später dringend auf die al¬ 
te Version zurückgreifen möchte. Das ist vor allem dann der Fall, 
wenn man größere Textpassagen aus Versehen gelöscht und dies 
vor dem Speichern nicht bemerkt hat. 


Weitgehend unbekannt Ist jedoch, daß die Editoren vor dem 
Überschreiben eine Sicherheitskopie (Backup) der alten Datei im 
Unterverzeichnis »t« der Workbenchdiskette (V 33.56) anlegen. 
Diese Kopien heißen »ed-backup« beziehungsweise »editor- 
backup«. Mit der Anweisung »if "t/ed-backup'"« können Sie eine 
solchermaßen gerettete Datei in den augenblicklich bearbeiteten 
Text elnfügen. (Robert Kretzschmar/rs) 

Pirectory wird umgeleitet 


Um mit dem CLI ein Directory zu Papier zu bringen, genügt die 
Umleitung der Ausgabe auf den Drucker mit »dir > prt:« oder »Hst 
> prt:«. Manchmal ist es jedoch von Vorteil, wenn Sie die Ausgabe 
erst einmal mit »dir > name« in eine Textdatei umleiten, um diese 
dann mit einem Editor oder dem Notepad zu verändern. So kön¬ 
nen Sie dem Dateinamen noch ergänzende Informationen, wie 
etwa Sinn und Zweck des Programms, wie man es gegebenen¬ 
falls installiert oder startet, hinzufügen und anschließend die Da¬ 
tei ausdrucken. Sie können diese Technik auch anwenden, wenn 
nur mit einem Teil der Dateien operiert werden soll: einfach den 
CLI-Befehl (hier: type) vor die Dateinamen der Textdatei schreiben 
und das Ganze als Batch-Datei ausführen. (Lutz Beyert/rs) 

Hilfe für den Floppyspeeder 

»Facc« und »Facc II« sind nützliche Programme, die bei vielen 
Diskettenzugriffen Zelt sparen. Ein Nachteil ist, daß der Cache- 
Speicher — anders als beim Befehl ADDBUFFERS — von 
vornherein auf 256 KByte eingestellt ist. Wem dies zuviel Ist, der 
kann die Puffergröße zwar ändern, doch Ist diese Arbeit vor jeder 
Benutzung des »Facc« lästig. Der folgende Patch schafft Abhilfe: 

— Facc: Laden Sie mit dem Filemonitor »NewZap« oder »FileZap« 
(Public Domain) den Sektor 14. An den Cursorpositionen 126 und 
127 ist die Puffergröße gespeichert ($0100 = 256). Ändern Sie 
den Wert nach Ihren Wünschen. 

— Facc II: Mit derselben Methode können Sie auch Facc 11 verän¬ 

dern, jedoch liegt die gesuchte Variable hier In Sektor 1 an der 
Position $15C und $15D. Arbeiten Sie auf jeden Fall mit einer Si¬ 
cherheitskopie des Programms. (Michael Holin/rs) 

Echo mit Effekt 

Wer Kommentare in Boot-Sequenzen etwas abwechslungsrei¬ 
cher gestalten will, dem kann nun geholfen werden. Es ist nämlich 
mit dem ECHO-Befehl des CLI möglich, verschiedene Schrift¬ 
arten (kursiv, fett, unterstrichen etc.) auf Bildschirm (oder auch 
Drucker) auszugeben. Man muß dazu das Steuerzeichen »❖e«, 
gefolgt von der Escape-Sequenz des gewünschten Modus, ange¬ 
ben. Die Escape-Sequenzen der einzelnen Modi finden Sie in An¬ 
hang C des Benutzerhandbuchs zu Ihrem Amiga. Dazu ein Bei¬ 
spiel: 

ECHO "^e[4mDas*e[0m ist ja der [Wahnsinn*e[Om !!!" 

bewirkt folgende Bildschirmausgabe: 

Das ist ja deer Nahnsiini ! ! ! 


(Christian Schmidt/M. Jobst/rs) 

Texte drucken mit dem »Ed« 

Vielleicht erstellen auch Sie Ihre Quellprogramme mit dem auf 
der Workbench mitgelieferten Texteditor »Ed«. In keiner Doku¬ 
mentation findet man allerdings Informationen darüber, wie diese 
Texte auf den Drucker ausgegeben werden können. Natürlich gibt 
es eine umständliche Methode: mit »sa "name"« auf Diskette 
speichern und mit »type >prt: name« ausdrucken. Einfacher ist 
es, die im Speicher befindliche Datei gleich mit »sa "prt:"« auf 
den Drucker zu »speichern«. Mit dieser Technik können Sie nach 
vorheriger Markierung mit »bs« und »be« sowie »wb "prt:"« auch 
Zeilenbereiche auswählen und diese drucken. Haben Sie Ihren 
Drucker an der seriellen Schnittstelle angeschlossen, so ersetzen 
Sie die Gerätenamen »prt:« durch »ser:«. (Edmund Olt/rs) 
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Tips STRICKS 

Tips zu Superbase 
Professional 


Die neuen Funktionen von Superbase Professional sind 
sehr leistungsfähig, wollen aber beherrscht sein. 

Wenn dazu das Handbuch kleine »Bugs« enthält, kann dies einem 
die Freude an der Arbeit schon verderben. Hier zeigen wir 
Ihnen, wie Sie Superbase optimal nutzen. 



:0b 
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Bild 1. Die Definitionsmaske für eine Datei 


E inige der neuen Funk¬ 
tionen von Superbase 
Professional bezie¬ 
hungsweise Superbase 2 wer¬ 
den manchem Anwender — 
vor allem Einsteigern, die noch 
nie mit einer professionellen 
Datenbank gearbeitet haben 
— Probleme bereiten. Oftmals 
wird der Sinn und Zweck einer 
Funktion nicht verstanden, da 
zunächst nicht klar ist, wie man 
diese überhaupt einsetzen 
kann. 

Eine dieser neuen Funktio¬ 
nen von Superbase ist die 
SER-Konstante. Im Handbuch 
können Sie nur lesen, daß die¬ 
se SER-Konstante eine auto¬ 
matische Numerierung aller 
eingegebenen Datensätze be¬ 
wirkt. Nehmen wir einmal an. 
Sie möchten mit Superbase 
Ihre Mitarbeiterdaten verwal¬ 
ten und alle Mitarbeiter mit 
einer Personalnummer verse¬ 
hen. Um dies zu erreichen, 
müssen Sie folgendermaßen 
Vorgehen: 

Die SER- 
Funktion 

Als erstes erstellen wir eine 
neue Datei (Bild 1). Nachdem 
Sie den Namen der Datei — 
zum Beispiel »sbpeople« — 
eingegeben haben, erscheint 
das Ihnen sicherlich schon be¬ 
kannte Kommunikationsfen¬ 
ster zur Dateidefinition. Jetzt 
definieren Sie als erstes ein nu¬ 
merisches Feld und geben ihm 
zum Beispiel den Namen 
»number«. Jetzt geben Sie zu 
diesem Feld folgende Konstan¬ 
te ein (Bild 2): 

SER ("Dateiname'') 

Wenn Sie den oben genann¬ 
ten Namen für Ihre Datei ge¬ 
nommen haben, müßte der 


Eintrag im Konstantenfeld jetzt 
folgendermaßen lauten: 

SER ("sbpeople") 

Im Superbase-Handbuch 
wurden leider die Anführungs¬ 
zeichen zwischen den Klam¬ 
mern vergessen. Sollten Sie es 
also nicht geschafft haben, ei¬ 
ne SER-Konstante zu definie¬ 
ren, wissen Sie jetzt, wo der 
Fehler lag. 

Automatische 

Numerierung 

Nun müssen Sie nur noch 
die anderen Felder, die zu ei¬ 
ner solchen Datenbank gehö¬ 
ren, definieren. Dies könnten 
Felder sein wie Abteilung, Titel 
etc. Bei der Eingabe Ihrer Da¬ 
ten wird jetzt der erste Mitarbei¬ 
ter die Nummer eins erhalten, 
der zweite die Nummer zwei 
etc. 

Wenn Sie später einen neu¬ 
en Mitarbeiter in Ihr Team auf¬ 
nehmen wollen, müssen Sie 
nur einen neuen Datensatz öff¬ 
nen, und schon hat Ihr neuer 
Mann seine Nummer. Sollte je¬ 


mand ausscheiden, brauchen 
Sie nur den entsprechenden 
Datensatz zu löschen. Da die 
SER-Funktlon als Konstante 
definiert ist, wird die Datei nicht 
neu durchnumeriert, sondern 
jeder Datensatz behält seine 
Nummer. 


In diesem Zusammenhang 
Ist es vielleicht noch erwäh¬ 
nenswert, daß eine Datei, bei 
der die SER-Funktion genutzt 
wurde, nicht reorganisiert wer¬ 
den kann. Sollten Sie es doch 
versuchen, erscheint eine Feh¬ 
lermeldung wie in Bild 3 darge¬ 
stellt. 

Das Ganze mag Ihnen zu¬ 
nächst sehr unsinnig erschei¬ 
nen, die Erklärung ist aber 
ganz einfach. Nehmen wir an. 
Sie hätten verschiedene Da¬ 
tensätze gelöscht und Super¬ 
base würde einen solchen Re¬ 
organisationslauf durchfüh¬ 
ren, dann wäre die ganze Datei 
neu durchnumeriert.' Können 

Reorganisation 
nicht mögiich 

Sie sich das Durcheinander 
vorstellen, wenn Mitarbeiter 
XY plötzlich die Personalnum¬ 
mer 12 besitzt und vor der Re¬ 
organisation war es die Num¬ 
mer 4. Sollten Sie dennoch den 


jBlSuperbas?: sbpeoplt mt Index auf Nuiihgp 
Mu«ber:f" 

Nine; 

Separtnent: 

Job Titlg; 
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Bild 2. So geben Sie die SER-Funktion ein 
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Bild 3. Die Reorganisation einer mit der SER-Funktion 
bearbeiteten Datei ist nicht möglich 


Wunsch verspüren, Ihre Arti¬ 
keldatei zu reorganisieren, ist 
dies nur über die Import/Ex¬ 
port-Funktion möglich. Expor¬ 
tieren Sie zuerst alle Daten Ih¬ 
rer Datei, mit Ausnahme des 
Feldes, auf die Sie die SER- 
Funktion angewandt haben. 
Danach erstellen Sie eine 
neue Datei nach dem Vorbild 
der alten und importieren die 
Daten wieder. 

Achtung: Wenn Sie Schwie¬ 
rigkeiten mit der Import/ 
Export-Funktion haben, emp¬ 
fehlen wir Ihnen, das entspre¬ 
chende Kapitel im Handbuch 
noch einmal genau durchzule¬ 
sen. Versuchen Sie nicht, nach 
dem Exportieren der Daten 
aus Ihrer Datei alle Datensätze 
zu löschen und dann die 
ASCII-Datei mit Ihren Daten 
wieder zu importieren. Die 
SER-Konstante einer Datei 
können Sie nachträglich nicht 
mehr löschen. Wenn In Ihrer 
Datei schon 70 Datensätze ge¬ 
speichert waren und Sie impor¬ 
tieren dieselbe ASCII-Datei, 
die Sie vorher schon exportiert 
haben, erhält der erste einge¬ 
lesene Datensatz die Nummer 
71. 

Mehrfach¬ 

eintragungen 

Ebenfalls eine neue Funk¬ 
tion ist die Möglichkeit der 
Mehrfacheintragungen in Text¬ 
feldern (Bild 4). In Textfeldern 
mit Mehrfacheintragungen 
wird immer nur der erste Ein¬ 
trag angezeigt, alle anderen 
Einträge sehen Sie nur, wenn 
Sie die Tasten <CTRL P> 
oder <CTRL N> innerhalb 
dieses Textfeldes betätigen. Im 
Superbase-Handbuch ist ein 
schönes Beispiel abgedruckt, 
das Ihnen zeigt, wie man eine 
ganze Adresse In einem Feld 
unterbringt. 

Toll, jetzt kann ich ja viel 
Platz sparen, werden Sie nun 
vielleicht denken. Früher 
brauchte man vier bis fünf Da¬ 
tenfelder für eine Adresse und 
ab sofort benötigt man nur 
noch ein Feld. 

Spätestens wenn Sie versu¬ 
chen, Ihre Adressen auf Etiket¬ 
ten auszudrucken oder einen 
Serienbrief zu schreiben, wer¬ 
den Sie feststellen müssen, 
daß dies mit Eintragungen 
aus Mehrfachtextfeldern nicht 
möglich Ist. Die einzige Mög¬ 
lichkeit, die Mehrfacheintra¬ 
gungen auszuwerten, besteht 
mit der Filter-Funktion von Su¬ 
perbase. Wenn Sie zum Bei¬ 
spiel alle Meier in Ihrem zwei¬ 
ten Mehrfachtextfeld suchen. 


müssen Sie folgende Syntax 
verwenden: 

FELDNAME(l) LIKE "Meier" 
Beachten Sie, daß Sie beim 
Anzeigen Ihrer Filterliste kein 
Feld mit dem Eintrag »Meier« 
sehen werden, da immer nur 
der erste Eintrag angezeigt 
wird. Leider Ist auch In diesem 
Fall das im Handbuch angege¬ 
bene Beispiel nicht ganz kor¬ 
rekt. Die Syntax FELDNA- 
ME(2) bezieht sich nicht — wie 
im Handbuch erläutert — auf 
den zweiten Mehrfacheintrag, 
sondern auf den dritten. Die¬ 
ses Beispiel sollte Ihnen zei¬ 
gen, daß Sie die Mehrfachein¬ 
tragungen in Textfeldern nur 
als zusätzliche Informationen 
verwenden sollten. Sicher wa¬ 
ren Sie schon In der Situation, 
daß Sie reihenweise Daten ein¬ 
geben mußten und es Ihnen 
nach einiger Zeit sicher auf die 
Nerven gegangen ist, daß Sie 
jeden eingegebenen Daten¬ 


satz einzeln speichern müs¬ 
sen. 

Mit den neuen Superbase- 
Versionen wird dieses Problem 
auch gelöst. Sie haben die 
Möglichkeit, im Datensatz¬ 
menü den sogenannten Sta¬ 
pelmodus einzuschalten. So¬ 
bald dieser aktiviert Ist, spei¬ 
chert Superbase die eingege¬ 
benen Datensätze nicht sofort, 
sondern das Programm behält 
Ihre Daten im Speicher, bis Sie 
den Stapelmodus wieder aus¬ 
schalten. Erst dann werden 
alle Daten auf Diskette gesi¬ 
chert. 

Es wird 
gestapelt 

Es ist möglich, daß Superba¬ 
se auch während der Stapel¬ 
modus eingeschaltet ist, auf 
die Diskette zugreift. Das ent¬ 
spricht zwar nicht ganz den An¬ 
gaben im Handbuch, aber Sie 


brauchen deswegen keine 
Angst zu haben. Alle eingege¬ 
benen Daten werden korrekt 
gespeichert. Auch wenn der 
Stapelmodus eingeschaltet ist, 
müssen Sie nach jedem einge¬ 
gebenen Datensatz die Tasten 
<Amiga-rechts S> und 
<Amiga-rechts N> betätigen 
oder im Menü Datensatz die 
Option »Speichern« und »Neu« 
auf rufen. 

Bei der Eingabe von großen 
Datenmengen sollten Sie den 
Stapelmodus immer wieder 
einmal abschalten, um zu spei¬ 
chern. Sollte plötzlich Strom 
ausfallen oder Ihr Rechner es 
vorziehen, zu meditieren, ge¬ 
hen nur wenige Daten verlo¬ 
ren. 

Einsatz einer 
RAM-Disk 

Wenn Sie zu den Glückli¬ 
chen gehören, deren Amiga 
mit genügend RAM ausgestat¬ 
tet ist, können Sie natürlich Ih¬ 
re Dateien in einer RAM-Disk 
bearbeiten. Dazu müssen Sie 
im Flle-Requester lediglich vor 
dem Dateinamen »RAM:« ein¬ 
geben. Bel der Bearbeitung ei¬ 
ner Datei In der RAM-Disk wird 
deutlich, wie schnell der Ami¬ 
ga mit Superbase wirklich Ist. 
Sobald Sie Ihre RAM-Datel 
wieder schließen, fragt Super¬ 
base automatisch, ob die Datei 
wieder auf die Diskette zurück¬ 
geschrieben werden soll. 

In loser Folge finden Sie in 
den nächsten Amiga-Sonder- 
heften weitere Tips & Tricks zu 
Superbase. Das nächste Mal 
werden wir uns mit Lokup- und 
der Tenär-Funktion beschäf¬ 
tigen. (Dietmar Inäbnit/sk) 


Bild 4. 
Im Feld 
»Eintra¬ 
gungen« 
lassen sich 
Mehrfach¬ 
eintragun¬ 
gen fest¬ 
legen 
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Spiele 


Schach 

der Langeweile! 


Strategen aufgepaßt! Mit Shogun präsentieren wir Ihnen ein 
ganz besonderes Programm: ein altes japanisches Brettspiel, das 

dem Schach sehr ähnlich ist. 


E S ist schwül, die Luft ist stickig. Kein Laut durchdringt die 
trügerische Stille. Das Gefecht Ist an einem entscheiden¬ 
den Punkt angelangt. Die Redakteure fixieren sich aus 
den Augenwinkeln. Wer macht den ersten Fehler? Plötzlich gellt 
ein markerschütternder Schrei. Verdammt, das war einer zuviel, 
denke ich und überlege mir bereits eine neue Angriffstaktik, um 
meinem Gegner endgültig den Garaus zu machen. 

Solch fesselnde Szenen können auch Sie erleben. Sie benöti¬ 
gen lediglich einen Amiga, Shogun und einen Mitspieler als Op¬ 
fer. Haben Sie das alles? Gut, dann kann es ja losgehen. 

Shogun wird von zwei Spielern gespielt. Das Ziel des Spiels ist 
es den gegnerischen Shogun mattzusetzen, oder alle seine Trup¬ 
pen aufzureiben. Die Spielregeln sind schnell erklärt: Das Spiel¬ 
feld besteht aus einem 8x8 Felder großen Bereich, in dem Sie Ih¬ 
re Spielsteine bewegen können. Jeder der acht Steine ist mit einer 
Zahl von 1 bis 4 gekennzeichnet, die sich nach jedem Zug ändert. 
Die Steine sind anfangs oben und unten In den Grundreihen auf¬ 
gestellt (Bild 1). Die Anfangsaufteilung ist jeweils verschieden, die 
Zahlen auf den Spielfiguren besitzen also anfangs immer ver¬ 
schiedene Werte. 

Der Stein mit der gelben Markierung ist der Shogun. Diese, 
dem König beim Schach entsprechende Figur, kann lediglich die 
Zahlen 1 und 2 annehmen. Die auf den Steinen aktuell angezeigte 
Zahl muß gezogen werden, wobei man sich nur waagerecht und 
senkrecht, nie diagonal fortbewegen kann. Die Zugrichtung kann 
vorwärts, rückwärts oder seitwärts sein. Bei jedem Zug darf man 
einmal(!) einen Richtungswechsel im rechten Winkel vornehmen. 
Trifft man bei einem Zug genau auf ein Feld, das bereits von einem 
gegnerischen Stein besetzt ist, so wird der Gegner aus dem Spiel 
genommen. Liegt ein Stein, egal ob ein eigener oder einer des 
Gegners, im Weg, so darf dieser nicht aus dem Spiel genommen 
und auch nicht übersprungen werden. 

Ein Shogun ist bedroht, wenn eine gegnerische Figur diesen 
beim nächsten Zug schlagen könnte. Ihr Amiga meldet dies mit ei¬ 
nem Warnton und der Textausgabe »Ihr shogun ist bedroht«. Der 
Shogun muß dann geschützt werden. Indem 
— er auf ein unbedrohtes Feld gesetzt wird, 

— er den bedrohenden Stein schlägt, wenn dieser nicht von einer 
anderen gegnerischen Figur gedeckt ist, 

— ein anderer Stein die generische Figur schlägt, oder 


— eine andere Figur so zwischen Angreifer und Shogun gesetzt 
wird, daß der Bedroher nicht mehr auf das Feld des Shogun zu¬ 
greifen kann. 

Sekt oder Selters - das Spielende 

Es gibt zwei Wege, das Spiel zu beenden: Erstens, den gegneri¬ 
schen Shogun mattzusetzen, daß heißt ihn so zu bedrohen, daß 
er sich nirgendwohin mehr retten kann. Und zweitens, alle Solda¬ 
ten des Feindes, bis auf einen zu vernichten (Bild 2). 

Die Spielregeln hören sich eventuell etwas kompliziert an, spä¬ 
testens nach den ersten Spielen sind Sie mit den Regeln jedoch 
bestens vertraut. Dann werden Sie viele listige Spielzüge ent¬ 
decken, die dem Gegner den Angstschweiß auf die Stirn treiben. 
Ein Hinweis noch: die Wertigkeit der Spielfiguren Ist auf den glei¬ 
chen Feldern in einem Spiel immer gleichbleibend. Das Schema, 
nach dem die Figuren ihre Wertigkeit verändern, möchten wir Ih¬ 
nen an dieser Stelle nicht verraten. Vielleicht finden Sie ja die Lo¬ 
gik, die dahintersteht, heraus (kleiner Tip: auch das Spielfeld ver¬ 
ändert seine Lage in jedem Spiel und es gibt Kategorien von 
Spielsteinen). 

Insgesamt gibt es drei verschiedene Spielsteinsorten. Jedem 
Stein ist eine der Bezeichnungen a, b, c, oder d in einer festgeleg¬ 
ten Reihenfolge zugeteilt: 



Ein Shogun kann also die Zahlen 1 oder 2 zeigen, die anderem 
Steine die Zahlen 1 bis 4. Jedem der 64 Spielfelder ist stets eine 
der entsprechenden Bezeichnungen »a« bis »d« zugeordnet. 

Jetzt gibt’s keine Hinweise mehr, sonst sind Sie am Ende Ihren 
Gegnern vielleicht zu hoch überlegen, und das Spiel wird für die 
Gegner frustrierend. 



Bild 1. Die Anfangsszene von Shogun, noch sind alle 
Spielsteine auf dem Brett... 


Bild 2. ...am Ende ist der Spieler Weiß geschlagen, da er 
neben dem Shogun nur noch eine weitere Figur besitzt. 
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Hinweise zum Programm 

Geben Sie Listing 1 mit dem Checksummer (Seite 159) ein und 
speichern es unter dem Namen »Shogun« auf eine Diskette, auf 
der auch das Amiga-Basic enthalten ist. Darauf erstellen Sie ein 
Info-File mit demselben Namen und brauchen dieses nur noch zu 
laden. 

Nach dem Starten des Programms erscheint das Titelbild. Sie 
können die Spielregeln noch einmal lesen, oder direkt ins Spiel 
verzweigen (<n> eingeben). In diesem Fall erscheint die Mel¬ 
dung »Einen Moment bitte...«, kurz darauf wird das Feld aufge¬ 
baut. 

Auf diesem Bildschirm sind zusätzlich drei weitere Fenster zu 
sehen: Das Fenster »Eingaben« dient zur Eingabe von Daten bei 
Programmabfragen. Die Fenster »Spieler 1« und »Spieler 2« sind 
reine Ausgabefenster, hier erscheinen im Programmverlauf ver¬ 
schiedene Informationen. 

Geben Sie nun Im Eingabefenster die Namen für Spieler 1 und 
2 an, Indem Sie die Namen eintippen und dies mit < RETURN > 
bestätigen. Anschließend erscheint im Feld »Spieler 1« die Auffor¬ 
derung »Sie sind am Zug«. 

Dieser fährt nun mit dem Mauszeiger auf die Figur, die er bewe¬ 
gen möchte. Er klickt sie mit der linken Maustaste an, anschlie¬ 
ßend fährt er auf das Zielfeld und drückt erneut die linke Mausta¬ 
ste. Der Zug wird ausgeführt und der zweite Spieler ist an der 
Reihe. 

War der angegebene Zug nicht regelgemäß, erscheint eine 
Fehlermeldung. Sie müssen sich dann ein anderes Zielfeld aus¬ 
suchen. Entscheiden Sie sich nach dem Anklicken der ge¬ 
wünschten Figur doch für eine andere, klicken Sie die erste erneut 
an und dann die jetzt gewünschte. 

Die Überprüfung, ob ein Shogun »matt« gesetzt ist, übernimmt 
das Programm. Dies kann bei seltenen, ungünstigen Situationen 
einige Sekunden dauern. Dies wird mit einer Meldung bekannt¬ 
gegeben. 

Ist das Spiel beendet, fragt Sie das Programm, ob eine weitere 
Partie gewünscht wird. Geben Sie daraufhin <]> oder <n> ein. 
Werden die Eingaben nicht angenommen, kann es daran liegen, 
daß das Eingabefenster im Moment nicht das aktuelle Ist. Sie er¬ 
kennen das an der »Geisterschrift«. Ein kurzer Klick auf die linke 
Maustaste genügt dann, der Mauszeiger muß sich dabei im Ein¬ 
gabefenster befinden. 

Nun aber los: hinsetzen, abtippen, spielen. 

(Frank Garnath/rs) 


Programmname: Shogun _ 

Computer: Amiga 500, 1000, 2000 
mit Kickstart 1.2 


Sprache: Amiga-Basic 


Programm 

: Shogun 

1 HOO ’ 

# * jnnn» innnnnnnnnnnnm****« # Ä * « * # Ä * * Ä * * 

2 WD ' 

* Programm SHOGUN V 2S * 

3 mV » 

* von Frank Gamath 1987/1988 * 

4 KR ' 


5 zb3 

CLEAR ,,30000 

6 Af 

DEFINT f,m-s,w,z 

7 TW 

SCREEN 2,640,215,3,2 

8 fn 

WINDOW 7,"",(0,0)-(631,190),0,2 

9 TV 

WINDOW 8,'^',(170,72)-(473,127),0,2:LINE (0,0)-(303,65),1 
,bf 

10 ot 

WINDOW 6,"",(162,68)-(465,123),0,2 

11 IN 

PALETTE 0,.9,.9,1 

12 3T 

FOR x=l TO 7 

13 Lp5 

PALETTE x,x/10-.l,x/10-.l,x/10+.l 

14 9e3 

NEXT X 

15 01 

COLOR 1,0 

16 Ir 

LOCATE 1,12:PRINT' SHOGUN^ 

17 TN 

LOCATE 3,9: PRINT''von Frank Garnath" 

18 IN 

LOCATE 5,9.-PRINT"Lübeck, 1987/1988" 

19 kP 

LOCATE 7,1:PRINT"Möchten Sie die Anleitung lesen (j/n)?" 

20 yk 

farbe=l:add=l 

21 Dx 

WHILE i$< > "j " AND i$< > "n" 


22 PY5 

i$=INKEY$:RANDOMIZE TIMER 

23 MK 

WINDOW OUTPUT 7 

24 Qp 

LINE (x,y)-(631-x,200-y),färbe,b:LINE (x+l,y)-(630-x,2 
00-y),farbe,b 

25 dV 

färbe=farbe+add 

26 yd 

IF farbe=7 THEN add=-l 

27 iY 

IF farbe=l THEN add=l 

28 Lt 

IF z=0 AND x<631 THEN x=x+2:y=y+l ELSE z=l:x=x-2:y=y- 
1:IF x<0 THEN z=0 

29 ui3 

WEND 

30 28 

CLS 

31 11 

WINDOW CLOSE 6 

32 Cy 

WINDOW CLOSE 8 

33 iW 

IF i$="j" THEN CALL Anleitung 

34 JA 

GOSUB Dunkel:PALETTE 2,0,0,0:COLOR 2,0 

35 IB 

CLS:LOCATE 12,30:PRINT"Einen Moment bitte!" 

36 qn 

GOSUB Hell 

37 JzO Voreinstellungen: 

38 zN3 

DIM SHARED f(63), wert(63), ZugR(7,15), ZugW(7,15) 

39 WQl 

NeuesSpiel: 

40 ok3 

RANDOMIZE TIMER :v=INT(RND^t4) 

41 2K 

IF v=0 OR v=2 THEN RESTORE DatenO:f1=2:f2=3 

42 vk 

IF v=l OR v=3 THEN RESTORE Daten90:fl=3:f2=2 

43 MU 

IF v>l THEN a=l:b=0:c=-l ELSE a=0:b=l:c=l 

44 8s 

FOR y=a TO b STEP c 

45 AD5 

IF v>l THEN d=15+y*32:e=y»32:f=-l ELSE d=yi^32:e=15+y» 
'32:f=l 

46 bY 

FOR x=d TO e STEP f 

47 Et7 

READ wert(x):wert(x+l6)=wert(x) 

48 hC5 

NEXT X 

49 kG3 

NEXT y 

50 Wn 

FOR y=0 TO 3 

51 Gw5 

FOR x=y*l6 TO 6+y*l6 STEP 2 

52 Nk7 

f(x)=fl:f(x+l)=f2:f(x+8)=f2:f(x+9)=fl 

53 raH5 

NEXT X 

54 pL3 

NEXT y 

55 4D 

RANDOMIZE TIMER 

56 i7 

FOR x=0 TO 7 

57 Nq5 

prx(x)=l+x*48:pry(x)=l 

58 OF 

pwx(x)=prx(x):pwy(x)=pry{x)+l68 

59. Jr 

zr(x)=wert(x):zw(x)=wert(x+56) 

60 Ze 

v=RND 

61 71 

IF v<.5 THEN zar(x,l)=l:zar(x,2)=3:zar(x,3)=2:zar(x,4 
)=4 

62 Em 

IF v> = .5 THEN zar(x,l)=l:zar(x,2)=2:zar(x,3)=4:zar(x, 

4) =3 

63 ch 

v=RND 

64 IW 

IF v<.5 THEN zaw(x,l)=l:zaw(x,2)=3:zaw(x,3)=2:zaw(x,4 
)=4 

65 JC 

IF v> = .5 THEN zaw(x,l)sl:zaw(x,2)=2:zaw(x,3)=4:zaw(x, 

4) =3 

66 zU3 

NEXT X 

67 XI 

zar(3,l)=l:zar(3,2)=l:zar(3,3)=2:zar(3,4)=2 

68 Ap 

zaw(4,l)=l:zaw(4,2)=l:zaw(4,3)=2:zaw(4,4)=2 

69 M3 

IF ns=l THEN Spielfeld 

70 9n 

FOR y=.75 TO .02 STEP -.01 

71 fy5 

FOR x=0 TO 1 

72 TV7 

PALETTE x,y,y+.22,y+.25 

73 6b5 

NEXT X 

74 9f3 

NEXT y 

75 7Y 

FOR x=2 TO 7 

76 bF5 

PALETTE X,. 02,.24,.27 

77 Af3 

NEXT X 

78 rc 

WINDOW CLOSE 7 

79 5u 

WINDOW 2,"SHOGUN V 2S",(0,0)-(397,200),0,2 

80 9Z 

FOR x=0 TO 8 

81 oS5 

LINE (10,5)-(387+x,194+INT(x/2)),2,b 

82 PU3 

NEXT 

83 zNO Spielfeld: 

84 VL3 

WINDOW OUTPUT 2:LOCATE 2,1 

85 OS 

LINE (0,0)-(385,193),5,b 

86 Et 

FOR y=l TO 163 STEP 48 

87 J65 

FOR x=l TO 317 STEP 96 

88 KM7 

LINE (x,y)-(x+47,y+23),fl,bf 

89 Px 

LINE (x+48,y)-(x+95,y+23),f2,bf 

90 wU 

LINE (x,y+24)-(x+47,y+47),f2,bf 

91 KN 

LINE (x+48,y+24)-(x+95,y+47),fl,bf 

92 Pu5 

NEXT X 

93 Sy3 

NEXT y 

94 K80 Figuren: 

95 Lk3 

FOR x=0 TO 7 

96 Ip5 

LINE (6+xU8,4)-(4l+x*48,2l),4,bf 

97 Wt 

LINE (6+xi^48,172)-(4l+x»48,189),l,bf 

98 CI 

LINE (8+x*48,6)-(39+x*48,19),6,b 
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99 oX LINE (8+x*48,174)-(39+x*48,187),7,b 

100 of IF x<>3 THEN PAINT (20+xH8,12),6 

101 wu IF x<>4 THEN PAINT (20+x*48,179) ,7 

102 Z43 NEXT X 

103 lU PAINT (164,12),5,6:PAINT (212,179),5,7 

104 xN COLOR 5,4 

105 Vu FOR x=0 TO 7 

106 Pr5 PRINT PTAB(12+x*48)zar(x,zr(x)); 

107 e93 NEXT x 

108 Ow COLOR 2,1:L0CATE 23,1 

109 Zy FOR x=0 TO 7 

110 xZ5 PRINT PTAB(12+xit48)zaw(x,zw(x)); 

111 iD3 NEXT X 

112 BIO Eingaben: 

113 bu3 WINDOW 4, "Spieler 1",(404,0)-(631,54),0,2 

114 JL WINDOW 5,"Spieler 2",(404,l43)-(631,200),0,2 

115 Xe WINDOW 3,"Eingaben",(404,67)-(631,129),0,2 

116 Rv PALETTE 0,.02,.24,.27 

117 J1 PALETTE 1,1,1,1 

118 di PALETTE 2,0,0,0 

119 tM PALETTE 3,.33,.33,.33 

120 an PALETTE 4,.93,.2,0 

121 lA PALETTE 5,1,1,.13 

122 IW PALETTE 6,.53,.15,0 

123 oF PALETTE 7,.63,.63,.63 

124 xJ COLOR 5,0 

125 dy FOR x=l TO 2 

126 D65 PRINT "Name Spieler",x:INPUT na$(x) 

127 Ci BEEP 

128 zU3 NEXT X 

129 00 WINDOW OUTPUT 4:COLOR 4,0:PRINT na$(l) 

130 ys WINDOW OUTPUT 5:C0L0R 1,0:PRINT na$(2) 

131 ro WINDOW OUTPUT 3:COLOR 5,0 

132 t5 CLS:sp=l 

133 eRO naechsterSpieler: 

134 yk3 IF sp=0 THEN sp=l ELSE sp=0 

135 tu SteinNr=-2 

136 bFO Spielbeginn: 

137 Mc3 IF raattpr=l THEN Mattpruef 

138 VO WINDOW OUTPUT 4+sp:COLOR 4-spif3,0:CLS:PRINT na$(l+sp) 

139 bu PRINT"Sie sind am Zug!":PRINT p$ 

140 13 WINDOW OUTPUT 2 

141 wyl CheckMousel: 

142 nx3 WHILE M0USE(0)<1 

143 kY WEND 

144 J3 mx=M0USE(3):ray=M0USE(4) 

145 OQ mx=INT(mx/48)*48+l:my=INT(niy/24)»24+l 

146 d3 IF sx=0 THEN sx=l:sy=l 

147 vC IF px=0 THEN px=l:py=l 

148 2T LINE (sx,sy)--(sx+47,sy+23),f(sx/48+sy/3),b 

149 qi LINE (px,py)-(px+47,py+23),f(px/48+py/3),b 

150 Ed FOR x=0 TO 7 

151 S15 IF prx(x)=mx AND pry(x)=my THEN m=x:GOTO MarkSetz 

152 Ns3 NEXT x 

153 Y9 GOTO CheckMousel 

154 Yul MarkSetz: 

155 tS3 BEEP:LINE (mx,ray)-(nix+47,my+23),5,b 

156 DGl CheckMouse2: 

157 2K3 WINDOW OUTPUT 2 

158 3D WHILE M0USE(0)<1 

159 Oo WEND 

160 95 sx=M0USE(3):sy=M0USE(4) 

161 6Z IF sx>383 OR sy>191 THEN CheckMouse2 

162 j3 sx=INT(sx/48)»48+1:sy=INT(sy/24)*24+1 

163 rk IF sx=prx(m) AND sy=pry(m) THEN LINE (sx,sy)-(sx+47,sy+2 

3),f(sx/48+sy/3),b:GOTO Spielbeginn 

164 lA LINE (sx,sy)-(sx+47,sy+23),5,b 

165 Oal EinsprungMattpruef: 

166 713 schrittzahl=ABS(INT((prx(m)-sx)/48))+ABS(INT((pry(ra)-sy) 

/24)) 

167 Dp IF schrittzahl<> zar(m,zr(m)) THEN 

168 9J5 fz=l:fzl$="Sie müssen":fz2$="Feld(er) ziehen!" 

169 05 GOTO FalscherZug 

170 gZ3 END IF 

171 Zy FOR x=0 TO 7 

172 0P5 IF.sx=prx(x) AND sy=pry(x) THEN 

173 C77 IF schwpr=l THEN Sprungpruef 

174 Wf fzl$="Sie können nicht Ihren":fz2$="eigenen Stein sc 

hlagen!" 

175 6B goto FalscherZug 

176 mf5 END IF 

177 mH3 NEXT x 

178 aal Sprungpruef: 

179 YJ3 IF zar(m,zr(m))=l THEN AllgShogunpruefl 


180 eL wegl=0:weg2=0 

181 Ze IF sx=prx(m) THEN ZugpruefY 

182 ij IF sy=pry(m) THEN ZugpruefX 

183 8t IF sx<prx(m) THEN stpx=48 

184 2M IF sx>prx(m) THEN stpx=-48 

185 qn IF sy<pry(m) THEN stpy=24 

,186 yK IF sy>pry(m) THEN stpy=-24 

187 12 FOR n=sx+stpx TO prx(m) STEP stpx 

188 yx5 FOR o=0 TO 7 

189 wd7 IF (prx(o)=n AND pry(o)=sy) OR (pwx(o)=n AND pwy(o)= 

sy) THEN wegl=l 

190 te IF (prx(o)=n-stpx AND pry(o)=pry(m) ) OR (pwx(o)=n“St 

px AND pwy(o)=pry(m)) THEN weg2=l 

191 145 NEXT 0 

192 h23 NEXT n 

193 5k FOR n=sy+stpy TO pry(m)-stpy STEP stpy 

194 435 FOR 0=0 TO 7 

.195 007 IF (pry(o)=n AND prx(o)=prx(m)) OR (pwy(o)=n AND pwx 

(o)=prx(m)) THEN wegl=l 

196 Ic IF (pry(o)=n AND prx(o)=sx) OR (pwy(o)=n AND pwx(o)= 

sx) THEN weg2=l 

197 oA5 NEXT o 

198 n83 NEXT n 

199 66 IF wegl=l AND weg2=l THEN FZug 

200 Gr GOTO AllgShogimpruefl 

201 p71 ZugpruefX: 

202 0H3 IF sx<prx(m) THEN stp=48 

203 dD IF sx>prx(m) THEN stp=-48 

204 7f FOR n=sx+stp TO prx(m)-stp STEP stp 

205 FE5 FOR o=0 TO 7 

206 JS7 IF (prx(o)=n AND pry(o)=sy) OR (pwx(o)=n AND pwy(o)= 

sy) THEN FZug 

207 yK5 NEXT o 

208 xI3 NEXT n 

209 PO GOTO AllgShogunpruefl 

210 3M1 ZugpruefY: 

211 s03 IF sy<pry(m) THEN stp=24 

212 PA IF sy>pry(m) THEN stp=-24 

213 Pz FOR n=sy+stp TO pry(m)-stp STEP stp 

214 ON5 FOR o=0 TO 7 

215 Rn7 IF (pry(o)=n AND prx(o)=sx) OR (pwy(o)=n AND pwx(o)= 

sx) THEN 

216 Fdl FZug: 

217 059 fzl$="Sie dürfen keinen Stein":fz2$="überspringen! 

":fz=0 

218 ns GOTO FalscherZug 

219 TM7 END IF 

220 BX5 NEXT o 

221 AV3 NEXT n 

222 CEO AllgShogunpruefl: 

223 be3 spp=sp:sxx=sx:syy=sy 

224 um zz=zr(m):zr(m)=wert(INT(sx/48+sy/3)) 

225 wM pxm=prx(m):pym=pry(m):prx(m)=sx:pry(m)=sy 

226 AZ z=-l 

227 JMO AllgShogunpruef2: 

228 TF3 IF sp=0 THEN 

229 2q5 sx=prx(3):sy=pry(3) 

230 Wv FOR x=0 TO 7 

231 hX7 IF spp=0 AND pwx(x)=sxx AND pwy(x)=syy THEN pxmem=pw 

x(x):pwx(x)=0:pymem=pwy(x):pwy(x)=0:z=x:pm=l 

232 fA5 NEXT x 

233 Fo GOSUB ShogunBedroht 

234 Zv IF spp=0 THEN sp=l:GOSUB WerteTauschen:GOTO AllgShogun 

pruef2 ELSE GOTO Pruefende 

235 073 ELSE 

236 H75 sx=prx(4):sy=pry(4) 

237 d2 FOR x=0 TO 7 

238 sj7 IF spp=l AND pwx(x)=sxx AND pwy(x)=syy THEN pxmem=pw 

x(x):pwx(x)=0:pymem=pwy(x):pwy(x)=0:z=x:pm=l 

239 mH5 NEXT x 

240 Mv GOSUB ShogunBedroht 

241 11 IF spp=l THEN sp=0:GOSUB WerteTauschen:GOTO AllgShogun 

pruef2 

242 qJ3 END IF 

243 Jhl Pruefende: 

244 mu3 sx=sxx:sy=syy:sp=spp 

245 Po GOSUB WerteTauschen 

246 mnO Steinsetz: 

247 Tf3 IF spra=l AND pm=l THEN pm=0:IF z<>-l THEN pwx(z)=pxmem 

:pwy(z)=pymem 

248 fM IF spm=l THEN MattEnde 

Listing 1. »Shogun« bitte mit dem Checksummer 
(Seite 159) eingeben 
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249 pF WINDOW OUTPUT 4+sp:CLS:PRINT na$(l+sp) 

250 Xp WINDOW OUTPUT 2 

251 Ci BEEP 

252 Te LINE (prx(3+sp),pry(3+sp))-(prx(3+sp)+47,pry(3+sp)+23),f 

(prx(3+sp)/48+pry(3+sp)/3),b 

253 pG LINE (mx,my)-(nix+47,my+23),f(nix/48+my/3),bf 

254 3D prx(in)=sx:pry(ra)=sy:zr(m)=wert(INT(prx(ra)/48+pry(in)/3)) 

255 12 LINE (prx(in)+5,pry(ra)+3)-(prx(m)+40,pry(ra)-f20) ,4-sp^^3>bf 

256 H2 LINE (prx(ra)+8,pry(ra)+5)-(prx(ra)+38,pry(m)+18),6+sp,b 

257 DQ IF ra=3+sp THEN fa=5 ELSE fa=6+sp 

258 To PAINT (prx(m)+20,pry(in)+12) ,fa,6+sp 

259 dl LINE (prx(in) ,pry(in))-(prx(in)+47,pry(m)+23) ,f(prx(m)/48+p 

ry(m)/3),b 

260 Br LOCATE pry(m)/8+2,l:C0L0R 5-sp*3,4-sp*3 

261 x6 PRINT PTAB(prx(ra)+ll);zar(ra,zr(ra)) 

262 g4 IF sp=sb THEN p$='"' 

263 op IF zO-1 THEN GOSUB FigurGeschlagen 

264 17 GOSUB WerteTauschen 

265 CY GOTO naechsterSpieler 

266 gaO Summen: 

267 bA3 zzz=zahl-l 

268 Gy sumX(l,l)=0:sumX(l,2)=0:sumX(l,3)=-zahlH8:sumX(l,4)=zah 

1»48: sumY( 1,1) =-zahl*24: sumY( 1,2) =zahli^24: sumY( 1,3) =0: su 
raY(l,4)=0 

269 nY IF Pruefstufe=l THEN RETURN 

270 Po sumX(2,l)=-48:sumX(2,2)=48:sumX(2,3)=-48:sumX(2,4)=48:su 

^ mY(2,l)=-zzz*24:suraY(2,2)=zzz*24:sumY(2,3)=zzz*24:sumY(2 

,4)=-zzz*24 

271 VC IF Pruefstufe=2 THEN RETURN 

272 GC sumX(3#l)=-zzz»48:sumX(3,2)=zzz*48:sumX(3,3)=-zzz^^48:sura 

X(3,4)=zzz*48:sumY(3,l)=-24:sumY(3,2)=24:sumY(3,3)*24:su 

mY(3,4)=-24 

273 3g IF Pruefstufe=3 THEN RETURN 

274 Ud sumX(4,l)=-96:sumX(4,2)=96:sumX(4,3)=-96:suraX(4,4)=96:su 

mY(4,l)=-48:suraY(4,2)=48:sumY(4,3)=48:sumY(4,4)=-48 

275 nP RETURN 

276 MwO Mattpruef: 

277 z63 SteinNr=SteinNr+l:m=SteinNr 

278 13 IF SteinNr=-l THEN IF sp=0 THEN m=3 ELSE m=4 

279 2z IF SteinNr=0 THEN WINDOW OUTPUT 4+sp: PRINT''Einen Augenbl 

ick...":WINDOW OUTPUT 2 

280 Bl IF (sp=0 AND SteinNr=3) OR (sp=l AND SteinNr=4) THEN Mat 

tpruef 

281 Ef IF SteinNr>7 THEN VerlorenGewonnen 

282 vj IF prx(m)=0 THEN Mattpruef 

283 zg Pruefstufe=l:pr=0 

284 Vv zahl=zar(m,zr(m)) 

285 PB mx=prx(m):ray=pry(m):zrzahl=zr(m) 

286 7ul EinsprungMEnde: 

287 413 spm=l:MEnde=0 

288 eM GOSUB Summen 

289 Kol Pruefstufen: 

290 fC3 pr=pr+l 

291 dB sx=prx(m)+sumX(Pruefstufe,pr):sy=pry(m)+sumY(Pruefstufe, 

pr):IF sx<l OR sy<l OR sx>337 OR sy>l69 THEN MEnde=l 
:GOTO MattEnde 

292 Rq IF pr>4 AND zahl=Pruefstufe AND SteinNr=7 THEN Verloren 

Gewonnen 

293 CU IF pr>4 AND zahl=Pruefstufe THEN naechstStein=l:GOSUB M 

attEnde:GOTO Mattpruef 

294 77 IF pr>4 AND zahl > Pruef stufe THEN Pruefstufe=Pruefstufe 

+l:MEnde=l:pr=0:GOT0 MattEnde 

295 rt IF Pruefstufe=5 THEN naechstStein=l:MEnde=0:GOSUB MattEn 

de:GOTO Mattpruef 

296 5q GOTO EinsprungMattpruef 

297 WVl MattEnde: 

298 xX3 spm=0:sx=0:sy=0:prx(m)=mx:pry(m)=my:zr(m)=zrzahl 

299 QY IF MEnde=l THEN EinsprungMEnde 

300 ec IF naechstStein=l THEN naechstStein=0:RETURN 

301 Nc mattpr=0:SteinNr=-2 

302 hu GOTO Spielbeginn 

303 eVO ShogunBedroht: 

304 c53 FOR w=0 TO 7 

305 175 shfeld=ABS((pwx(w)-sx)/48)+ABS((pwy(w)-sy)/24) 

306 uR IF shfeld=zaw(w,zw(w)) THEN 

307 q67 px=pwx(w):py=pwy(w) 

308 4L IF pxOO AND shfeld=l THEN FZug2 

309 9A IF pxOO THEN GOSUB Shogunpruef 

310 wp5 END IF 

311 u03 NEXT w 

312 00 RETURN 

313 xDO Shogunpruef: 


314 oV3 wegl=0:weg2=0 

315 lA IF sx=px THEN ShogunpruefY 

316 RF IF sy=py THEN ShogunpruefX 

317 MM IF sx<px THEN stpx=48 

318 nb IF sx>px THEN stpx=-48 

319 IK IF sy<py THEN stpy=24 

320 nT IF sy>py THEN stpy=-24 

321 UI FOR n=sx+stpx TO px STEP stpx 

322 875 FOR 0=0 TO 7 

323 vH7 IF (sp=0 AND o=3) OR (sp=l AND o=4) THEN 

324 se9 IF pwx(o)=n AND pwy(o)=sy THEN wegl=l 

325 5u IF pwx(o)=n-stpx AND pwy(o)=py THEN weg2=l 

326 ra7 ELSE 

327 Ar9 IF (prx(o)=n AND pry(o)=sy) OR (pwx(o)=n AND pwy(o 

)=sy) THEN wegl=l 

328 7F IF (prx(o)=n-stpx AND pry(o)=py) OR (pwx(o)=n-stpx 

AND pwy(o)=py) THEN weg2=l 

329 F87 END IF 

330 xJ5 NEXT o 

331 wH3 NEXT n 

332 Ik FOR n=sy+stpy TO py-stpy STEP stpy 

333 JI5 FOR 0=0 TO 7 

334 ^7 IF (sp=0 AND 0=3) OR (sp=l AND o=4) THEN 

335 fS9 IF pwy(o)=n AND pwx(o)=px THEN wegl=l 

336 ln IF pwy(o)=n AND pwx(o)=sx THEN weg2=l 

337 217 ELSE 

338 jX9 IF (pry(o)=n AND prx(o)=px) OR (pwy(o)=n AND pwx(o 

)=px) THEN wegl=l 

339 Kv IF (pry(o)=n AND prx(o)=sx) OR (pwy(o)=n AND pwx(o 

)=sx) THEN weg2=l 

340 QJ7 END IF 

341 8U5 NEXT 0 

342 7S3 NEXT n 

343 57 IF wegl=l AND weg2=l THEN RETURN 

344 D6 GOTO FZug2 

345 bll ShogunpruefX: 

346 uA3 IF sx<px THEN stp=48 

347 od IF sx>px THEN stp=-48 

348 2w FOR n=sx+stp TO px-stp STEP stp 

349 ZY5 FOR 0=0 TO 7 

350 Mi7 IF (sp=0 AND o=3) OR (sp=l AND o=4) THEN 

351 UK9 IF pwx(o)=n AND pwy(o)=sy THEN RETURN 

352 H07 ELSE 

353 1W9 IF (prx(o)=n AND pry(o)=sy) OR (pwx(o)=n AND pwy(o 

)=sy) THEN RETURN 

354 eX7 END IF 

355 M15 NEXT 0 

356 Lg3 NEXT n 

357 QJ GOTO FZug2 

358 r21 ShogunpruefY: 

359 JA3 IF sy<py THEN stp=24 

360 rh IF sy>py THEN stp=-24 

361 NJ FOR n=sy+stp TO py-stp STEP stp 

362 ml5 FOR o=0 TO 7 

363 Zv7 IF (sp=0 AND 0=3) OR (sp=l AND o=4) THEN 

364 YS9 IF pwy(o)=n AND pwx(o)=sx THEN RETURN 

365 UD7 ELSE 

366 qZ9 IF (pry(o)=n AND prx(o)=sx) OR (pwy(o)=n AND pwx(o 

)=sx) THEN RETURN 

367 rk7 END IF 

368 Zv5 NEXT o 

369 Yt3 NEXT n 

370 n71 FZug2: 

371 DM3 li=l 

372 RF IF sppOsp THEN sb=sp:p$="Ihr Shogun wird bedroht! ":G0 

SUB ShogunWirdBedroht:RETURN 

373 uT IF spp=sp THEN fzl$="Durch diesen Zug würde Ihr":fz2$="S 

hogun bedroht werden!":prx(m)=pxm:pry(m)=pym:zr(ra)=zz:fz 
=0 

374 oD IF z<>-l THEN pwx(z)=pxmem:pwy(z)=pymem:pm=0 

375 E4 sx=sxx:sy=syy 

376 vRO FalscherZug: 

377 KK3 IF mattpr=l THEN MEnde=l:G0T0 MattEnde 

378 UU IF li=l AND ((sp=0 AND m=3) OR (sp=l AND m=4)) THEN LINE 

(sx,sy)-(sx+47,sy+23),l+sp*3,b 

379 dB IF li=l AND ((sp=0 AND m<>3) OR (sp=l AND m<>4)) THE 

N LINE (prx(3+sp),pry(3+sp))-(prx(3+sp)+47,pry(3+sp)+23) 
,l+sp*3>b 

380 u5 IF li=l THEN LINE (px,py)-(px+47,py+23),l+sp*3,b 

381 kP WINDOW OUTPUT 4+sp:CLS 

382 Th PRINT fzl$ 

383 IW IF fz=l THEN PRINT zar(m,zr(m));:fz=0 

384 ap PRINT fz2$ 
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385 iO WINDOW OUTPUT 2 

386 ky SOUND 150,5,255,1 

387 tK LINE (sx,sy)-(sx+47,sy+23),f(sx/48+sy/3),b 

388 hZ LINE (px,py)-(px+47,py+23),f(px/48+py/3),b 

389 HE IF li=l AND ((sp=0 AND ni<>3) OR (sp=l AND ra<>4)) THE 

N LINE (prx(3+sp),pry(3+sp))-(prx(3+sp)+47,pry(3+sp)+23) 
,f(prx(3+sp)/48+pry(3+sp)/3),b 

390 RZ li=0 

391 Q2 GOTO CheckMouse2 

392 jpO ShogunWlrdBedroht: 

393 xe3 LINE (sx,sy)-(sx+47,sy+23),l+sp*3,b:LINE (px,py)-(px+47, 

py+23),l+sp^^3,b 

394 Ps FOR x=230 TO 630 STEP 15 

395 8f5 SOUND x,.5,255,IrSOUND 830-x,.5,255,2 

396 Jo3 NEXT x 

397 71 raattpr=l 

398 mO RETURN 

399 ITO FigurGeschlagen: 

400 Gf3 FOR x=0 TO 7 

401 qH5 IF pwx(x)<>0 THEN An2ahl=Anzahl+l 

402 Pu3 NEXT X 

403 8t IF sp=l AND Anzahl <3 THEN sp=0:inattpr=0:G0T0 VerlorenGe 

Wonnen 

404 Cs IF sp^O AND Anzahl<3 THEN sp=l:raattpr=0:G0T0 VerlorenGe 

Wonnen 

405 Hs Anzahl=0 

406 uW RETURN 

407 h90 WerteTauschen: 

408 On3 FOR x=0 TO 7 

409 nw5 SWAP prx(x),pwx(x):SWAP pry(x),pwy(x):SWAP zr(x),zw(x) 

410 QJ FOR y=l TO 4 

411 ni27 SWAP zar(x,y),zaw(x,y) 

412 b75 NEXT y 

413 a53 NEXT x 

414 2e RETURN 

415 R30 Dunkel: 

416 dc3 FOR x=l TO 0 STEP -.01 

417 OD5 PALETTE 0,x,x,x:PALETTE l,x,x,x 

418 fA3 NEXT X 

419 7j RETURN 

420 xUO Hell: 

421 Co3 FOR x=0 TO 1 STEP .01 

422 TI5 PALETTE 0,x,x,x:PALETTE l,x,x,x 

423 kF3 NEXT X 

424 Co RETURN 

425 FyO VerlorenGewonnen: 

426 T83 WINDOW OUTPUT 4+sp:CLS 

427 q5 PRINT na$(l+sp)^' 

428 70 IF mattpr=l THEN 

429 gw5 raattpr=0:spin=0:p$='"" 

430 xL PRINT'"Ihr Shogun ist mattlll^ 

431 CU PRINT"(Er würde beim nächsten Zug" 

432 JO PRINT"geschlagen werden.)" 

433 QG PRINT"Sie haben leider verloren." 

434 bK3 ELSE 

435 0s5 PRINT "Sie haben nur noch zwei" 

436 2C PRINT"Steine und somit verloren!" 

437 11 PRINT"Oben Sie noch ein wenig!" 

438 0t3 END IF 

439 qT WINDOW OUTPUT 5-sp:CLS 

440 BT PRINT na$(2-sp)"," 

441 rP PRINT"Sie haben gewonnen!" 

442 ni PRINT"Herzlichen Glückwunsch!!!" 

443 ky WINDOW OUTPUT 3 

444 wD PRINT"Noch ein Spiel (J/N)?":i$="":p$="" 

445 3n WHILE i$<> "j " AND i$<> "n" 

446 YE5 i$=INKEY$ 

447 eS3 WEND 

448 ME IF i$="j" THEN ns=l:GOTO NeuesSpiel, 

449 Js IF i$="n" THEN SCREEN CLOSE 2: END 

450 SCO DatenO: 

451 293 DATA 4,1,4,1,2,3,2,3 

452 18 DATA 3,2,3,2,1,4,1,4 

453 4V DATA 2,3,2,3,4,1,4,1 

454 3U DATA 1,4,1,4,3,2,3,2 

455 RaO Daten90: 

456 3K3 DATA 3,4,3,4,1,2,1,2 

457 AR DATA 2,1,2,1,4,3,4,3 

458 9Q DATA 1,2,1,2,3,4,3,4 

459 8P DATA 4,3,4,3,2,1,2,1 

460 2a0 SUB Anleitung STATIC 

461 ML4 FOR x=l TO 0 STEP -.01 


462 P16 PALETTE 0,x,x,x:PALETTE l,x,x,x:PALETTE 2,x,x,x 

463 Ot4 NEXT x 

464 QS CLS:COLOR 2,0 

465 iQ PRINT TAB(33) "SPIELANLEITUNG".‘PRINT 

466 Mg PRINT"Shogun ist ein Brettspiel, das zu zweit gespielt 

wird." 

467 tW PRINT 

468 i7 PRINT"Jeder Spieler hat acht Steine, von denen der jewe 

ils gelb markierte der SHOGUN" 

469 fR PRINT"(mit dem König im Schach vergleichbar) ist." 

470 bi PRINT"Die Zahlen auf den Steinen geben an, wieviele Fel 

der die Steine ziehen dürfen." 

471 Büi PRINT"Wenn ein Stein gesetzt wurde, ändert sich dessen 

Zahl nach einem bestimmten" 

472 Hy PRINT"System, das hier aber nicht näher erläutert wird, 

da das Spiel sonst an Reiz" 

473 q7 PRINT"verlieren würde. Auf dem Shogun können die Zahle 

n 1 oder 2, auf den anderen" 

474 3L PRINT"Steinen die Zahlen 1 bis 4 erscheinen." 

475 Ft PRINT"Die Spieler ziehen abwechselnd, Spieler 1 (rot) 

beginnt. Ein Zug kann nicht" 

476 IZ PRINT"verweigert werden." 

477 9v PRINT"Der Spieler klickt den Stein, den er ziehen möcht 

e, mit der linken Maustaste" 

478 Eo PRINT"an, bewegt den Mauspfeil dann auf das Feld, auf d 

as der Stein gesetzt werden" 

479 ml PRINT"soll und drückt erneut die linke Maustaste." 

480 tT PRINT"Hat ein Spieler eine Figur angeklickt, die er doc 

h nicht setzen möchte, kann" 

481 rf PRINT"er sie durch nochmaliges Anklicken wieder loslas 

sen. Ein bereits vollständig" 

482 oO PRINT"ausgeführter Zug kann Jedoch nicht zurückgenommen 

werden!" 

483 y8 PRINT:PRINT 

484 Ze PRINT TAB(33)"Weiter mit W" 

485 Eq FOR x=0 TO 1 STEP .01 

486 VK6 PALETTE 0,x,x,x:PALETTE l,x,x,x 

487 mH4 NEXT x 

488 U WHILE INKEY$<> "w" 

489 K8 WEND 

490 po FOR x=l TO 0 STEP -.01 

491 aP6 PALETTE 0,x,x,x:PALETTE l,x,x,x 

492 rM4 NEXT x 

493 sl CLS:PRINT:PRINT 

494 EW PRINT"Die Steine dürfen nur waagerecht und senkrecht, n 

icht diagonal gezogen werden." 

495 ib PRINT"Es dürfen weder gegnerische noch eigene Steine üb 

ersprungen werden. Ein Stein" 

496 vl PRINT"darf in einem Zug höchstens einmal seine Richtung 

um 90 ändern!" 

497 nC PRINT"Gegnerische Steine dürfen geschlagen werden." 

498 cz PRINT"Der Shogun darf nicht auf ein vom Gegner bedrohte 

s Feld gesetzt werden.Wenn der" 

499 VX PRINT"Shogun durch einen gegnerischen Stein bedroht wir 

d, muß er durch eine der fol-" 

500 9G PRINT"genden Möglichkeiten in Sicherheit gebracht wer 

den;" 

501 kR PRINT"- er wird auf ein nicht bedrohtes Feld gesetzt" 

502 OV PRINT"- er schlägt den ihn bedrohenden Stein, wenn dies 

er nicht gedeckt ist" 

503 80 PRINT"- zwischen ihn und den ihn bedrohenden Stein wird 

ein anderer Stein gesetzt" 

504 U7 PRINT 

505 uZ PRINT"Verloren hat," 

506 J2 PRINT"- wer außer dem Shogun nur noch einen weiteren St 

ein besitzt oder" 

507 QX PRINT"- wessen Shogun so bedroht wird, daß dieser keine 

Möglichkeit mehr hat,sich von" 

508 YL PRINT" der Bedrohung zu befreien." 

509 ZC PRINT 

510 wU PRINT"Und nun viel Spaß beim Spiel!" 

511 bE PRINT 

512 16 PRINT TAB(33)"Weiter mit W" 

513 gl FOR x=0 TO 1 STEP .01 

514 xra6 PALETTE 0,x,x,x:PALETTE l,x,x,x 

515 EJ4 NEXT x 

516 Ac WHILE INKEY$<>"w" 

517 ma WEND 

518 OQO END SUB 
(C) 1987 M&T 
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Grafik — Musik — 
DFÜ 

Dieses im Rahmen der Com- 
modore Sachbuchreitie er¬ 
schienene Buch beschäftigt 
sich mit der Programmierung 
von Grafik, Musik und DFÜ auf 
dem Amiga. Vor dem Einstieg 
in diese Thematik erfährt der 
Leser etwas über die Ge¬ 
schichte des Amiga sowie 
Grundlagen zu den Themen 
Grafik und Amiga-DOS. Zur 
Verständlichkeit sowohl dieser 
als auch der weiteren Ab¬ 
schnitte des Buches tragen In¬ 
formationskästen bei, in denen 
zusammengefaßt Grundwis¬ 
sen oder Anmerkungen zu ei¬ 
nem bestimmten Thema ver¬ 
mittelt werden. 

Der Autor David Myers führt 
in das gerade auf dem Amiga 
faszinierende Thema »Grafik« 
über die von der Programmier¬ 
sprache Logo bekannte »Turtle 
Grafik« ein. Auch der »Anima¬ 
tion« widmet er ein eigenes Ka¬ 
pitel. Leider bleibt D. Myers an 
der Oberfläche und geht nur 
kurz auf die Möglichkeiten ein, 
die Amiga-Basic mit seinen 
»Object«-Befehlen bietet. 

Der zweite Schwerpunkt des 
Buches liegt bei der »Musik«. 
Unter der Überschrift »Sound« 
erlangt der Leser einiges an 
Hintergrundwissen zur Theo¬ 
rie der Tonerzeugung auf Com¬ 
putern allgemein, und speziell 
die Codierung von Tönen im 
Amiga. Dabei werden auch Be¬ 
griffe wie »Amplitude« und 
»ADSR-Hüllkurve« erklärt. Der 
Leser erhält so einen Über¬ 
blick über die wichtigsten 
Fachbegriffe dieses Gebietes. 
Innerhalb dieses Teiles behan¬ 
delt David Myers auch das 
Thema Sprache und die Ver¬ 
wendung von Phonemen. 

Ein eigenes Kapitel bildet die 
Abhandlung über »Syntheti¬ 
sche Musik«. Hier stellt der Au¬ 
tor zum Beispiel Tonwellenfor¬ 
men vor. Nebenbei lernt der Le¬ 
ser, wie sich etwa die Titelmu¬ 


sik von »Star Wars« auf dem 
Amiga programmieren läßt. 
Wer sich also dem Thema Mu¬ 
sik auf dem Amiga widmen 
will, findet hier eine Vielzahl 
nützlicher Informationen. 

Der letzte Schwerpunkt des 
Buches befaßt sich mit der Da¬ 
tenfernübertragung (DFÜ). Ne¬ 
ben obligatorischem Grund¬ 
wissen zeigt der Autor dort, wie 
ein Terminalprogramm In Ba¬ 
sic erstellt werden kann. Er¬ 
gänzend fügt er eine Liste mit 
während der DFÜ eventuell 
auftretenden Fehlern und de¬ 
ren Behebung hinzu. Eine Be¬ 
schreibung wichtiger Mailbo¬ 
xen und Informationsdienste 
rundet das Kapitel ab. 

Wer die Programmierung 
der drei Gebiete »Grafik — Mu¬ 
sik — DFÜ« mit Amiga-Basic 
lernen will, findet In diesem 
Buch sicher geeignete Unter¬ 
stützung, zumal es zu den ein¬ 
zelnen Themen Programmbei¬ 
spiele enthält. Diese liegen 
dem Buch auf einer Diskette 
bei. (Ingolf Krüger/rs) 

Amiga Grafik — Musik — DFÜ; David Myers; 
Markt & Technik Verlag AG; 225 Seiten; ISBN 
3-89090-579-x. Preis 59 Mark 


Die fraktale Geo¬ 
metrie der Natur 


Wer kennt sie nicht, die »Ap¬ 
felmännchen«. Unter diesem 
Namen wurden die selbstähnli¬ 
chen Abbildungen (eine Unter¬ 
menge der »Fraktale«) einem 
größeren Publikum bekannt. 
Gerade auf dem Amiga existie¬ 
ren eine Vielzahl von Program¬ 
men, die diese teilweise faszi¬ 
nierenden Grafiken erzeugen. 
Entdeckt wurden Sie von Be- 
noit Mandelbrot, seines Zei¬ 
chens Professor für Mathema¬ 
tik an der Harvard Universität. 
Unter dem Titel »Die fraktale 
Geometrie der Natur« be¬ 
schreibt er die den Fraktalen 
zugrunde liegende Theorie 
und definiert eine Vielzahl von 
Begriffen. Sein Ziel ist die Ver¬ 
knüpfung natürlicher Struktu¬ 
ren mit seinem Prinzip der 
Selbstähnlichkeit. Der Hinter¬ 
grund der Fraktale ist jedoch 
(oft recht aufwendige) Mathe- 
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Dk fraktale Geometrie der Natur 



matlk. Und so behandelt die¬ 
ses Buch auch nicht die Um¬ 
setzung der verschiedenen 
Fraktale auf den Computer, 
sondern schildert deren ma¬ 
thematischen Hintergrund. Es 
enthält eine Vielzahl von Abbil¬ 
dungen, die teilweise so fanta¬ 
stisch realistisch sind, daß sie 
dem Leser eine nähere Be¬ 
schäftigung mit dem Begriff 
Fraktal nahezu aufzwingen. 
Die Übersetzung aus dem 
Englischen ist gut und flüssig 
zu lesen. Nach einer kurzen 
Einleitung und der Vorstellung 
erster Fraktale und deren Pro¬ 
blemstellungen führt Benoit. B. 
Mandelbrot den Leser zu The¬ 
men wie »Galaxien und Wir¬ 
bel«, »skaleninvariante Frakta¬ 
le« und »nichtskaleninvariante 
Fraktale«. Ausführliche Quel¬ 
len-, Literatur- und Stichwort¬ 
verzeichnisse runden das um¬ 
fangreiche Werk ab. 

Dieses Buch ist nicht dazu 
geeignet, auf die schnelle den 
Schlüssel zur Umsetzung von 
Apfelmännchen und anderen 
fraktalen Strukturen auf den 
heimischen Computer zu lie¬ 
fern. Wer sich jedoch mit dem 
nötigen mathematischen 
Grundwissen und (wissen¬ 
schaftlichem) Interesse an das 
Buch heranwagt, wird schon 
wegen der zahlreichen Abbil¬ 
dungen und der vielfältigen Er¬ 
scheinungsformen der Frakta¬ 
le das Buch schätzen. 

(Ingolf Krüger/rs) 

Die fraktale Geometrie der Natur; Benoit B. 
Mandelbrot; Birkhäuser Verlag; 491 Seiten; 
ISBN 3-7643-1771-X; Preis 118 Mark 

Das gtx)ße 
Amiga-Public 
Domain-Buch 

Dieses Buch ist allen Amlga- 
Benutzern gewidmet, die sich 
näher mit dem breiten Spek¬ 
trum der Public Domain-Pro¬ 
gramme beschäftigen möch¬ 
ten. Es gibt Hilfestellung bei 
vielen Fragen, die zu diesem 
Thema auftreten. 

In ersten Teil des Buchs wird 
durch eine Begriffserläuterung 
erklärt, was es mit den Be¬ 
zeichnungen »Public Domain« 
und »Shareware« auf sich hat 
und welche Regeln beim Um¬ 
gang mit Public Domain- 
Disketten zu beachten sind. 
Des weiteren folgt eine kurze 
Unterweisung im Umgang mit 
dem Amiga. Es werden aber 
nur die nötigsten Handgriffe 
beschrieben. 

Der zweite Teil, der mit etwa 
200 Seiten am umfangreich¬ 
sten ausgefallen ist, enthält 
sehr ausführliche deutsche 



Beschreibungen, Anleitungen 
und Quellenangaben zu 43 
PD-Programmen. Dabei glie¬ 
dert sich jede Programmbe¬ 
sprechung In die Erklärung 
des Programmaufrufs, den 
Zweck der jeweiligen Routine, 
die Herkunftsbestimmung und 
die eigentliche Bedienung des 
Programms. Dabei ist die Er¬ 
klärung sehr ausführlich ge¬ 
worden. Einige Programme 
wie beispielsweise das Rollen¬ 
spiel »Hack« oder das DFÜ- 
Programm »Kermit« werden 
auf jeweils über zehn Buchsel¬ 
ten beschrieben. Der in Eng¬ 
lisch nicht so bewanderte An¬ 
wender erhält somit die Chan¬ 
ce, komplexere PD-Program- 
me besser auszunutzen, da 
ihm genauere Informationen 
zum jeweiligen Programm offe¬ 
riert werden. 

In dritten Teil des ersten Ban¬ 
des, der mit »Listen« umschrie¬ 
ben ist, findet der Käufer ein In¬ 
haltsverzeichnis von drei PD- 
Serlen: Fish 1 bis 127, Panora¬ 
ma 1 bis 17b und FAUG 1 bis 
39. Das Verzeichnis, in dem zu 
jedem Programm ein Kurzkom¬ 
mentar enthalten ist, findet 
sich in dreifacher Ausführung: 
einmal Ist es nach Themen sor¬ 
tiert, ein anderes Mal alphabe¬ 
tisch geordnet und in der drit¬ 
ten Ausführung nach Disket¬ 
tenseriengegliedert. Damit fin¬ 
det jeder Leser schnell das 
Programm und die Disketten¬ 
nummer der für ihn interessan¬ 
ten Routine. 

Weitere Bücher dieser Serie 
sind bereits in Arbeit, so daß 
sich jeder Interessent eine 
sehr sinnvolle und hilfreiche 
Bibliothek in sein Regal stellen 
kann. Der zweite Band ist seit 
Herbst 1988 auf dem deut¬ 
schen Markt, eine Bespre¬ 
chung folgt. 

(Jens Krumbeck/rs) 

Das große Amiga Public Domain Buch — Band 
1, Stefan Ram/Jens A. Hertwig, technieSup- 
port-Värlag. 350 Seiten. ISBN 3-926847-01-8. 
Preis 49 Mark 
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Dücher 


Amiga 3D-Grafik 
und Animation 

Um anspruchsvolle 3D-Gra- 
fiken zu erstellen, ist sowohl 
mathematisches Grundwissen 
als auch eine Kenntnis der 
Grundlagen zur Erzeugung 
von Grafiken mit dem Compu¬ 
ter notwendig. Beides vermit¬ 
telt auf anschauliche Weise 
das Buch »Amiga 3D-Grafik 
und Animation« von Axel Plen- 
ge. Nach einer kurzen Einfüh¬ 
rung stellt der Autor bereits die 
wichtigsten Grundlagen zum 
Aufbau einer Farbgrafik auf 
dem Amiga vor, ohne sich je¬ 
doch in technischen Fachwör¬ 
tern und ausschweifenden 
Schilderungen zu ergehen. Im 
dritten Kapitel werden sodann 
die Grundlagen für die zweidi¬ 
mensionale Grafik gelegt. In 
diesem Kapitel geht der Autor 
auch in puncto Mathematik »in 
medias res«. Doch alle mathe¬ 
matischen Grundlagen wer¬ 
den auf eine sehr anschauli¬ 
che und dadurch verständliche 
Weise dargebracht. Im An¬ 
hang findet sich zusätzlich ein 
Abschnitt, der die für die Com¬ 
putergrafik wichtige Mathema¬ 
tik (Winkelfunktionen wie Si¬ 
nus, Cosinus und Matrizen¬ 
rechnung) wiederholt. Selbst 
Mathematikmuffel werden 
kaum mit Verständnisproble¬ 
men zu kämpfen haben. 

Neben dem mathemati¬ 
schen Grundwissen erfährt 
der Leser bereits In Kapitel 3 
von Themen wie Vergröße- 
rungA/erkleinerung, Spiege¬ 
lung, Drehung, Translation und 
Clipping von grafischen Dar¬ 
stellungen. Kapitel 4 bringt 
dann den Einstieg in die dreidi¬ 
mensionale Bildschirmgrafik. 
Der Autor leitet nach einem 
Ausflug in die »Welt« der Koor¬ 
dinatensysteme und mathe¬ 
matischen Grundlagen von 
Transformationen zweidimen¬ 
sionaler Grafik (Spiegelung, 
Drehung...) über auf den drei¬ 
dimensionalen Raum. 



Kapitel 5 widmet sich dem 
Problem der verdeckten Linien 
und Flächen. Daran schließt 
sich ein Kapitel an, das voll¬ 
ständig dem Thema Ray-Trac- 
ing gewidmet ist. Den Ab¬ 
schluß bildet die Behandlung 
von Rotationskörpern. Das 
durchweg gelungene Werk 
wird durch den bereits erwähn¬ 
ten Anhang, der auch eine 
Schilderung der verwendeten 
Library-Routinen enthält, zahl¬ 
reiche Literaturhinweise und 
ein ausführliches Stichwort¬ 
verzeichnis abgerundet. 

(Ingolf Krüger/rs) 

Amiga 3D-Grafik und Animation; Axel Plenge; 
Markt & Technik Verlag AG; 376 Seiten; ISBN 
3-89090-526-9; Preis 69 Mark 

Computer — die 
leisen Eroberer 

Markt&Technik 


Klaus Kupfemagel 


Computer- 
die leisen Eroberer 

/ 



Wie sie funktionieren, 

wo ihre Grenzen liegen. 


Ob im Büro oder Zuhause — 
der Computer hat unwiderruf¬ 
lich seinen Platz in unserer Ge¬ 
sellschaft eingenommen. 
Doch Angst und Mißtrauen be¬ 
gleiten den lautlosen Einzug In 
unser Leben. 

Klaus Kupfernagel will dem 
mit seinem Buch entgegenwir¬ 
ken. »Der Computer«, schreibt 
er, »wird unsere Gesellschaft 
verändern, aber das Wissen 
dieser Gesellschaft über die 
Computer ist gering.« Kupfer¬ 
nagel erläutert gezielt Funk¬ 
tion, Möglichkeiten, Auswir¬ 
kungen und Grenzen des 
Schreckgespenstes »Denkma¬ 
schine«. Er vermittelt somit das 
nötige Wissen für die erfolgrei¬ 
che Auseinandersetzung mit 
den Konsequenzen und Ge¬ 
fahren der Computer. 

Das Buch ist durchaus kein 
Lehrbuch. Allein die lockere, 
witzig-spritzige Art und Welse, 
in der das Buch geschrieben 
ist, macht es lesenswert. Viele 
anschauliche Beispiele brin¬ 
gen auch Einstelgern die Bits 
und Bytes, RAMs und ROMs, 


Floppys, Zentraleinheiten und 
andere Feinheiten nahe. 

(Jan-Dirk Mittmann/rs) 

Computer—die leisen Eroberer, Klaus Kupfer¬ 
nagel, Markt & Technik Verlag. 270 Seiten, 
ISBN 3-89090-179-4. 14,80 Mark 

Grafik 

auf dem Amiga 

»Grafik auf dem Amiga« ist in 
fünf Telle gegliedert, die unab¬ 
hängig voneinander gelesen 
werden können. Der Einstelger 
kann sich zunächst den Grund¬ 
lagen der Grafik zuwenden. Er 
erfährt hier etwas über grund¬ 
sätzliche Techniken der Bilder¬ 
zeugung auf einem Monitor/ 
Fernseher und gelangt unver¬ 
sehens in die mathema¬ 
tisch/geometrische Ableitung 
von Algorithmen zur Erzeu¬ 
gung von Linien, Kreisen und 
dreidimensionalen Objekten. 

Die Hardwarespezialisten 
finden im folgenden Kapitel ei¬ 
ne Beschreibung der Amiga- 
Hardware. 

Der dritte Teil beschäftigt 
sich mit den Möglichkeiten des 
Amiga-Basic, die Grafikhard¬ 
ware zu beeinflussen. Da 
Grundkenntnisse der Pro¬ 
grammiersprache vorausge¬ 
setzt werden, hält sich der Au¬ 
tor auch nicht lange mit den 
grundsätzlichen Techniken 
auf, sondern gelangt recht 
schnell in das interessante Ge¬ 
biet der Computeranimation, 
welches dann um so ausführli¬ 
cher behandelt wird. 

Ein weiterer Teil führt in die 
grundsätzliche Arbeitsweise 
und Struktur des Betriebssy¬ 
stems beziehungsweise der 
von der Grafikdarstellung be¬ 
troffenen Systembibliotheken 
ein. Wer mehr über die Funk¬ 
tionsweise der Amiga-Grafik 
wissen möchte, kommt um die¬ 
ses Buch nicht herum. 

(Joschy Pollerer/rs) 


Grafik auf dem Amiga, Manfred Kohlen, Verlag 
Markt & Technik AG, 340 Selten, ISBN 
3-89090-236-7, Preis: 49 Mark 




Supergrafik 

Unbestritten lassen sich mit 
dem Amiga fantastische Grafi¬ 
ken auf den Bildschirm zau¬ 
bern. Wer solche Kunstwerke 
allerdings selbst programmie¬ 
ren möchte, der benötigt fun¬ 
dierte Kenntnisse über die Sy¬ 
stemgrafikroutinen des Amiga. 
Dieses Wissen vermittelt das 
vorliegende Buch. 

Je nach Vorkenntnissen bie¬ 
tet die Aufteilung des Werkes 
jeweils drei Einstiegspunkte 
für Anfägner, Fortgeschrittene 
und angehende Profis. Im er¬ 
sten Teil wird der Anfänger mit 
den elementaren Grafikbefeh¬ 
len des Amiga-Basic bekannt 
gemacht. Er lernt, wie sich 
Grafiken mit den Mitteln, die 
Basic zur Verfügung stellt, ef¬ 
fektiverstellen lassen. Im zwei¬ 
ten Teil wird dem fortgeschritte¬ 
nen Basic-Programmierer ge¬ 
zeigt, wie er die Grafikroutinen 
des Betriebssystems in Basic- 
Programmen nutzen kann. Mit 
deren Hilfe ist es dann mög¬ 
lich, von Basic aus den 64farbi- 
gen Halfbrite- und den 4096- 
farbigen H.A.M.-Modus einzu¬ 
schalten, den Coprozessor 
Copperzu programmieren und 
Grafik auf dem Drucker Im 
Multitasking-Betrieb auszuge¬ 
ben. Der dritte Teil wendet sich 
an die C-Programmierer und 
zeigt, wie man Screens und 
Fenster in C erstellt, wie Spri¬ 
tes, BOBs und VSprites pro¬ 
grammiert und dann mit Hilfe 
des vollautomatischen Anima¬ 
tionssystems des Amiga in Be¬ 
wegung versetzt werden. 

»Supergrafik« enthält alle 
wichtigen Informationen, die 
ein Programmierer benötigt, 
wenn er In die Welt der Amiga- 
Grafik einsteigen will. Es kann 
deshalb jedem, der sich für die 
Grafikprogrammierung mit 
dem Amiga interessiert, emp¬ 
fohlen werden. 

(Christian Schneider/rs) 

Supergrafik, Weltner/Trapp/Jennrich, Data 
Becker, 690 Seiten, ISBN 3-89011-254-4, Preis: 
59 Mark 
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Fortsetzung von Seite 8 

Sprite-Editor 


Das Programm erkennt, ob 
es sich um ein »AOE«-Objekt 
(Amiga-Object-Editor-Objekt), 
oder um einen DPaint-Brush 
handelt. DPaint-Brushes müs¬ 
sen in der Größe von 32 x 32 
Punkten mit 16 Farben vorlie¬ 
gen. Wollen Sie selbsterstellte 
Sprites auf Diskette ablegen, 
so wählen Sie »SPEICHERN«. 
Hier sind die Nummern des er¬ 
sten und des letzten zu spei¬ 
chernden Objekts angegeben. 
Es können also beliebig viele 
aufeinanderfolgende Sprites 
in einem File gespeichert wer¬ 
den. Wollen Sie nur ein Sprite 
speichern, geben Sie einfach 
zwei gleiche Werte an. Nach 
Eingabe des Dateinamens 
werden die Objekte im »AOE«- 
Format gespeichert. Den Auf¬ 
bau eines »AEO«-Files sehen 
Sie in Tabelle 1. 

Zahlreiche Icons 
erleichtern 
die Arbeit 

Icon 2 (CLR): Wenn Sie dieses 
Icon anwählen, wird das ak¬ 
tuelle Sprite gelöscht. 

Icon 3 (zwei waagerechte 
Pfeile): Horizontales Spiegeln 
des aktuellen Sprites. 


Icon 4 (zwei senkrechte Pfei¬ 
le): Vertikales Spiegeln des ak¬ 
tuellen Sprites. 

Icon 5 (geknickter Pfeil): Dre¬ 
hen des aktuellen Sprites um 
90 Grad. 

Icon 6 (zwei sich überlappen¬ 
de Quadrate): Kopieren von 
Sprites. Neben der Quell- und 
Zielnummer des Objekts kann 
beim Kopieren von mehreren 
aufeinanderfolgenden Sprites 
auch die gewünschte Anzahl 
eingegeben werden. 

Kopieren und 
Animieren von 
Sprites 

Icon 7 (»i«): Info zum Pro¬ 
gramm. 

Icon 8 (Bildprojektor-Sym- 
bol): Animation von mehreren 
Sprites. Geben Sie die Num¬ 
mern des ersten und letzten 
Sprites der Animationsfolge 
ein und klicken Sie »FERTIG« 
an. Daraufhin beginnt die Ani¬ 
mation, deren Geschwindig¬ 
keit mit der Maus verändert 
werden kann. Die Zahl zwi¬ 
schen den Pfeilen gibt die Ge¬ 
schwindigkeit in Vso-Sekunden 
an. 


Haben Sie Ihre Arbeit been¬ 
det und wollen den Editor ver¬ 
lassen, bewegen Sie die Maus 
in die rechte obere Bildschirm¬ 
ecke und drücken den rechten 
Mausknopf. 

Nun steht dem munteren Er¬ 
stellen von Sprites und Anima¬ 


tionssequenzen nichts mehr 
im Wege. Grenzen setzt nur die 
eigene Kreativität — und von 
der besitzen Amiga-Besitzer ja 
eine ganze Menge. 


(Michael Bertsch/C. 
Ewald/M. Jobst/rs) 


So geben Sie das Listing ein 


Der Objekt-Editor ist in Maschinensprache (Assembler) geschrieben. 
Um jedem Amiga-Besitzer die Eingabe des Listings zu ermöglichen, 
haben wir das Programm für Sie umgewandelt. Die abgedruckte Ver¬ 
sion ist mit Amiga-Basic einzugeben. Diesen Interpreter finden Sie auf 
der Extras-Diskette, die bei der Auslieferung jedem Amiga beillegt. 
Das Programm erzeugt beim Start das lauffähige Programm mit Na¬ 
men »AOE_V1.2« auf der eingelegten Diskette. Bitte geben Sie das 
Programm unbedingt mit Checkie 42 (Seite 159) ein. Die Hinweise 
zum Checksummer sollten Sie unbedingt beachten._ 



Programmname: 

AOE_Gen 

Computer: 

Amiga 500,1000,2000 mit Kickstart 1.2 

Sprache: 

Amiga-Basic 1.2 



1 tio 

REM Generiert Programm A0E_V1.2 

2 ag 

CLS 

3 gO 

OPEN 'A0E_V1.2'' FOR OUTPUT AS 1 

4 BS 

READ anz 

5 oa 

FOR i=l TO anz 

6 3nl 

READ h$ 

7 yB2 

wert1=ASC(LEFT$(h$,1)) 

8 FD 

IF wertl>64 THEN wertl=wertl-55 ELSE wertl=wertl-48 

9 FI 

wertl=wertl*l6 

10 7c 

wert2=ASC(RIGHT$(h$,1)) 

11 ad 

IF wert2>64 THEN wert2=wert2-55 ELSE wert2=wert2-48 

12 Pi 

wert=wertl+wert2 

13 90 

PRINT #l,CHR$(wert); 


14 

JOO 

NEXT 


15 

3n 

CLOSE 

: 1 

16 

Ov 

END 


17 

R4 

DATA 

19072 

18 

ie 

DATA 

00,00,03,F3,00,00,00,00,00,00 

19 

aj 

DATA 

00,02,00,00,00,00,00,00,00,01 

20 

UF 

DATA 

00,00,0F,1A,00,00,01,00,00,00 

21 

gb 

DATA 

03,E9,00,00,0F,1A,4E,F9,00,00 

22 

72 

DATA 

2B,94,20,78,00,04,43,F9,00,00 

23 

ut 

DATA 

3B,30,42,80,4E,AE,FD,D8,23,C0 

24 

Sy 

DATA 

00,00,3A,3E,43,F9,00,00,38,41 

25 

az 

DATA 

42,80,4E,AE,FD,08,23,00,00,00 

26 

6d 

DATA 

3A,42,43,F9,00,00,3B,40,42,80 

27 

6p 

DATA 

4E,AE,FD,D8,23,C0,00,00,3A,46 

28 

N4 

DATA 

4E,75,20,78,00,04,22,79,00,00 

29 

D7 

DATA 

3A,3E,4E,AE,FE,62,22,79,00,00 

30 

Tc 

DATA 

3A,42,4E,AE,FE,62,22,79,00,00 

31 

bf 

DATA 

3A,46,4E,AE,FE,62,4E,75,2C,79 

32 

KH 

DATA 

00,00,3A,46,4E,AE,FF,B2,41,F9 

33 

gd 

DATA 

00,00,2D,46,4E,AE,FF,3A,23,C0 

34 

9F 

DATA 

00,00,20,84,23,00,00,00,2D,B4 

35 

zt 

DATA 

23,C0,00,00,2D,E4,4l,F9,00,00 

36 

PL 

DATA 

2D,66,4E,AE,FF,34,23,C0,00,00 

37 

fb 

DATA 

3A,52,20,40,4E,AE,FE,D4,23,C0 

38 

cK 

DATA 

00,00,3A,62,20,79,00,00,3A,52 

39 

W3 

DATA 

23,E8,00,32,00,00,3A,66,23,E8 

40 

BS 

DATA 

00,32,00,00,3A,6E,20,68,00,32 

41 

ge 

DATA 

23,E8,00,04,00,00,3A,5A,2C,79 

42 

4I 

DATA 

00,00,3A,3E,20,79,00,00,3A,62 

43 

vl 

DATA 

43,F9,00,00,32,6E,30,3C,00,20 

44 

2u 

DATA 

4E,AE,FF,40,2C,79,00,00,3A,46 

45 

oE 

DATA 

4E,AE,FE,80,4E,75,20,79,00,00 

46 

kU 

DATA 

3A,46,20,79,00,00,3A,52,4E,AE 

47 

QU 

DATA 

FF,B8,20,79,00,00,2D,84,4E,AE 

48 

63 

DATA 

FF,BE,4E,AE,FF,2E,4E,75,2C,78 

49 

2p 

DATA 

00,04,93,C9,4E,AE,FE,DA,28,40 


50 yZ DATA 4A,AC,00,AC,66,00,00,18,4l,EC 

51 pR DATA 00,5C,4E,AE,FE,80,4l,EC,00,5C 

52 hO DATA 4E,AE,FE,8C,23,CO,00,00,3A,82 

53 aC DATA 4E,75,4A,B9,00,00,3A,82,67,00 

54 Al DATA 00,0C,22,79,00,00,3A,82,4E,AE 

55 HD DATA FE,86,42,80,4E,75,20,79,00,00 

56 bd DATA 3A,3E,43,F9,00,00,3A,98,4E,AE 

57 71 DATA FF,3A,23,FC,00,00,38,08,00,00 

58 CI DATA 3A,9C,22,79,00,00,3A,66,30,3C 

59 fz DATA 00,10,4E,AE,FE,AA,22,79,00,00 

60 8j DATA 3A,66,42,80,42,81, 34 , 3 c,00,EO 

61 WD DATA 36 ,30,00,E0,4E,AE,FE,CE,22,79 

62 Dd DATA 00,00,3A,66,30,3C,00,02,4E,AE 

63 UQ DATA FE,AA,22,79,00,00,3A,66,42,80 

64 RH DATA 4E,AE,FE,A4,22,79,00,00,3A,66 

65 JK DATA 10,3C,00,00,4E,AE,FE,9E,42,86 

66 Hl DATA 22,79,00,00,3A,66,33,46,00,24 

67 nV DATA 33,70,00,00,00,26,30,06,32,30 

68 xL DATA 00,E0,4E,AE,FF,0A,22,79,00,00 

69 DZ DATA 3A,66,33,70,00,00,00,24,33,46 

70 HO DATA 00,26,30,30,00,EO,32,06,4E,AE 

71 AZ DATA FF,0A,DC,7C,00,07,BC,7C,00,E7 

72 9q DATA 66,02,22,79,00,00,3A,66,30,3C 

73 CF DATA 00,04,4E,AE,FE,AA,22,79,00,00 

74 lU DATA 3A,66,33,70,00,70,00,24,33,70 

75 KO DATA 00,01,00,26,30,30,00,70,32,30 

76 85 DATA 00,DF,4E,AE,FF,0A,22,79,00,00 

77 dO DATA 3A,66,33,70,00,01,00,24,33,70 

78 tV DATA 00,70,00,26,30,30,00,DF,32,30 

79 OA DATA 00,70,4E,AE,FF,0A,22,79,00,00 

80 BR DATA 3A,66,30,3C,00,01,4E,AE,FE,AA 

81 08 DATA 22,79,00,00,3A,66,30,3C,00,E1 

82 El DATA 42,81,34,3C,01,3F,36,3C,00,FF 

83 UT DATA 4E,AE,FE,CE,22,79,00,00,3A,66 

84 8H DATA 30,30,00,00,32,30,00,El,34,30 

85 dl DATA 00,E1,36,3C,00,FF,4E,AE,FE,CE 

86 oc DATA 22,79,00,00,3A,66,30,30,00,02 

87 EH DATA 4E,AE,FE,AA,22,79,00,00,3A,66 


88 3i data 30,30,00,01,4E,AE,FE,A4,30,3C 

89 nL DATA 00,02,38,3C,00,FF,3A,3C,00,07 

90 Hl DATA 3C,3C,01,20,3E,3C,00,28,4E,B9 

91 VC DATA 00,00,04,88,30,30,00,04,38,30 

92 QS DATA 00,FE,3A,3C,00,06,3C,3C,01,21 

93 R5 DATA 3E,3C,00,29,4E,B9,00,00,04,88 

94 qd DATA 22,79,00,00,3A,66,30,30,00,10 

95 MP DATA 4E,AE,FE,AA,22,79,00,00,3A,66 

96 pl DATA 30,30,01,00,32,30,00,08,34,30 

97 v5 DATA 01,1F,36,3C,00,27,4E,AE,FE,CE 

98 fw DATA 4B,F9,00,00, 32 ,AE,30,30,00,10 

99 tP DATA 30,06,22,79,00,00,3A,66,4E,AE 

100 jx DATA FE,AA,30,1D,32,1D,34,1D,36,1D 

101 Xn DATA 22,79,00,00,3A,66,4E,AE,FE,CE 

102 II DATA DC,7C,00,01,BC,7C,00,20,66,D8 

103 kE DATA 30 ,30,00,02,38,30,00,0F,3A,30 

104 lU DATA 00,E7,30,30,00,1B,3E,30,00,F9 

105 4E data 4E,89,00,00,04,88, 30 , 30 ,00,04 

106 Zk DATA 38,30,00,OE,3A,30,00,E6,30,30 

107 01 DATA 00,10,3E,30,00,FA,4E,B9,00,00 

108 Uh DATA 04,88,20,79,00,00,3A,46,20,79 

109 WR DATA 00,00,3A,66,43,F9,00,00,34,36 

110 mH DATA 30,30,01,09,32,30,00,50,4E,AE 

111 Tf DATA FF,8E,43,F9,00,00,34,FE,20,79 

112 D2 DATA 00,00,3A,66,30,30,01,00,32,30 

113 Ue DATA 00,66,4E,AE,FF,8E,43,F9,00,00 

114 an DATA 35,9E,20,79,00,00,3A,66,30,30 

115 fH DATA 00,F8,32,30,00,BC,4E,AE,FF,8E 

116 NL DATA 43,F9,00,00,35,06,20,79,00,00 

117 pZ DATA 3A,66,30,30,00,FB,32,30,00,E2 

118 Di DATA 4E,AE,FF,8E,4B,F9,00,00,3B,5F 

119 Rn DATA 3A,30,00,0A,30,30,00,E8,3E,30 

120 QW DATA 00,B4,4E,B9,00,00,04,18,4B,F9 

121 Ts DATA 00,00,38,74,3A,30, 00 , 03 , 30,30 

122 EI DATA 01,03,3E,30,00,02,4E,B9,00,00 

123 Eh DATA 04,18,4B,F9,00,00,3B,69,3A,30 

124 yj DATA 00,05,30,30,00,FB,3E,30,00,DE 

125 21 DATA 4E,B9,00,00,04,18,4E,B9,00,00 


126 
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294 4p DATA 00,00,04,18,4B,F9,00,00,3B,7C 

295 u2 DATA 3A,3C,00,09,3C,3C,00,4C,3E,3C 

296 qi DATA 00,6D,4E,B9,00,00,04,18,4B,F9 

297 Is DATA 00,00,3C,13,3A,3C,00,07,3C,3C 

298 61 DATA 00,54,3E,3C,00,7F,4E,B9,00,00 

299 9D DATA 04,18,30,30,00,02,38,30,00,46 

300 10 DATA 3A,30,00,50,30,30,00,9A,3E,30 

301 E8 DATA 00,60,4E,B9,00,00,04,88,30,30 

302 rs DATA 00,02,38,30,00,46,3A,30,00,62 

303 jO DATA 30,30,00,9A,3E,30,00,72,4E,B9 

304 oT DATA 00,00,04,88,30,30,00,02,38,30 

305 nw DATA 00,46,3A,30,00,74,30,30,00,9A 

306 IT DATA 3E,30,00,84,4E,B9,00,00,04,88 

307 It DATA 08,39,00,06,00,BF,E0,01,67,F6 

308 kr DATA 08,39,00,06,00,BF,EO,01,66,F6 

309 rg DATA 22,79,00,00,3A,56,3A,29,00,OE 

310 fs DATA 30,29,00,00,BA,70,00,46,65,00 

311 CX DATA 00,1E,BC,70,00,50,65,00,00,16 

312 Vw DATA BA,70,00,9A,62,00,00,OE,BO,70 

313 DO DATA 00,60,62,00,00,06,60,00,00,52 

314 zd DATA BA,70,00,46,65,00,00,1E,BC,70 

315 Jr DATA 00,62,65,00,00,16,BA,70,00,9A 

316 lY DATA 62,00,00,OE,BC,70,00,72,62,00 

317 cq DATA 00,06,60,00,04,F4,BA,70,00,46 

318 gJ DATA 65,9A,BC,70,00,74,65,94,BA,70 

319 g3 DATA 00,9A,62,8E,BC,70,00,84,62,88 

320 eY DATA 20,79,00,00,3A,46,20,79,00,00 

321 It DATA 3A,56,4E,AE,FF,B8,60,00,FB,70 

322 ga DATA 20,79,00,00,3A,46,20,79,00,00 

323 EZ DATA 3A,56,4E,AE,FF,B8,20,79,00,00 

324 04 DATA 3A,62,30,30,00,1F,32,30,00,0D 

325 Fm DATA 34,01,36,01,20,79,00,00,3A,3E 

326 Rr DATA 4E,AE,FE,E0,20,79,00,00,3A,62 

327 14 DATA 30,30,00,1E,32,30,00,03,34,01 

328 MR DATA 36,01,4E,AE,FE,E0,2C,79,00,00 

329 18 DATA 3A,46,23,FC,00,00,2D,F6,00,00 

330 xo DATA 2D,A8,41,F9,00,00,2D,96,4E,AE 

331 qW DATA FF,34,23,00,00,00,3A,56,20,40 

332 xf DATA 23,E8,00,32,00,00,3A,6A,23,E8 

333 6F data 00,32,00,00,3A,6E,22,68,00,32 

334 er DATA 30,30,00,01,20,79,00,00,3A,3E 

335 TL DATA 4E,AE,FE,AA,22,79,00,00,3A,6A 

336 T8 DATA 30,30,00,01,4E,AE,FE,A4,22,79 

337 6A DATA 00,00,3A,6A,30,30,00,00,32,30 

338 Jd DATA 00,00,34,30,00,DF,36,30,00,54 

339 Vf DATA 4E,AE,FE,CE,22,79,00,00,3A,6A 

340 kh DATA 30,30,00,00,32,30,00,55,34,30 

341 ra5 DATA 00,5D,36,30,00,6l,4E,AE,FE,CE 

342 uO DATA 22,79,00,00,3A,6A,30,30,00,81 

343 au DATA 32,30,00,55,34,30,00,DF,36,30 

344 IS DATA 00,61,4E,AE,FE,CE,22,79,00,00 

345 w4 DATA 3A,6A,30,30,00,00,32,30,00,61 

346 cD DATA 34,30,00,DF,36,30,00,72,4E,AE 

347 NW DATA FE,CE,22,79,00,00,3A,6A,30,30 

348 cT DATA 00,00,32,30,00,73,34,30,00,24 

349 WT DATA 36,30,00,7F,4E,AE,FE,CE,22,79 

350 hB DATA 00,00,3A,6A,30,30,00,B8,32,3C 

351 xW DATA 00,73,34,30,00,DF,36,30,00,7F 

352 iS DATA 4E,AE,FE,CE,22,79,00,00,3A,6A 

353 9P DATA 30,30,00,00,32,30,00,7F,34,30 

354 rq DATA 00,DF,36,30,00,DF,4E,AE,FE,CE 

355 vC DATA 4B,F9,00,00,3B,85,3A,30,00,11 

356 jp DATA 30,30,00,27,3E,30,00,4F,4E,B9 

357 Ak DATA 00,00,04,18,4B,F9,00,00,3B,96 

358 3x DATA 3A,30,00,09,30,30,00,27,3E,30 

359 ff DATA 00,6B,4E,B9,00,00,04,18,4B,F9 

360 lu DATA 00,00,3B,9F,3A,30,00,06,30,30 

361 YB DATA 00,58,3E,3C,00,91,4E,B9,00,00 

362 47 DATA 04,18,30,30,00,02,38,30,00,54 

363 uY DATA 3A,30,00,87,3C,30,00,8C,3E,30 

364 Gf DATA 00,96,4E,B9,00,00,04,88,30,39 

365 39 DATA 00,00,2E,82,08,00,00,07,66,00 

366 Wv DATA 00,36,08,39,00,06,00,BF,E0,01 

367 Hh DATA 66,E8,22,79,00,00,3A,56,3A,29 

368 30 DATA 00,OE,30,29,00,00,BA,7C,00,54 

369 t2 DATA 65,D4,BO,70,00,87,65,CE,BA,7C 

370 f6 DATA 00,80,62,08,BO,70,00,96,62,02 

371 8R DATA 60,00,00,0E,30,39,00,00,2E,82 

372 gO DATA 08,00,00,07,66,F4,0C,B9,00,00 

373 JV DATA 00,00,00,00,2E,62,66,00,00,00 


126 R3 DATA 05,C2,4E,75,2C,79,00,00,3A,3E 

127 zi DATA 22,79,00,00,3A,6E,33,46,00,24 

128 ps DATA 33,47,00,26,30,30,00,01,4E,AE 

129 G3 DATA FE,9E,22,79,00,00,3A,6E,42,80 

130 8Q DATA 4E,AE,FE,AA,22,79,00,00,3A,6E 

131 mS DATA 20,4D,30,05,4E,AE,FF,C4,22,79 

132 GK DATA 00,00,3A,6E,DO,70,00,01,DE,70 

133 Db DATA 00,01,33,46,00,24,33,47,00,26 

134 b4 DATA 42,80,4E,AE,FE,9E,22,79,00,00 

135 cw DATA 3A,6E,30,3C,00,03,4E,AE,FE,AA 

136 up DATA 22,79,00,00,3A,6E,20,4D,30,05 

137 YL DATA 4E,AE,FF,C4,4E,75,2C,79,00,00 
1:38 07 DATA 3A,3E,22,79,00,00,3A,6E,4E,AE 

139 gw DATA FE,AA,22,79,00,00,3A,6E,33,44 

140 Ra DATA 00,24,33,45,00,26,30,06,32,05 

141 j8 DATA 4E,AE,FF,0A,22,79,00,00,3A,6E 

142 Qv DATA 30,06,32,07,4E,AE,FF,0A,22,79 

143 wJ DATA 00,00,3A,6E,30,04,32,07,4E,AE 

144 5y DATA FF,0A,22,79,00,00,3A,6E,30,04 

145 S1 DATA 32,05,4E,AE,FF,0A,4E,75,42,87 

146 yx DATA 4l,F9,00,00,32,AE,30,18,32,18 

147 3p DATA 34,18,36,18,80,45,62,00,00,1A 

148 13 DATA 82,46,62,00,00,14,84,45,65,00 

149 no DATA 00,OE,86,46,65,00,00,08,4E,F9 

150 XR DATA 00,00,05,20,DE,7C,00,01,BE,7C 

151 ds DATA 00,10,66,DO,08,39,00,06,00,BF 

152 HY DATA E0,01,67,F6,60,00,26,FE,23,F9 

153 C9 DATA 00,00,3A,66,00,00,3A,6E,33,C7 

154 PP DATA 00,00,3A,74,3E,39,00,00,3A,72 

155 Iv DATA CE,FC,00,08,28,47,D9,FC,00,00 

156 N8 DATA 32,AE,61,00,00,62,61,00,00,68 

157 00 DATA 30,30,00,01,61,00,FF,38,61,00 

158 yZ DATA 00,50,30,30,00,01,61,00,FF,2C 

159 rd DATA 42,87,3E,39,00,00,3A,74,33,07 

160 ug DATA 00,00,3A,72,CE,FO,00,08,28,47 

161 SN DATA D9,F0,00,00,32,AE,61,00,00,20 

162 AR DATA 61,00,00,32,30,30,00,02,61,00 

163 Fn DATA FF,02,61,00,00,26,30,30,00,04 

164 b7 DATA 61,00,FE,F6,6l,00,00,20,08,39 

165 IQ DATA 00,06,00,BF,E0,01,67,F6,60,00 

166 Bq DATA 26,78,38,10,3A,10,30,10,3E,10 

167 OH DATA 4E,75,98,7C,00,01,9A,7C,00,01 

168 pz DATA DC,7C,00,01,DE,7C,00,01,4E,75 

169 TU DATA 42,80,30,39,00,00,3A,72,00,FC 

170 HY DATA 00,02,22,40,D3,FC,00,00,32,8E 

171 8N DATA 30,11,3E,00,61,00,00,48,13,00 

172 98 DATA 00,00,3B,72,30,07,E8,48,61,00 

173 wu DATA 00,3A,13,00,00,00,3B,70,30,07 

174 Dw DATA EO,48,61,00,00,20,13,00,00,00 

175 HS DATA 3B,6E,4B,F9,00,00,3B,6E,3A,3C 

176 Vv DATA 00,06,30,30,00,FB,3E,30,00,F2 

177 gp DATA 23,F9,00,00,3A,66,00,00,3A,6E 

178 vb DATA 4E,B9,00,00,04,18,4E,75,C0,7C 

179 x3 DATA 00,0F,D0,7C,00,30,B0,7C,00,3A 

180 LO DATA 65,00,00,06,D0,7C,00,07,4E,75 

181 Ao DATA 2C,79,00,00,3A,3E,8A,FC,00,07 

182 5q DATA 8C,FC,00,07,CA,BC,00,00,FF,FF 

183 yR DATA CC,BC,00,00,FF,FF,20,05,22,06 

184 or DATA 00,FC,00,07,02,FC,00,07,DO,70 

185 iq DATA 00,01,D2,70,00,01,34,00,36,01 

186 D4 DATA D4,7C,00,05,D6,7C,00,05,48,E7 

187 jZ DATA FO,00,30,39,00,00,3A,72,DO,70 

188 Jb DATA 00,10,22,79,00,00,3A,66,4E,AE 

189 cN DATA FE,AA,22,79,00,00,3A,66,4C,DF 

190 4G DATA 00,0F,4E,AE,FE,CE,43,F9,00,00 

191 Vw DATA 3A,98,30,39,00,00,3A,72,D0,7C 

192 nK DATA 00,10,4E,AE,FE,AA,43,F9,00,00 

193 Ws DATA 3A,98,30,05,32,06,4E,AE,FE,BC 

194 Bc DATA 22,79,00,00,3A,66,30,05,32,06 

195 EJ DATA DO,70,01,00,D2,70,00,08,4E,AE 

196 eX DATA FE,BC,4E,75,42,87,41,F9,00,00 

197 Hd DATA 33,2E,30,18,32,18,34,18,36,18 

198 jP DATA BO,45,62,00,00,1A,B2,46,62,00 

199 Bz DATA 00,14,B4,45,65,00,00,0E,B6,46 

200 gY DATA 65,00,00,08,4E,F9,00,00,07,1A 

201 qr DATA DE,7C,00,01,BE,70,00,16,66,DO 

202 40 DATA 08,39,00,06,00,BF,E0,01>67,F6 

203 qn DATA 60,00,25,04,OE,FC,00,04,20,47 

204 je DATA D1,FC,00,00,33,DE,22,50,4E,D1 

205 7F DATA 08,39,00,06,00,BF,EO,01,67,F6 

206 91 DATA 23,F9,00,00,3A,66,00,00,3A,6E 

207 hk DATA 60,00,24,DO,00,79,00,01,00,00 

208 2D DATA 3A,7C,67,00,01,84,20,79,00,00 

209 DM DATA 3B,10,61,00,00,26,20,79,00,00 


210 DI DATA 3B,14,61,00,00,10,20,79,00,00 

211 nL DATA 3B,18,61,00,00,12,20,79,00,00 

212 eY DATA 3B,10,61,00,00,08,61,00,20,2E 

213 Vd DATA 60,AE,2E,28,00,70,24,48,22,48 

214 7v DATA D3,FC,00,00,00,80,Dl,FC,00,00 

215 hl DATA 00,70,20,30,00,00,00,1E,23,20 

216 5d DATA 51,C8,FF,FC,24,87,4E,75,0C,79 

217 bR DATA 00,01,00,00,3A,70,67,00,01,78 

218 3Q DATA 20,79,00,00,38,10,61,00,00,28 

219 Fs DATA 20,79,00,00,3B,14,61,00,00,lE 

220 5V DATA 20,79,00,00,38,18,61,00,00,14 

221 cP DATA 20,79,00,00,3B,10,61,00,00,OA 

222 hU DATA 6l,00,lF,D0,60,00,FF,50,2E,4.0 

223 93 data 24,48,22,48,D1,FC,00,00,00,04 

224 2z DATA 20,30,00,00,00,lE,22,D8,51,08 

225 Ox DATA FF,FC,25,47,00,7C,4E,75,0C,79 

226 jl DATA 00,01,00,00,3A,70,67,00,01,6E 

227 CZ DATA 20,79,00,00,38,10,61,00,00,28 

228 01 DATA 20,79,00,00,38,l4,61,00,00,lE 

229 Ee DATA 20,79,00,00,38,18,61,00,00,14 

230 lY DATA 20,79,00,00,38,10,61,00,00,OA 

231 s2 DATA 61,00,1F,76,60,00,FE,F6,20,3C 

232 Hb DATA 00,00,00,IF,22,10,E2,99,20,01 

233 Pc DATA 51,C8,FF,F8,4E,75,0C,79,00,01 

234 9z DATA 00,00,3A,70,67,00,01,62,20,79 

235 ea DATA 00,00,38,10,61,00,00,28,20,79 

236 am DATA 00,00,38,14,61,00,00,lE,20,79 

237 de DATA 00,00,38,18,61,00,00,14,20,79 

238 2t DATA 00,00,38,10,61,00,00,OA,61,00 

239 lU DATA 1F,28,60,00,FE,A8,20,3C,00,00 

240 GH DATA 00,1F,22,10,E3,99,20,C1,51,C8 

241 rH DATA FF,F8,4E,75,0C,79,00,01,00,00 

242 x4 DATA 3A,7C,67,00,01,5A,2C,79,00,00 

243 OQ DATA 3A,46,20,79,00,00,3A,66,43,F9 

244 fH DATA 00,00,34,9A,20,30,00,00,01,09 

245 wt DATA 22,30,00,00,00,50,4E,AE,FF,8E 

246 tN DATA 33,FC,00,01,00,00,3A,70,60,00 

247 fj DATA FE,50,20,79,00,00,38,10,61,00 

248 uO DATA 00,28,20,79,00,00,38,14,61,00 

249 Mf DATA 00,1E,20,79,00,00,38,18,61,00 

250 RI DATA 00,14,20,79,00,00,38,10,61,00 

251 En DATA 00,0A,61,00,1E,AC,60,00,FE,2C 

252 ie DATA 24,48,22,48,D3,FC,00,00,00,40 

253 FU DATA D1,FC,00,00,00,44,20,30,00,00 

254 AM DATA 00,0F,22,D8,51,C8,FF,FC,42,AA 

255 dD DATA 00,70,4E,75,20,79,00,00,38,10 

256 si DATA 61,00,00,28,20,79,00,00,3B,l4 

257 Xi DATA 6l,00,00,lE,20,79,00,00,38,18 

258 ty DATA 61,00,00,14,20,79,00,00,3B,10 

259 Tr DATA 6l,00,00,0A,6l,00,lE,5A,60,00 

260 8J DATA FD,DA,24,48,22,48,D3,FC,00,00 

261 Bm DATA 00,30,Dl,FC,00,00,00,40,20,30 

262 zk DATA 00,00,00,OF,21,21,51,08,FF,FC 

263 VJ DATA 42,92,4E,75,20,79,00,00,38,10 

264 Oq DATA 61,00,00,28,20,79,00,00,38,14 

265 fq DATA 6l,00,00,lE,20,79,00,00,3B,18 

266 16 DATA 61,00,00,14,20,79,00,00,3B,10 

267 Mf DATA 6l,00,00,0A,6l,00,lE,0A,60,00 

268 5U DATA FD,8A,20,3C,00,00,00,1F,22,10 

269 8J DATA E3,49,20,C1,51,C8,FF,F8,4E,75 

270 tG DATA 20,79,00,00,38,10,61,00,00,28 

271 51 DATA 20,79,00,00,38,14,61,00,00,lE 

272 vL DATA 20,79,00,00,38,18,61,00,00,14 

273 SF DATA 20,79,00,00,38,10,61,00,00,OA 

274 pl DATA 61,00,1D,C8,60,00,FD,48,20,30 

275 09 DATA 00,00,00,1F,22,10,48,4l,E2,49 

276 uL DATA 48,41,20,01,51,08,FF,F4,4E,75 

277 xr DATA 2C,79,00,00,3A,46,20,79,00,00 

278 Me DATA 3A,66,43,F9,00,00,34,36,20,3C 

279 UP DATA 00,00,01,09,22,30,00,00,00,50 

280 4w DATA 4E,AE,FF,8E,33,FC,00,00,00,00 

281 RF DATA 3A,7C,60,00,FD,04,4l,F9,00,00 

282 VI DATA 2D,96,2C,79,00,00,3A,46,4E,AE 

283 Qt DATA FF,34,23,C0,00,00,3A,56,67,00 

284 kJ DATA FC,EA,20,40,23,E8,00,32,00,00 

285 bU DATA 3A,6A,22,68,00,32,30,3C,00,01 

286 W9 DATA 2C,79,00,00,3A,3E,4E,AE,FE,AA 

287 VT DATA 22,79,00,00,3A,6A,30,30,00,01 

288 wx DATA 4E,AE,FE,A4,22,79,00,00,3A,6A 

289 M9 DATA 30,30,00,00,32,30,00,00,34,30 

290 po DATA 00,DF,36,30,00,DF,4E,AE,FE,CE 

291 3N DATA 23,F9,00,00,3A,6A,00,00,3A,6E 

292 EZ DATA 4B,F9,00,00,3B,77,3A,30,00,05 

293 BE DATA 30,30,00,50,3E,30,00,5B,4E,B9 
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374 K9 DATA 23,FC,00,00,00,01,00,00,2E,62 

375 XR DATA 2C,79,00,00,3A,46,20,79,00,00 

376 kl DATA 3A,56,4E,AE,FF,B8,23,FC,00,00 

377 gl DATA 00,00,00,00,2D,A8,20,79,00,00 

378 If DATA 3A,3E,20,79,00,00,3A,62,43,F9 

379 oE DATA 00,00,32,6E,30,3C,00,20,4E,AE 

380 mB DATA FF,40,2C,79,00,00,3A,42,24,30 

381 vR DATA 00,00,03,ED,22,30,00,00,2E,EA 

382 7m DATA 4E,AE,FF,E2,23,00,00,00,3A,86 

383 NI DATA 67,00,01,06,22,00,26,30,00,00 

384 hb DATA 00,04,24,30,00,00,00,00,4E,AE 

385 OJ DATA FF,D6,67,00,00,00,00,B9,41,4F 

386 JK DATA 45,20,00,00,00,00,66,00,00,F6 

387 k5 DATA 22,39,00,00,3A,86,26,30,00,00 

388 pv DATA 00,02,24,30,00,00,00,04,4E,AE 

389 cl DATA FF,D6,67,00,00,A4,20,39,00,00 

390 sp DATA 2E,62,DO,79,00,00,00,04,BO,B9 

391 XU DATA 00,00,3A,78,62,00,00,8E,22,39 

392 ly DATA 00,00,3A,86,26,30,00,00,00,20 

393 Sr DATA 24,3C,00,00,32,8E,4E,AE,FF,D6 

394 k3 DATA 67,00,00,74,42,82,24,39,00,00 

395 Ad DATA 2E,62,94,80,00,00,00,01,04,FC 

396 mo DATA 02,80,D4,B9,00,00,3A,4A,42,83 

397 51 DATA 36,39,00,00,00,04,06,FC,02,80 

398 xy DATA 22,39,00,00,3A,86,4E,AE,FF,D6 

399 iK DATA 67,00,00,42,4E,B9,00,00,2A,F2 

400 dl DATA 20,79,00,00,3A,3E,20,79,00,00 

401 ys DATA 3A,62,43,F9,00,00,32,6E,30,3C 

402 eV DATA 00,20,4E,AE,FF,40,4E,B9,00,00 

403 x5 DATA 27,A6,4E,B9,00,00,05,C2,2C,79 

404 sn DATA 00,00,3A,42,22,39,00,00,3A,86 

405 cl DATA 4E,AE,FF,DC,60,00,F8,2A,20,79 

406 14 DATA 00,00,2D,B4,2C,79,00,00,3A,46 

407 pn DATA 4E,AE,FF,A0,2C,79,00,00,3A,42 

408 AO DATA 22,39,00,00,3A,86,4E,AE,FF,DC 

409 gS DATA 60,00,F8,06,20,79,00,00,2D,B4 

410 Ud DATA 2C,79,00,00,3A,46,4E,AE,FF,AO 

411 10 DATA 60,00,F7,F2,0C,B9,46,4F,52,4D 

412 6F DATA 00,00,00,00,66,BC,22,39,00,00 

413 VQ DATA 3A,86,26,30,00,00,00,04,24,30 

414 gN DATA 00,00,00,00,4E,AE,FF,D6,67,A4 

415 Gb DATA 00,89,00,00,04,00,00,00,00,00 

416 Bk DATA 64,98,22,39,00,00,3A,86,26,30 

417 SE DATA 00,00,04,00,24,30,00,00,00,00 

418 04 DATA 4E,AE,FF,D6,41,F9,00,00,00,00 

419 lY DATA 20,18,B0,BC,49,4C,42,4D,66,00 

420 eu DATA FF,72,20,18,BO,BC,42,4D,48,44 

421 Iw DATA 67,00,00,3E,B1,FC,00,00,04,00 

422 Sn DATA 66,EC,60,00,FF,5A,20,18,BO,BC 

423 IJ data 43,4D,41,50,67,00,00,50,Bl,FC 

424 Jb DATA 00,00,04,00,66,EC,60,00,FF,42 

425 xS DATA 20,18,BO,BC,42,4F,44,59,67,00 

426 jH DATA 00,6A,Bl,FC,00,00,04,00,66,EC 

427 du DATA 60,00,FF,2A,Dl,FC,00,00,00,04 

428 zz DATA 20,18,BO,BC,00,20,00,20,66,00 

429 OE DATA FF,18,Dl,FC,00,00,00,04,10,18 

430 wl DATA BO,30,00,04,66,00,FF,08,Dl,FC 

431 Hy DATA 00,00,00,03,60,A6,Dl,FC,00,00 

432 Gl DATA 00,04,43,F9,00,00,32,8E,20,30 

433 Ow DATA 00,00,00,OF,42,41,42,42,12,18 

434 34 DATA E9,49,84,41,42,41,12,18,84,41 

435 n4 DATA 42,4l,12,18,E8,49,84,4l,32,C2 

436 Im DATA 51,08,FF,E4,60,80,Dl,FC,00,00 

437 16 DATA 00,04,20,39,00,00,2E,62,90,BC 

438 Mk DATA 00,00,00,01,00,FC,02,80,DO,B9 

439 4f DATA 00,00,3A,4A,22,40,24,40,26,40 

440 Pn DATA 28,40,D5,FC,00,00,00,80,D7,FC 

441 Nv DATA 00,00,01,00,D9,FC,00,00,01,80 

442 Th DATA 20,3C,00,00,00,1F,22,D8,24,D8 

443 21 DATA 26,D8,28,D8,51,C8,FF,F6,60,00 

444 Xh DATA FE,42,20,79,00,00,3A,46,20,79 

445 H8 DATA 00,00,3A,56,4E,AE,FF,B8,20,79 

446 q2 DATA 00,00,3A,62,30,30,00,IF,32,30 

447 EY DATA 00,OD,34,01,36,01,20,79,00,00 

448 AP DATA 3A,3E,4E,AE,FE,E0,20,79,00,00 

449 zN DATA 3A,62,30,30,00,lE,32,30,00,03 

450 Xn DATA 34,01,36,01,4E,AE,FE,EO,20,79 

451 tf DATA 00,00,3A,46,23,FC,00,00,2F,3E 

452 yd DATA 00,00,2D,A8,4l,F9,00,00,2D,96 

453 00 DATA 4E,AE,FF,34,23,C0,00,00,3A,56 

454 5p DATA 20,40,23,E8,00,32,00,00,3A,6A 

455 Ci DATA 23,E8,00,32,00,00,3A,6E,22,68 

456 oE DATA 00,32,30,30,00,01,20,79,00,00 

457 CW DATA 3A,3E,4E,AE,FE,AA,22,79,00,00 


458 Id DATA 3A,6A,30,3C,00,01,4E,AE,FE,A4 

459 09 DATA 22,79,00,00,3A,6A,30,30,00,00 

460 pO DATA 32,30,00,00,34,30,00,DF,36,30 

461 TL DATA 00,54,4E,AE,FE,CE,22,79,00,00 

462 5G DATA 3A,6A,30,3C,00,00,32,30,00,55 

463 Ca DATA 34,3C,00,35,36,3C,00,61,4E,AE 

464 GP DATA FE,CE,22,79,00,00,3A,6A,30,30 

465 Hk DATA 00,59,32,30,00,55,34,30,00,85 

466 dJ DATA 36,3C,00,61,4E,AE,FE,CE,22,79 

467 b5 DATA 00,00,3A,6A,30,3C,00,A9,32,3C 

468 7A DATA 00,55,34,30,00,DF,36,30,00,61 

469 bl DATA 4E,AE,FE,CE,22,79,00,00,3A,6A 

470 dX DATA 30,30,00,00,32,30,00,61,34,30 

471 Mo DATA 00,DF,36,3C,00,72,4E,AE,FE,CE 

472 PM DATA 22,79,00,00,3A,6A,30,30,00,00 

473 la DATA 32,30,00,73,34,30,00,ID,36,30 

474 EK DATA 00,7F,4E,AE,FE,CE,22,79,00,00 

475 tN DATA 3A,6A,30,30,00,Bl,32,30,00,73 

476 Ov DATA 34,30,00,DF,36,30,00,7F,4E,AE 

477 Tc DATA FE,CE,22,79,00,00,3A,6A,30,30 

478 Fz DATA 00,00,32,3C,00,7F,34,3C,00,DF 

479 Y2 DATA 36,3C,00,DF,4E,AE,FE,CE,4B,F9 

480 NB DATA 00,00,3B,A5,3A,30,00,14,30,30 

481 NI DATA 00,1F,3E,3C,00,4F,4E,B9,00,00 

482 bG DATA 04,18,4B,F9,00,00,3B,B9,3A,3C 

483 Gc DATA 00,04,3C,3C,00,5F,3E,3C,00,5D 

484 ji DATA 4E,B9,00,00,04,18,4B,F9,00,00 

485 yS DATA 3B,96,3A,3C,00,09,3C,3C,00,1F 

486 OQ DATA 3E,3C,00,6B,4E,B9,00,00,04,18 

487 Fs DATA 4B,F9,00,00,3B,9F,3A,3C,00,06 

488 4j DATA 3C,3C,00,58,3E,3C,00,91,4E,B9 

489 7E DATA 00,00,04,18,30,30,00,02,38,30 

490 wJ DATA 00,54,3A,30,00,87,30,30,00,80 

491 Ra DATA 3E,3C,00,96,4E,B9,00,00,04,88 

492 mE DATA 30,39,00,00,30,02,08,00,00,07 

493 Qq data 66, 00,00,36,08,39,00,06,00,BF 

494 JO DATA E0,01,66,E8,22,79,00,00,3A,56 

495 L5 DATA 3A,29,00,OE,30,29,00,00,BA,70 

496 oR DATA 00,54,65,D4,BC,70,00,87,65,CE 

497 gT DATA BA,7C,00,8C,62,C8,BC,7C,00,96 

498 KZ DATA 62,02,60,00,00,OE,30,39,00,00 

499 5N DATA 30,02,08,00,00,07,66,F4,00,B9 

500 ui DATA 00,00,00,00,00,00,2F,86,66,00 

501 12 DATA 00,00,23,FC,00,00,00,01,00,00 

502 aF DATA 2F,86,20,79,00,00,3A,46,20,79 

503 50 DATA 00,00,3A,56,4E,AE,FF,B8,23,FC 

504 YO DATA 00,00,00,00,00,00,2D,A8,2C,79 

505 XI DATA 00,00,3A,3E,20,79,00,00,3A,62 

506 OU DATA 43,F9,00,00,32,6E,30,30,00,20 

507 9v DATA 4E,AE,FF,40,00,89,00,00,00,00 

508 IK DATA 00,00,2F,86,66,00,00,00,23,FC 

509 of DATA 00,00,00,01,00,00,2F,86,0C,B9 

510 RO DATA 00,00,00,00,00,00,2F,E2,66,00 

511 BC DATA 00,00,23,FC,00,00,00,01,00,00 

512 Cy DATA 2F,E2,20,39,00,00,2F,86,22,39 

513 UT DATA 00,00,2F,E2,B2,80,60,00,00,OE 

514 xl DATA 23,01,00,00,2F,86,23,CO,00,00 

515 Ng DATA 2F,E2,20,39,00,00,3A,78,B0,B9 

516 40 DATA 00,00,2F,E2,65,00,01,04,20,79 

517 eB DATA 00,00,3A,42,24,30,00,00,03,EE 

518 oZ DATA 22,3C,00,00,2E,EA,4E,AE,FF,E2 

519 4J DATA 23,00,00,00,3A,86,67,00,00,E4 

520 17 DATA 23,FC,4l,4F,45,20,00,00,00,00 

521 wn DATA 22,00,24,30,00,00,00,00,26,30 

522 k4 DATA 00,00,00,04,4E,AE,FF,D0,67,00 

523 g2 DATA 00,A0,20,39,00,00,2F,E2,90,B9 

524 30 DATA 00,00,2F,86,DO,70,00,01,33,00 

525 8x DATA 00,00,00,00,22,39,00,00,3A,86 

526 w7 DATA 24,30,00,00,00,00,26,30,00,00 

527 la DATA 00,02,4E,AE,FF,DO,67,00,00,70 

528 pl DATA 22,39,00,00,3A,86,24,30,00,00 

529 kp DATA 32,8E,26,30,00,00,00,20,4E,AE 

530 wl DATA FF,DO,67,00,00,56,4E,89,00,00 

531 Mw DATA 2B,20,24,39,00,00,2F,86,94,BC 

532 Kq DATA 00,00,00,01,04,FC,02,80,D4,B9 

533 Lr DATA 00,00,3A,4 a,26,39,00,00,2F,E2 

534 Gc DATA 96,B9,00,00,2F,86,D6,BC,00,00 

535 Hl DATA 00,01,06,FC,02,80,22,39,00,00 

536 Dy DATA 3A,86,4E,AE,FF,DO,67,00,00,16 

537 Wg DATA 4E,B9,00,00,2A,F2,22,39,00,00 

538 2V DATA 3A,86,4E,AE,FF,DC,60,00,F2,F6 

539 dE DATA 20,79,00,00,2D,B4,20,79,00,00 

540 41 DATA 3A,46,4E,AE,FF,A0,20,79,00,00 

541 Ut DATA 3A,42,22,39,00,00,3A,86,4E,AE 


542 fr DATA FF,DC,60,00,F2,D2,20,79,00,00 

543 Fj DATA 2D,B4,20,79,00,00,3A,46,4E,AE 

544 Jj DATA FF,AO,60,00,F2,BE,20,79,00,00 

545 Y7 DATA 3A,3E,43,F9,00,00,3A,98,20,3C 

546 mp DATA 00,00,00,10,4E,AE,FE,AA,43,F9 

547 ze DATA 00,00,3A,98,42,80,42,81,34,30 

548 qD DATA 00,1F,36,3C,00,1F,4E,AE,FE,CE 

549 hY DATA 4E,89,00,00,27,A6,60,00,F2,88 

550 Pm DATA 20,79,00,00,3B,10,61,00,00,28 

551 bE DATA 20,79,00,00,3B,14,61,00,00,lE 

552 Rr DATA 20,79,00,00,38,18,61,00,00,14 

553 yl data 20,79,00,00,3B,10,61,00,00,OA 

554 ab DATA 61,00,12,D8,60,00,F2,58,20,30 

555 k8 DATA 00,00,00,1F,22,10,24,10,48,42 

556 xg DATA C2,BC,00,00,FF,FF,C4,BC,00,00 

557 19 DATA FF,FF,42,83,42,84,2E,3C,00,00 

558 zR DATA 00,0F,0F,01,67,00,00,10,46,47 

559 U DATA CE,7C,00,0F,0F,C3,46,47,CE,7C 

560 Hh DATA 00,0F,51,CF,FF,EA,2E,3C,00,00 

561 4X DATA 00,0F,0F,02,67,00,00,10,46,47 

562 Rh DATA CE,7C,00,0F,0F,C4,46,47,CE,7C 

563 3s DATA 00,OF,51,CF,FF,EA,48,43,86,84 

564 oK DATA 20,03,51,08,FF,A6,4E,75,20,79 

565 yu DATA 00,00,38,10,61,00,00,28,20,79 

566 u6 DATA 00,00,3B,14,61,00,00,lE,20,79 

567 xw DATA 00,00,38,18,61,00,00,14,20,79 

568 MD DATA 00,00,38,10,61,00,00,OA,61,00 

569 f8 DATA 12,44,60,00,Fl,C4,22,48,D3,FC 

570 tN DATA 00,00,00,80,20,30,00,00,00,OF 

571 EG DATA 22,10,24,21,22,81,20,02,51,08 

572 Tq DATA FF,F6,4E,75,20,79,00,00,3B,10 

573 zp DATA 61,00,00,28,20,79,00,00,38,14 

574 ep DATA 61,00,00,lE,20,79,00,00,38,18 

575 05 DATA 61,00,00,14,20,79,00,00,38,10 

576 th DATA 61,00,00,OA,61,00,11,F8,60,00 

577 Rd DATA Fl,78,43,F9,00,00,00,00,24,48 

578 3s DATA 20,30,00,00,00,1F,2E,30,00,00 

579 CY DATA 00,1F,42,83,20,4A,20,18,0D,00 

580 Ae DATA 67,00,00,10,46,47,CE,70,00,IF 

581 V2 DATA 0F,C3,46,47,CE,7C,00,1F,51,CF 

582 qw DATA FF,E8,22,C3,51,CE,FF,D8,43,F9 

583 re DATA 00,00,00,00,20,4A,20,30,00,00 

584 6S DATA 00,1F,20,D9,51,CE,FF,FC,4E,75 

585 FI DATA 20,79,00,00,3A,62,30,30,00,IF 

586 oX DATA 32,30,00,0D,34,01,36,01,20,79 

587 Ob DATA 00,00,3A,3E,4E,AE,FE,E0,20,79 

588 4F data 00,00,3A,62,30,30,00,1E,32,30 

589 ea DATA 00,03,34,01,36,01,4E,AE,FE,E0 

590 fm DATA 2C,79,00,00,3A,46,23,FC,00,00 

591 T2 DATA 31,5A,00,00,2D,A8,4l,F9,00,00 

592 Cb DATA 2D,96,4E,AE,FF,34,23,C0,00,00 

593 fL DATA 3A,56,20,40,23,E8,00,32,00,00 

594 KM DATA 3A,6A,23,E8,00,32,00,00,3A,6E 

595 dE DATA 22,68,00,32,30,30,00,01,20,79 

596 Vx DATA 00,00,3A,3E,4E,AE,FE,AA,22,79 

597 8i DATA 00,00,3A,6A,30,3C,00,01,4E,AE 

598 cp DATA FE,A4,22,79,00,00,3A,6A,30,3C 

599 uB DATA 00,00,32,30,00,00,34,30,00,DF 

600 na DATA 36,3C,00,54,4E,AE,FE,CE,22,79 

601 MQ DATA 00,00,3A,6A,30,30,00,00,32,30 

602 uP DATA 00,55,34,30,00,35,36,30,00,61 

603 Iv DATA 4E,AE,FE,CE,22,79,00,00,3A,6A 

604 raY DATA 30,30,00,59,32,30,00,55,34,30 

605 p9 DATA 00,85,36,30,00,61,4E,AE,FE,CE 

606 01 DATA 22,79,00,00,3A,6A,30,3C,00,A9 

607 qA DATA 32,30,00,55,34,30,00,DF,36,30 

608 Hi DATA 00,61,4E,AE,FE,CE,22,79,00,00 

609 CK DATA 3A,6A,30,30,00,00,32,30,00,61 

610 Dt DATA 34,30,00,DF,36,30,00,68,4E,AE 

611 dm DATA FE,CE,22,79,00,00,3A,6A,30,30 

612 rx DATA 00,00,32,30,00,69,34,30,00,79 

613 Eu DATA 36,30,00,75,4E,AE,FE,CE,22,79 

614 Ip DATA 00,00,3A,6A,30,3C,00,9D,32,3C 

615 LE DATA 00,69,34,30,00,DF,36,30,00,75 

616 y8 DATA 4E,AE,FE,CE,22,79,00,00,3A,6A 

617 JI DATA 30,30,00,00,32,30,00,75,34,30 

618 76 DATA 00,DF,36,30,00,DF,4E,AE,FE,CE 

619 7e DATA 4B,F9,00,00,3C,4F,3A,3C,00,13 

620 rt DATA 3C,3C,00,23,3E,3C,00,4F,4E,B9 

621 Fl DATA 00,00,04,18,4B,F9,00,00,3B,B9 

622 GN DATA 3A,3C,00,04,3C,3C,00,5F,3E,3C 

623 2t DATA 00,5D,4E,B9,00,00,04,18,4B,F9 

624 gB DATA 00,00,30,62,3A,30,00,06,30,30 

625 Wb DATA 00,3F,3E,3C,00,71,4E,B9,00,00 
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626 K3 DATA 04,18,4B,F9,00,00,3B,9F,3A,3C 

627 pa DATA 00,06,3C,3C,00,58,3E,3C,00,91 

628 78 DATA 4E,89,00,00,04,18,30,3C,00,02 

629 NI DATA 38,3C,00,54,3A,30,00,87,30,30 

630 RU DATA 00,8C,3E,30,00,96,4E,89,00,00 

631 cx DATA 04,88,30,39,00,00,32,lE,08,00 

632 vq DATA 00,07,66,00,00,36,08,39,00,06 

633 3M DATA 00,8F,E0,01,66,E8,22,79,00,00 

634 AQ DATA 3A,56,3A,29,00,OE,30,29,00,00 

635 Ey DATA 8A,70,00,54,65,D4,80,70,00,87 

636 9M DATA 65,OE,8A,70,00,80,62,08,80,70 

637 rF DATA 00,96,62,02,60,00,00,OE,30,39 

638 xw DATA 00,00,32,lE,08,00,00,07,66,F4 

639 nh DATA 20,79,00,00,3A,46,20,79,00,00 

640 OY DATA 3A,56,4E,AE,FF,88,23,F0,00,00 

641 wl DATA 00,00,00,00,2D,A8,20,79,00,00 

642 Yv DATA 3A,3E,20,79,00,00,3A,62,43,F9 

643 4U DATA 00,00,32,6E,30,30,00,20,4E,AE 

644 k2 DATA FF,40,4A,89,00,00,31,A2,62,00 

645 LM DATA 00,00,23,FO,00,00,00,01,00,00 

646 ry DATA 31,A2,4A,89,00,00,31,FE,62,00 

647 NO DATA 00,00,23,FO,00,00,00,01,00,00 

648 81 DATA 31,FE,4A,89,00,00,32,5A,63,00 

649 JO DATA 01,00,20,39,00,00,31,A2,DO,89 

650 xO DATA 00,00,32,5A,90,80,00,00,00,01 

651 Jm DATA 80,89,00,00,3A,78,62,00,00,EE 

652 3E DATA 22,39,00,00,31,FE,D2,89,00,00 

653 SQ DATA 32,5A,92,80,00,00,00,01,82,89 

654 hR DATA 00,00,3A,78,62,00,00,D2,82,80 

655 c8 DATA 67,00,00,02,80,89,00,00,31,FE 

656 aR DATA 62,00,00,40,20,39,00,00,32,5A 

657 dz DATA 00,FO,00,AO,90,80,00,00,00,01 

658 pb DATA 22,39,00,00,31,A2,92,80,00,00 

659 OP DATA 00,01,02,FO,02,80,D2,89,00,00 

660 JQ DATA 3A,4A,20,41,22,39,00,00,31,FE 

661 zV DATA 92,80,00,00,00,01,02,FO,02,80 

662 40 DATA D2,89,00,00,3A,4A,22,4l,22,D8 

663 av DATA 51,08,FF,F0,60,00,00,6E,20,39 

664 Fk DATA 00,00,31,A2,80,89,00,00,31,FE 

665 PF DATA 62,A8,20,39,00,00,32,5A,00,FO 

666 95 DATA 00,AO,90,80,00,00,00,01,22,39 

667 OR DATA 00,00,31,A2,D2,89,00,00,32,5A 

668 6c DATA 92,80,00,00,00,01,02,FO,02,80 

669 yA DATA D2,89,00,00,3A,4A,20,41,22,39 

670 LZ DATA 00,00,31,FE,D2,89,00,00,32,5A 

671 9f DATA 92,80,00,00,00,01,02,FO,02,80 

672 xJ DATA D2,89,00,00,3A,4A,22,41,D1,F0 

673 Tt DATA 00,00,00,04,D3,F0,00,00,00,04 

674 HA DATA 23,20,51,08,FF,F0,4E,89,00,00 

675 yM DATA 27,A6,60,00,ED,A0,20,79,00,00 

676 00 DATA 3A,46,20,79,00,00,2D,84,4E,AE 

677 ZV DATA FF,A0,60,00,ED,80,4l,F9,00,00 

678 t6 DATA 2D,96,20,79,00,00,3A,46,4E,AE 

679 FW DATA FF,34,4A,80,67,00,ED,76,23,00 

680 UK DATA 00,00,3A,56,20,40,23,E8,00,32 

681 WW DATA 00,00,3A,6A,22,68,00,32,30,30 

682 dt DATA 00,01,20,79,00,00,3A,3E,4E,AE 

683 Fc DATA FE,AA,22,79,00,00,3A,6A,30,3C 

684 8A DATA 00,01,4E,AE,FE,A4,22,79,00,00 

685 Tt DATA 3A,6A,42,40,42,41,34,30,00,DF 

686 Da DATA 36,30,00,DF,4E,AE,FE,0E,23,F9 

687 6U DATA 00,00,3A,6A,00,00,3A,6E,48,F9 

688 ER DATA 00,00,3B,8D,3A,30,00,00,30,30 

689 or DATA 00,40,3E,30,00,50,4E,B9,00,00 

690 Og DATA 04,18,48,F9,00,00,3B,09,3A,30 

691 pv DATA 00,OB,30,30,00,44,3E,30,00,5A 

692 54 DATA 4E,89,00,00,04,18,48,F9,00,00 

693 K4 DATA 3B,D4,3A,30,00,0F,30,30,00,34 

694 4L DATA 3E,30,00,69,4E,89,00,00,04,18 

695 M8 DATA 4B,F9,00,00,3B,E3,3A,30,00,0F 

696 8r DATA 3C,30,00,34,3E,30,00,73,4E,B9 

697 At DATA 00,00,04,18,48,F9,00,00,38,F2 

698 93 DATA 3A,3C,00,11,30,30,00,20,3E,30 

699 Ip DATA 00,82,4E,89,00,00,04,18,48,F9 

700 mO DATA 00,00,3B,9F,3A,30,00,06,30,30 

701 Hz DATA 00,58,3E,30,00,96,4E,89,00,00 

702 Yb DATA 04,18,30,30,00,02,38,30,00,54 

703 mc DATA 3A,30,00,80,30,30,00,80,3E,3C 

704 sp DATA 00,9B,4E,89,00,00,04,88,08,39 

705 IV DATA 00,06,00,BF,E0,01,66,F6,22,79 

706 Uy DATA 00,00,3A,56,3A,29,00,OE,30,29 

707 Je DATA 00,00,BA,70,00,54,65,E2,80,70 

708 me DATA 00,80,65,DO,BA,70,00,80,62,D6 

709 US DATA 80,70,00,98,62,DO,20,79,00,00 


710 iW DATA 3A,46,20,79,00,00,3A,56,4E,AE 

711 OM DATA FF,88,60,00,EO,38,41,F9,00,00 

712 3k DATA 2D,96,23,F0,00,00,30,A2,00,00 

713 IV DATA 2D,A8,20,79,00,00,3A,46,4E,AE 

714 Ih DATA FF,34,23,00,00,00,3A,56,20,40 

715 8q DATA 23,E8,00,32,00,00,3A,6A,23,E8 

716 HQ DATA 00,32,00,00,3A,6E,22,68,00,32 

717 p2 DATA 30,30,00,01,20,79,00,00,3A,3E 

718 IW DATA 4E,AE,FE,AA,22,79,00,00,3A,6A 

719 aD DATA 30,30,00,01,4E,AE,FE,A4,20,79 

720 GS DATA 00,00,3A,62,30,30,00,1F,32,30 

721 ey DATA 00,0D,34,01,36,01,20,79,00,00 

722 ap DATA 3A,3E,4E,AE,FE,E0,20,79,00,00 

723 Pn DATA 3A,62,30,30,00,lE,32,30,00,03 

724 PO DATA 34,01,36,01,4E,AE,FE,EO,22,79 

725 MQ DATA 00,00,3A,6A,30,30,00,00,32,30 

726 wX DATA 00,00,34,30,00,DF,36,30,00,5E 

727 Iv DATA 4E,AE,FE,0E,22,79,00,00,3A,6A 

728 6K DATA 30,30,00,00,32,30,00,5F,34,30 

729 Fl DATA 00,35,36,30,00,68,4E,AE,FE,0E 

730 cn DATA 22,79,00,00,3A,6A,30,30,00,59 

731 iq DATA 32,30,00,5F,34,30,00,85,36,30 

732 vG DATA 00,68,4E,AE,FE,GE,22,79,00,00 

733 og DATA 3A,6A,30,3G,00,A9,32,3G,00,5F 

734 rh DATA 34,3G,00,DF,36,3G,00,6B,4E,AE 

735 dm DATA FE,GE,22,79,00,00,3A,6A,30,3G 

736 Bq DATA 00,00,32,30,00,68,34,30,00,DF 

737 iO DATA 36,3G,00,DF,4E,AE,FE,GE,4B,F9 

738 RU DATA 00,00,30,1A,3A,30,00,14,30,30 

739 wf DATA 00,1F,3E,3G,00,59,4E,B9,00,00 

740 IQ DATA 04,18,4B,F9,00,00,3B,B9,3A,3C 

741 MV DATA 00,04,30,30,00,5F,3E,30,00,66 

742 ts DATA 4E,89,00,00,04,18,48,F9,00,00 

743 fu DATA 3B,9F,3A,3G,00,06,3G,3G,00,58 

744 Kl DATA 3E,30,00,TD,4E,89,00,00,04,18 

745 BS DATA 30,30,00,02,38,30,00,54,3A,30 

746 fx DATA 00,73,30,30,00,80,3E,30,00,82 

747 Tw DATA 4E,89,00,00,04,88,08,39,00,06 

748 q8 DATA 00,BF,E0,01,66,F6,22,79,00,00 

749 IH DATA 3A,56,3A,29,00,0E,3G,29,00,00 

750 dH DATA BA,70,00,54,65,E2,80,70,00,73 

751 o9 DATA 65,DG,BA,70,00,80,62,D6,80,70 

752 EA DATA 00,82,62,DO,20,79,00,00,3A,46 

753 qq DATA 20,79,00,00,3A,56,4E,AE,FF,B8 

754 Q7 DATA 00,89,00,00,00,00,00,00,30,EA 

755 Ms DATA 66,00,00,00,23,FO,00,00,00,01 

756 WI DATA 00,00,30,EA,20,39,00,00,3A,78 

757 ID DATA 80,89,00,00,30,EA,62,00,00,00 

758 HN DATA 23,F9,00,00,3A,78,00,00,30,EA 

759 Yo DATA 00,89,00,00,00,00,00,00,31,46 

760 Rx DATA 66,00,00,00,23,FC,00,00,00,01 

761 fN DATA 00,00,31,46,20,39,00,00,3A,78 

762 6r DATA 80,89,00,00,31,46,62,00,00,00 

763 P4 DATA 23,F9,00,00,3A,78,00,00,31,46 

764 Hn DATA 20,39,00,00,30,EA,22,39,00,00 

765 pN DATA 31,46,82,80,64,00,00,OE,23,01 

766 8J DATA 00,00,30,EA,23,00,00,00,31,46 

767 yl DATA 23,F9,00,00,30,EA,00,00,3A,8E 

768 HU DATA 4l,F9,00,00,2D,96,23,FG,00,00 

769 05 DATA 00,00,00,00,2D,A8,20,79,00,00 

770 yq DATA 3A,46,4E,AE,FF,34,23,G0,00,00 

771 XD DATA 3A,56,20,40,23,E8,00,32,00,00 

772 GE DATA 3A,6A,23,£8,00,32,00,00,3A,6E 

773 nJ DATA 22,68,00,32,22,79,00,00,3A,6A 

774 kx DATA 30,30,00,01,20,79,00,00,3A,3E 

775 qn DATA 4E,AE,FE,AA,20,79,00,00,3A,62 

776 kq DATA 43,F9,00,00,32,6E,30,3G,00,20 

777 VJ DATA 4E,AE,FF,40,22,79,00,00,3A,6A 

778 bG DATA 30,30,00,01,4E,AE,FE,A4,22,79 

779 EI DATA 00,00,3A,6A,30,30,00,00,32,30.' 

780 ri DATA 00,00,34,3G,00,DF,36,3G,00,DF 

781 zD DATA 4E,AE,FE,GE,2G,79,00,00,3A,46 

782 xq DATA 20,79,00,00,3A,6A,43,F9,00,00 

783 12 DATA 35,9E,30,30,00,58,32,30,00,57 

784 BM DATA 4E,AE,FF,8E,2G,79,00,00,3A,3E 

785 9v DATA 4B,F9,00,00,3G,2E,3A,3G,00,0F 

786 fe DATA 3G,3G,00,34,3E,3G,00,4F,4E,B9 

787 OE DATA 00,00,04,18,4B,F9,00,00,3B,9F 

788 61 DATA 3A,30,00,06,30,30,00,58,3E,30 

789 sl DATA 00,7D,4E,B9,00,00,04,18,4B,F9 

790 SO DATA 00,00,30,3D,3A,30,00,03,30,30 

791 s5 DATA 00,63,3E,3G,00,5D,4E,B9,00,00 

792 03 data 04,18,30,30,00,02,38,30,00,54 

793 cG DATA 3A,30,00,73,30,30,00,80,3E,30 


Listings 


794 XL DATA 00,82,4E,89,00,00,04,88,30,30 

795 EH DATA 00,10,22,79,00,00,3A,6A,4E,AE 

796 4R DATA FE,AA,22,79,00,00,3A,6A,30,3G 

797 wj DATA 00,5F,32,30,00,14,34,30,00,7E 

798 LF DATA 36,3G,00,33,4E,AE,FE,GE,30,3G 

799 Ob DATA 00,02,38,30,00,5E,3A,30,00,13 

800 eM DATA 3G,3G,00,7F,3E,3G,00,34,4E,B9 

801 tZ DATA 00,00,04,88,30,30,00,03,38,30 

802 WM DATA 00,5D,3A,30,00,12,30,30,00,80 

803 rN DATA 3E,30,00,35,4E,89,00,00,04,88 

804 Ai DATA 30,30,00,04,38,30,00,50,3A,30 

805 45 DATA 00,11,30,30,00,81,3E,3G,00,36 

806 XZ DATA 4E,89,00,00,04,88,23,F9,00,00 

807 A7 DATA 3B,10,00,00,00,00,23,F9,00,00 

808 IW DATA 3B,14,00,00,00,04,23,F9,00,00 

809 Mv DATA 3B,18,00,00,00,08,23,F9,00,00 

810 yO DATA 3B,10,00,00,00,00,23,F9,00,00 

811 LK DATA 3B,20,00,00,00,10,23,F9,00,00 

812 IN DATA 3A,92,00,00,3A,8A,2A,7G,00,DF 

813 45 DATA FO,00,23,F8,00,60,00,00,27,68 

814 FM DATA 21,FO,00,00,26,AG,00,60,00,79 

815 6i DATA 00,01,00,00,3A,96,66,00,00,54 

816 JT DATA 20,39,00,DF,FO,04,CO,80,00,01 

817 tf DATA FF,00,80,80,00,01,00,00,66,EC 

818 Mh DATA 2C,79,00,00,3A,3E,4l,F9,00,00 

819 4G data 3A,98,22,79,00,00,3A,6A,42,80 

820 Ec DATA 42,81,24,3C,00,00,00,.5F,26,3G 

821 OC DATA 00,00,00,14,28,30,00,00,00,20 

822 fF DATA 2A,30,00,00,00,20,20,30,00,00 

823 Bi DATA 00,00,4E,AE,FD,D8,42,79,00,00 

824 J8 DATA 3A,96,08,39,00,06,00,BF,EO,01 

825 hv DATA 66,98,22,79,00,00,3A,56,3A,29 

826 lA DATA 00,0E,3G,29,00,0G,BA,7G,00,58 

827 pR DATA 65,00,00,lE,80,70,00,57,65,00 

828 SV DATA 00,16,BA,7G,00,5F,62,00,00,0E 

829 xY DATA 80,70,00,5E,62,00,00,06,60,00 

830 Z6 DATA OA,06,BA,70,00,80,65,00,00,22 

831 El DATA 80,70,00,57,65,00,00,1A,BA,7G 

832 AB DATA 00,87,62,00,00,12,80,70,00,5E 

833 7S DATA 62,00,00,OA,60,00,OA,22,60,00 

834 ol DATA FF,40,BA,7G,00,54,65,00,FF,38 

835 Gl DATA BC,7G,00,73,65,00,FF,30,BA,7G 

836 ZN DATA 00,80,62,00,FF,28,BC,70,00,82 

837 da DATA 62,00,FF,20,2A,7G,00,DF,F0,00 

838 Vm DATA 21,F9,00,00,27,68,00,60,23,F9 

839 Oa DATA 00,00,00,00,00,00,3B,10,23,F9 

840 P7 DATA 00,00,00,04,00,00,3B,l4,23,F9 

841 oe DATA 00,00,00,08,00,00,3B,18,23,F9 

842 t5 DATA 00,00,00,00,00,00,3B,10,23,F9 

843 IJ DATA 00,00,00,10,00,00,3B,20,20,79 

844 sq DATA 00,00,3A,46,20,79,00,00,3A,56 

845 tO DATA 4E,AE,FF,B8,23,F9,00,00,3A,66 

846 9Q DATA 00,00,3A,6E,23,FG,00,00,00,00 

847 EM DATA 00,00,2D,A8,60,00,E6,E6,30,39 

848 Wb DATA 00,00,3A,76,80,70,00,01,66,00 

849 53 DATA 00,06,60,00,E6,D4,04,89,00,00 

850 yv DATA 02,80,00,00,3B,10,04,89,00,00 

851 BG DATA 02,80,00,00,3B,14,04,89,00,00 

852 OT DATA 02,80,00,00,3B,18,04,89,00,00 

853 wC DATA 02,80,00,00,3B,10,04,89,00,00 

854 cQ DATA 02,80,00,00,3B,20,04,79,00,01 

855 2L DATA 00,00,3A,76,4E,B9,00,00,2A,42 

856 PX DATA 4E,B9,00,00,27,A6,60,00,E6,8A 

857 13 DATA 30,39,00,00,3A,76,80,89,00,00 

858 iE DATA 3A,78,66,00,00,06,60,00,E6,76 

859 pA DATA 06,89,00,00,02,80,00,00,3B,10 

860 AZ DATA 06,89,00,00,02,80,00,00,3B,l4 

861 Vy DATA 06,89,00,00,02,80,00,00,38,18 

862 P3 DATA 06,89,00,00,02,80,00,00,3B,10 

863 xJ DATA 06,89,00,00,02,80,00,00,38,20 

864 Gq DATA 06,79,00,01,00,00,3A,76,4E,89 

865 Z6 DATA 00,00,2A,42,4E,B9,00,00,27,A6 

866 IS DATA 60,00,E6,20,42,80,30,39,00,00 

867 hy DATA 3A,72,G0,FG,00,02,20,40,D1,FG 

868 14 DATA 00,00,32,8E,30,10,00,70,OF,00 

869 3U DATA EO,58,DO,70,00,01,00,70,00,OF 

870 GW DATA E1,58,02,50,00,FF,81,50,4E,B9 

871 Jt DATA 00,00,27,60,4E,89,00,00,05,02 

872 NO DATA 60,00,E5,F0,42,80,30,39,00,00 

873 n4 DATA 3A,72,G0,FG,00,02,20,40,D1,FG 

874 rA DATA 00,00,32,8E,30,10,G0,7G,0F,00 


Listing 1. (Fortsetzung) 
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1127 Em DATA D3,FC,00,00,00,80,D5,FC,00,00 

1128 4F DATA 01,00,D7,FC,00,00,01,80,D9,FC 

1129 wm DATA 00,00,02,00,20,39,00,00,3A,78 

1130 aK DATA 90,80,00,00,00,01,22,30,00,00 

1131 xm DATA 00,1F,42,87,24,18,8E,82,24,19 

1132 pY DATA 8E,82,24,1A,8E,82,24,1B,8E,82 

1133 4b DATA 28,07,51,09,FF,EA,D1,F0,00,00 

1134 XP DATA 02,00,D3,F0,00,00,02,00,D5,F0 

1135 zP DATA 00,00,02,00,D7,F0,00,00,02,00 

1136 Lx DATA D9,F0,00,00,02,00,51,08,FF,02 

1137 DW DATA 4E,75,4E,B9,00,00,01,10,4E,B9 

1138 Om DATA 00,00,00,06,4E,89,00,00,00,66 

1139 Wp DATA 4E,B9,00,00,2C,9C,4E,B9,00,00 

1140 52 DATA 01,54,4E,B9,00,00,24,AO,20,78 

1141 Ha DATA 00,04,22,30,00,01,00,03,20,39 

1142 to DATA 00,00,3A,78,00,F0,02,80,4E,AE 

1143 sG DATA FF,3A,23,00,00,00,3A,4A,67,DA 

1144 aV DATA 23,00,00,00,38,10,DO,BO,00,00 

1145 Ag DATA 00,80,23,00,00,00,38,14,DO,BO 

1146 pO DATA 00,00,00,80,23,00,00,00,38,18 

1147 4z DATA DO,BO,00,00,00,80,23,00,00,00 

1148 dq DATA 38,10,DO,BO,00,00,00,80,23,00 

1149 AP DATA 00,00,3B,20,33,FO,00,01,00,00 

1150 Ni DATA 3A,76,4E,B9,00,00,2A,F2,08,39 

1151 EJ DATA 00,06,00,BF,EO,01,67,00,00,10 

1152 MM DATA 08,39,00,OA,00,DF,FO,16,67,00 

1153 Gu DATA 00,BE,66,E6,22,79,00,00,3A,52 

1154 RP DATA 42,85,42,86,3A,29,00,0E,3C,29 

1155 D5 DATA 00,0C,BA,7C,00,E0,6C,00,DA,86 

1156 9Z DATA BC,7C,00,E0,6C,00,D8,84,6l,00 

1157 nq DATA D9,E0,60,BE,20,78,00,04,20,39 

1158 j7 DATA 00,00,3A,78,C0,FC,02,80,22,79 

1159 ez DATA 00,00,3A,4A,4E,AE,FF,2E,2C,78 

1160 J6 DATA 00,04,20,30,00,00,08,00,22,79 

1161 xO DATA 00,00,3A,5E,4E,AE,FF,2E,4E,B9 

1162 G2 DATA 00,00,00,F0,4E,B9,00,00,00,42 

1163 pk DATA 4E,F9,00,00,01,30,20,78,00,04 

1164 Nt DATA 20,30,00,00,08,00,22,30,00,01 

1165 RK DATA 00,03,4E,AE,FF,3A,23,00,00,00 

1166 QH DATA 3A,5E,22,40,20,70,00,00,36,3E 

1167 3N DATA 20,30,00,00,01,FF,22,D8,51,08 

1168 5p DATA FF,F0,22,39,00,00,3A,5E,4l,F9 

1169 7f DATA 00,00,34,36,Dl,FO,00,00,00,OA 

1170 kg DATA 20,30,00,00,00,19,D3,90,D1,F0 

1171 nF DATA 00,00,00,14,51,08,FF,F6,4E,75 

1172 aL DATA 22,79,00,00,3A,52,3A,29,00,0E 

1173 zM DATA 3C,29,00,00,BA,70,00,E0,64,00 

1174 gN DATA 00,2E,BO,70,00,EO,64,00,00,26 

1175 5t DATA 33,F9,00,00,3A,72,00,00,3A,80 

1176 nO DATA 33,FO,00,00,00,00,3A,72,6l,00 

1177 x5 DATA D9,18,33,F9,00,00,3A,80,00,00 

1178 LN DATA 3A,72,60,00,FE,E0,BA,70,01,3F 

1179 hH DATA 66,00,FE,E4,BO,70,00,00,66,00 

1180 Yh DATA FE,D0,60,00,FF,1A,00,00,00,00 

1181 xR DATA 01,40,01,00,00,05,00,01,00,02 

1182 02 DATA 00,0F,00,00,00,00,00,00,00,00 

1183 5L DATA 00,00,00,00,00,00,00,00,00,00 

1184 hk DATA 00,00,01,40,01,00,00,01,00,00 

1185 7f DATA 00,00,00,01,18,80,00,00,00,00 

1186 80 DATA 00,00,00,00,00,00,00,00,00,00 

1187 Tk DATA 00,00,00,00,00,00,01,40,01,00 

1188 oY DATA 01,40,01,00,00,OF,00,01,00,01 

1189 sB DATA 00,DF,00,DF,02,03,00,00,00,00 

1190 rC DATA 00,01,18,00,00,00,00,00,00,00 

1191 DT DATA 00,00,00,00,00,00,00,00,00,00 

1192 Og DATA 00,00,00,00,00,DF,00,DF,00,DF 

1193 Ql data 00,DF,00,0F,00,58,00,5E,00,90 

1194 fl DATA 00,2D,02,03,00,00,00,00,00,01 

1195 Jv DATA 18,00,00,00,30,46,00,00,00,00 

1196 lY DATA 00,00,00,00,00,00,00,00,00,00 

1197 Ov DATA 00,00,00,90,00,2D,00,90,00,2D 

1198 yg DATA 00,OF,00,00,2E,76,00,60,00,57 

1199 DL DATA 00,20,00,0A,00,00,08,01,00,04 

1200 4b DATA 00,00,2E,22,00,00,00,00,00,00 

1201 zc DATA 00,00,00,00,00,00,00,00,2E,46 

1202 Ug DATA 00,01,00,00,00,00,00,00,00,00 

1203 BK DATA 03,00,00,05,00,00,2E,32,00,00 

1204 gd DATA 00,00,FF,FE,FF,FE,00,20,FF,FE 

1205 Lx DATA 00,20,00,09,FF,FE,00,09,FF,FE 

1206 CE DATA FF,FE,00,00,2E,6A,00,00,2E,70 

1207 bv DATA 00,00,00,04,00,00,00,00,00,00 

1208 Uk DATA 00,00,00,00,00,00,00,00,00,00 

1209 z6 DATA 00,00,00,00,00,00,00,00,30,30 

1210 Ih DATA 31,00,00,00,30,30,31,00,00,00 


1211 Bv DATA 00,00,00,00,00,27,00,75,00,90 

1212 Vk DATA 00,OA,00,00,00,01,00,04,00,00 

1213 Dz DATA 2E,A2,00,00,00,00,00,00,00,00 

1214 Fc DATA 00,00,00,00,00,00,2E,C6,00,02 

1215 hO DATA 00,00,00,00,00,00,00,00,03,00 

1216 bE DATA 00,05,00,00,2E,B2,00,00,00,00 

1217 hD DATA FF,FE,FF,FE,00,90,FF,FE,00,90 

1218 WE DATA 00,09,FF,FE,00,09,FF,FE,FF,FE 

1219 IX DATA 00,00,2E,EA,00,00,2F,14,00,00 

1220 cO DATA 00,28,00,00,00,00,00,00,00,00 

1221 hx DATA 00,00,00,00,00,00,00,00,00,00 

1222 Vb DATA 00,00,00,00,00,00,4F,62,6A,65 

1223 Zh DATA 6B,74,65,2E,41,4F,45,00,00,00 

1224 kO DATA 00,00,00,00,00,00,00,00,00,00 

1225 11 DATA 00,00,00,00,00,00,00,00,00,00 

1226 Qu DATA 00,00,00,00,00,00,00,00,4F,62 

1227 Ug DATA 6A,65,6B,74,65,2E,41,4F,45,00 

1228 o4 DATA 00,00,00,00,00,00,00,00,00,00 

1229 p5 DATA 00,00,00,00,00,00,00,00,00,00 

1230 q6 DATA 00,00,00,00,00,00,00,00,00,00 

1231 6q DATA 00,00,2F,9A,00,38,00,57,00,20 

1232 Tq DATA 00,0A,00,00,08,01,00,04,00,00 

1233 Kr DATA 2E,22,00,00,00,00,00,00,00,00 

1234 fv DATA 00,00,00,00,00,00,2F,6A,00,01 

1235 xl DATA 00,00,00,00,00,00,2F,8E,00,00 

1236 Ny DATA 2F,94,00,00,00,04,00,00,00,00 

1237 xD DATA 00,00,00,00,00,00,00,00,00,00 

1238 yE DATA 00,00,00,00,00,00,00,00,00,00 

1239 Fa DATA 30,30,31,00,00,00,30,30,31,00 

1240 hF DATA 00,00,00,00,2F,F6,00,88,00,57 

1241 tl DATA 00,20,00,0A,00,00,08,01,00,04 

1242 kH DATA 00,00,2E,22,00,00,00,00,00,00 

1243 fY DATA 00,00,00,00,00,00,00,00,2F,C6 

1244 5v DATA 00,04,00,00,00,00,00,00,2F,EA 

1245 zH DATA 00,00,2F,F0,00,00,00,04,00,00 

1246 6M DATA 00,00,00,00,00,00,00,00,00,00 

1247 TN DATA 00,00,00,00,00,00,00,00,00,00 

1248 KM DATA 00,00,30,30,31,00,00,00,30,30 

1249 Qm DATA 31,00,00,00,00,00,00,00,00,20 

1250 zk DATA 00,75,00,90,00,OA,00,00,00,01 

1251 21 DATA 00,04,00,00,2E,A2,00,00,00,00 

1252 CS DATA 00,00,00,00,00,00,00,00,00,00 

1253 p7 DATA 30,22,00,05,00,00,00,00,00,00 

1254 Y3 DATA 2E,EA,00,00,2F,l4,00,00,00,28 

1255 FV DATA 00,00,00,00,00,00,00,00,00,00 

1256 GW DATA 00,00,00,00,00,00,00,00,00,00 

1257 Ce DATA 00,00,00,00,00,00,00,00,00,39 

1258 mu DATA 00,0F,00,20,00,0A,00,00,08,01 

1259 g7 DATA 00,04,00,00,2E,22,00,00,00,00 

1260 Ka DATA 00,00,00,00,00,00,00,00,00,00 

1261 EX DATA 30,72,00,01,00,00,00,00,00,00 

1262 U7 DATA 30,96,00,00,30,90,00,00,00,04 

1263 Nd DATA 00,00,00,00,00,00,00,00,00,00 

1264 6W DATA 00,00,00,00,00,00,00,00,00,64 

1265 IR DATA 00,00,00,00,31,30,30,00,00,00 

1266 MH DATA 31,30,30,00,00,00,00,00,30,FE 

1267 Ex DATA 00,38,00,61,00,20,00,0A,00,00 

1268 Uc DATA 08,01,00,04,00,00,2E,22,00,00 

1269 TJ DATA 00,00,00,00,00,00,00,00,00,00 

1270 Cd DATA 00,00,30,CE,00,01,00,00,00,00 

1271 f7 DATA 00,00,30,F2,00,00,30,F8,00,00 

1272 uu DATA 00,04,00,00,00,00,00,00,00,00 

1273 Xn DATA 00,00,00,00,00,00,00,00,00,00 

1274 MT DATA 00,01,00,00,00,00,30,30,31,00 

1275 HS DATA 00,00,30,30,31,00,00,00,00,00 

1276 Kc DATA 00,00,00,88,00,61,00,20,00,OA 

1277 VF DATA 00,00,08,01,00,04,00,00,2E,22 

1278 cs DATA 00,00,00,00,00,00,00,00,00,00 

1279 3k DATA 00,00,00,00,31,2A,00,04,00,00 

1280 2j DATA 00,00,00,00,31,4E,00,00,31,54 

1281 n7 DATA 00,00,00,04,00,00,00,00,00,00 

1282 gw DATA 00,00,00,00,00,00,00,00,00,00 

1283 FO DATA 00,00,00,02,00,00,00,00,30,30 

1284 dz DATA 32,00,00,00,30,30,32,00,00,00 

1285 Bq DATA 00,00,31,86,00,38,00,57,00,20 

1286 Li DATA 00,0A,00,00,08,01,00,04,00,00 

1287 Cj DATA 2E,22,00,00,00,00,00,00,00,00 

1288 yS DATA 00,00,00,00,00,00,31,86,00,01 

1289 3q DATA 00,00,00,00,00,00,31,AA,00,00 

1290 bH DATA 31,80,00,00,00,04,00,00,00,00 

1291 p5 DATA 00,00,00,00,00,00,00,00,00,00 

1292 tA DATA 00,00,00,00,00,01,00,00,00,00 

1293 7S DATA 30,30,31,00,00,00,30,30,31,00 

1294 9z DATA 00,00,00,00,32,12,00,88,00,57 


1295 It DATA 00,20,00,OA,00,00,08,01,00,04 

1296 c9 DATA 00,00,2E,22,00,00,00,00,00,00 

1297 ID DATA 00,00,00,00,00,00,00,00,31,E2 

1298 A6 DATA 00,04,00,00,00,00,00,00,32,06 

1299 6o DATA 00,00,32,00,00,00,00,04,00,00 

1300 yE DATA 00,00,00,00,00,00,00,00,00,00 

1301 7P DATA 00,00,00,00,00,00,00,02,00,00 

1302 HK DATA 00,00,30,30,32,00,00,00,30,30 

1303 Cx DATA 32,00,00,00,00,00,00,00,00,70 

1304 c6 DATA 00,6B,00,20,00,0A,00,00,08,01 

1305 Qr DATA 00,04,00,00,2E,22,00,00,00,00 

1306 4K DATA 00,00,00,00,00,00,00,00,00,00 

1307 gm DATA 32,3E,00,04,00,00,00,00,00,00 

1308 Eu DATA 32,62,00,00,32,68,00,00,00,04 

1309 TN DATA 00,00,00,00,00,00,00,00,00,00 

1310 DU DATA 00,00,00,00,00,00,00,00,00,01 

1311 m7 DATA 00,00,00,00,30,30,31,00,00,00 

1312 bG DATA 30,30,31,00,00,00,00,00,05,55 

1313 5U DATA 09,99,OB,BB,OE,EE,00,00,00,00 

1314 CS DATA 00,00,00,00,00,00,00,00,00,00 

1315 DT DATA 00,00,00,00,00,00,00,00,00,00 

1316 5C DATA 00,07,00,0F,07,7F,07,07,0F,0F 

1317 Ab DATA 0F,7F,03,33,0A,AA,0F,FF,07,00 

1318 9p DATA 0F,00,0F,77,00,70,00,F0,07,F7 

1319 K2 DATA 00,02,00,E8,00,0C,00,F8,00,10 

1320 uV DATA 00,E8,00,1A,00,F8,00,1E,00,E8 

1321 pG DATA 00,28,00,F8,00,2C,00,E8,00,36 

1322 lY DATA 00,F8,00,3A,00,E8,00,44,00,F8 

1323 Nj DATA 00,48,00,E8,00,52,00,F8,00,56 

1324 3r DATA 00,E8,00,60,00,F8,00,64,00,E8 

1325 7r DATA 00,6E,00,F8,00,72.,00,E8,00,7C 

1326 KG DATA 00,F8,00,80,00,E8,00,8A,00,F8 

1327 kl DATA 00,8E,00,E8,00,98,00,F8,00,9C 

1328 kK DATA 00,E8,00,A6,00,F8,00,AA,00,E8 

1329 Ym DATA 00,B4,00,F8,00,B8,00,E8,00,C2 

1330 8N DATA 00,F8,00,C6,00,E8,00,D0,00,F8 

1331 lA DATA 00,D4,00,E8,00,DE,00,F8,01,09 

1332 2L DATA 00,50,01,18,00,5F,01,09,00,2E 

1333 JX DATA 01,18,00,3D,01,1A,00,3F,01,29 

1334 vS DATA 00,4E,00,F8,00,3F,01,07,00,4E 

1335 Xy DATA 01,09,00,3F,01,18,00,4E,01,00 

1336 wd DATA 00,66,01,0F,00,75,01,11,00,66 

1337 Iq DATA 01,20,00,75,01,00,00,77,01,0F 

1338 19 DATA 00,86,01,11,00,77,01,20,00,86 

1339 tS DATA 01,00,00,88,01,0F,00,97,01,11 

1340 KZ DATA 00,88,01,20,00,97,01,00,00,99 

1341 3K DATA 01,0F,00,A8,01,11,00,99,01,20 

1342 dl DATA 00,A8,00,F8,00,BC,00,FF,00,C3 

1343 hJ DATA 01,20,00,BC,01,27,00,03,00,FB 

1344 w2 DATA 00,E2,01,02,00,E9,00,FB,00,F6 

1345 4r DATA 01,02,00,FD,01,0B,00,E2,01,12 

1346 Ef DATA 00,E9,01,0B,00,F6,01,12,00,FD 

1347 5m DATA 01,1B,00,E2,01,22,00,E9,01,1B 

1348 xK DATA 00,F6,01,22,00,FD,01,01,00,BC 

1349 Oq DATA 01,25,00,03,00,00,07,42,00,00 

1350 kS DATA 07,AO,00,00,07,FA,00,00,08,48 

1351 db DATA 00,00,08,96,00,00,OA,28,00,00 

1352 mT DATA 14,6E,00,00,14,A4,00,00,15,38 

1353 tS DATA 00,00,15,84,00,00,16,02,00,00 

1354 xO DATA 19,A0,00,00,1A,F4,00,00,20,46 

1355 v7 DATA 00,00,20,A2,00,00,21,00,00,00 

1356 bG DATA 21,3C,00,00,21,78,00,00,21,B4 

1357 96 DATA 00,00,21,F0,00,00,22,28,00,00 

1358 f7 DATA 22,60,00,00,00,00,00,10,00,10 

1359 PL DATA 00,02,00,00,00,00,03,00,00,00 

1360 Au DATA 34,4A,00,00,FF,DE,00,10,00,10 

1361 ZZ DATA 00,02,00,00,00,40,03,00,00,00 

1362 sM DATA 34,5E,00,11,FF,EF,00,10,00,10 

1363 Jn DATA 00,02,00,00,00,80,03,00,00,00 

1364 Kp DATA 34,72,FF,EF,FF,EF,00,10,00,10 

1365 TM DATA 00,02,00,00,00,00,03,00,00,00 

1366 b9 DATA 34,86,00,00,FF,EF,00,10,00,10 

1367 cZ DATA 00,02,00,00,01,00,03,00,00,00 

1368 BT DATA 00,00,00,00,00,00,00,10,00,10 

1369 hh DATA 00,02,00,00,00,40,03,00,00,00 

1370 IS DATA 34,AE,00,00,FF,DE,00,10,00,10 

1371 bX DATA 00,02,00,00,00,00,03,00,00,00 

1372 07 DATA 34,C2,FF,EF,FF,EF,00,10,00,10 

1373 tx DATA 00,02,00,00,00,80,03,00,00,00 

1374 pW DATA 34,D6,00,11,FF,EF,00,10,00,10 

1375 HW DATA 00,02,00,00,00,00,03,00,00,00 

1376 SV DATA 34,EA,00,00,FF,EF,00,10,00,10 

Listing 1. (Fortsetzung) 
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1377 uv DATA 00,02,00,00,01,40,03,00,00,00 

1378 Ld DATA 00,00,00,00,00,00,00,10,00,10 

1379 49 DATA 00,02,00,00,01,80,03,00,00,00 

1380 TN DATA 35,12,00,11,00,00,00,10,00,10 

1381 Si DATA 00,02,00,00,01,00,03,00,00,00 

1382 Zf DATA 35,26,00,00,00,11,00,10,00,10 

1383 XV DATA 00,02,00,00,02,00,03,00,00,00 

1384 sE DATA.35,3A,00,11,00,11,00,10,00,10 

1385 79 DATA 00,02,00,00,02,40,03,00,00,00 
.1386 KW DATA 35,4E,00,00,00,22,00,10,00,10 

1387 HN DATA 00,02,00,00,02,80,03,00,00,00 

1388 oD DATA 35,62,00,11,00,22,00,10,00,10 

1389 fw DATA 00,02,00,00,02,00,03,00,00,00 

1390 GV DATA 35,76,00,00,00,33,00,10,00,10 

1391 A9 DATA 00,02,00,00,03,00,03,00,00,00 

1392 Z4 DATA 35,8A,00,11,00,33,00,10,00,10 

1393 kn data 00,02,00,00,03,40,03,00,00,00 

1394 eA DATA 00,00,00,00,00,00,00,08,00,08 

1395 Ub DATA 00,02,00,00,03,80,03,00,00,00 

1396 7v DATA 35,82,00,28,00,00,00,08,00,08 

1397 o4 DATA 00,02,00,00,03,A0,03,00,00,00 

1398 iE DATA 00,00,00,00,00,00,00,08,00,08 

1399 uC DATA 00,02,00,00,03,00,03,00,00,00 

1400 ZW DATA 35,DA,00,00,00,14,00,08,00,08 

1401 OK DATA 00,02,00,00,03,£0,03,00,00,00 

1402 wV DATA 35,EE,00,10,00,00,00,08,00,08 

1403 yG DATA 00,02,00,00,03,00,03,00,00,00 

1404 iG DATA 36,02,00,10,00,14,00,08,00,08 

1405 40 DATA 00,02,00,00,03,£0,03,00,00,00 

1406 5F DATA 36,16,00,20,00,00,00,08,00,08 

1407 2K DATA 00,02,00,00,03,00,03,00,00,00 

1408 U2 DATA 36,2A,00,20,00,14,00,08,00,08 

1409 8S DATA 00,02,00,00,03,£0,03,00,00,00 

1410 TO DATA 00,00,00,00,78,FE,TB,FE,TB,FE 

1411 hx DATA 78,FE,78,FE,78,FE,78,FE,78,FE 

1412 EQ DATA 5F,FE,6F,FE,77,FE,7B,FE,7D,FE 

1413 G5 DATA 7E,FE,00,00,00,01,00,21,00,21 

1414 m2 DATA 00,21,00,21,00,21,00,21,00,21 

1415 OX DATA 00,21,00,05,00,09,00,11,00,21 

1416 bt DATA 00,4l,00,81,7F,FF,00,00,7F,7E 

1417 FF DATA 7F,BE,7F,DE,7F,EE,7F,F6,7F,FA 

1418 Si DATA 7F,DE,7F,DE,7F,DE,7F,DE,7F,DE 

1419 AW DATA 7F,DE,7F,DE,7F,DE,00,00,00,01 

1420 bO DATA 01,01,02,01,04,01,08,01,10,01 

1421 Pd DATA 20,01,04,01,04,01,04,01,04,01 

1422 vi DATA 04,01,04,01,04,01,04,01,7F,FF 

1423 5s DATA 00,00,7F,FE,7F,FE,7F,FE,7F,FE 

1424 ku DATA 7F,FE,7F,FE,7F,FE,7F,FC,7F,FA 

1425 uO DATA 00,76,7F,EE,7F,DE,7F,BE,7F,FE 

1426 Yy DATA 00,00,00,01,00,01,00,41,00,21 

1427 Xz DATA 00,11,7F,89,00,05,00,03,00,01 

1428 Mc DATA 00,01,00,01,00,01,00,01,00,01 

1429 Iq DATA 00,01,7F,FF,00,00,7F,FE,7D,FE 

1430 iA DATA 7B,FE,77,FE,6E,00,5F,FE,3F,FE 

1431 JZ DATA 7F,FE,7F,FE,7F,FE,7F,FE,7F,FE 

1432 u3 DATA 7F,FE,7F,FE,00,00,00,01,00,01 

1433 Rh DATA 00,01,00,01,00,01,00,01,00,01 

1434 dl DATA 00,01,40,01,20,01,11,FF,08,01 

1435 pY DATA 04,01,02,01,00,01,7F,FF,00,00 

1436 MX DATA 7F,BE,7F,BE,7F,DE,7F,BE,6F,7E 

1437 IL DATA 17,FE,FB,FE,7F,DE,7F,E8,7E,F6 

1438 Ds DATA TD,FE,TB,FE,TD,FE,TD,FE,00,00 

1439 HN DATA 00,01,02,01,02,01,04,01,02,01 

1440 xG DATA 01,09,00,17,00,21,04,01,68,01 

1441 9S DATA 10,81,00,41,00,21,00,41,00,41 

1442 Dg DATA 7F,FF,00,00,7F,7E,7F,BE,7F,DE 

1443 bb DATA 7F,BE,6F,BE,53,FE,3F,FE,7F,FC 

1444 f3 DATA 7F,CA,7D,F6,7D,FE,7B,FE,7D,FE 

1445 iR DATA 7E,FE,00,00,00,01,01,01,02,01 

1446 5k DATA 04,01,02,01,02,09,00,35,00,03 

1447 dT DATA 40,01,20,01,10,41,00,41,00,21 

1448 5c DATA 00,4l,00,81,7F,FF,00,00,7F,FE 

1449 hD DATA 47,CE,5F,F6,5F,FA,5F,FA,5F,FA 

1450 gw DATA 5F,FA,5F,FA,5F,FA,5F,FA,5F,FA 

1451 LZ DATA 5F,FA,40,02,7F,FE,00,00,00,01 

1452 JJ DATA 00,01,07,Fl,07,49,07,45,07,05 

1453 3J data 00,05,00,05,00,05,00,05,00,05 

1454 Gx DATA 00,05,00,05,1F,FD,00,01,7F,FF 

1455 Wb DATA 00,00,7F,FE,03,86,3F,BE,3B,B6 

1456 7q DATA 3B,B6,3B,B6,3B,B6,3B,BE,3B,AE 

1457 Qo DATA 3B,AE,22,36,7F,F6,7F,FE,7F,FE 

1458 YG DATA 00,00,00,01,00,01,00,01,3£,39 

1459 To DATA 22,25,22,25,22,25,22,25,22,39 

1460 qw DATA 22,29,22,29,22,25,3F,E5,00,01 


1461 kN DATA 00,01,7F,FF,00,00,7E,FE,7E,FE 

1462 GJ DATA 7E,FE,76,EE,68,96,5E,FA,3E,FG 

1463 VI DATA 7E,FE,7E,FE,7E,FE,7E,FE,7E,FE 

1464 JQ DATA 7E,FE,7E,FE,00,00,00,01,00,01 

1465 Xn DATA 00,81,00,81,00,81,00,81,00,81 

1466 Gp DATA 00,81,40,83,20,85,16,E9,08,91 

1467 h4 DATA 00,81,00,81,00,81,7F,FF,00,00 

1468 ps DATA 7E,FE,TD,FE,TB,FE,77,FE,TB,FE 

1469 ik DATA 7B,FE,00,02,7F,FE,7B,FE,7B,FE 

1470 Ga DATA 77,FE,7B,FE,7D,FE,7E,FE,00,00 

1471 7y DATA 00,01,00,81,00,41,00,21,00,11 

1472 Lr DATA 00,21,00,21,00,01,3F,FF,00,21 

1473 7Z DATA 00,21,00,11,00,21,00,41,00,81 

1474 zp DATA 7F,FF,00,00,7F,FE,77,FE,6F,FE 

1475 fu DATA 5F,FE,6F,FE,6F,FE,6F,FE,6F,FE 

1476 31 data 6F,FE,6F,FE,6F,FE,6F,FE,60,02 

1477 F5 DATA 7F,FE,00,00,00,01,00,01,04,01 

1478 kz DATA 02,01,01,01,02,01,02,01,02,01 

1479 rl DATA 02,01,02,01,03,FD,00,05,00,05 

1480 VU DATA 00,01,00,01,7F,FF,00,00,7F,FE 

1481 Ox DATA 40,0E,5F,EE,5F,FE,5F,EE,5F,EE 

1482 Gl DATA 5F,EE,5F,EE,5F,EE,5F,EE,48,0E 

1483 CU DATA 7F,FE,7F,FE,7F,FE,00,00,00,01 

1484 Gx DATA 00,01,00,01,00,01,OF,FD,08,05 

1485 9P DATA 08,05,08,05,08,05,08,05,08,05 

1486 cY DATA 08,05,08,05,OF,FD,00,01,7F,FF 

1487 UO DATA 00,00,7F,FE,7G,FE,79,FE,7B,FE 

1488 40 DATA 7F,FE,78,3E,7D,FE,7D,FE,7D,FE 

1489 G5 DATA 7D,FE,7D,FE,71,DE,7F,FE,7F,FE 

1490 WA DATA 00,00,00,01,00,01,00,01,01,01 

1491 aS DATA 03,El,01,01,00,01,03,01,01,01 

1492 Ed DATA 01,01,01,01,01,01,01,01,07,F1 

1493 gl DATA 00,01,7F,FF,00,00,7F,FE,63,FE 

1494 FH DATA 5D,FE,5D,FE,5D,FE,63,FE,77,FE 

1495 aS DATA 78,3£,77,FE,47,FE,47,FE,77,FE 

1496 Fu DATA 77,FE,77,FE,00,00,00,01,00,01 

1497 Bg DATA 00,01,00,31,00,49,00,49,00,31 

1498 iO DATA 00,21,00,11,00,09,00,05,00,05 

1499 TU DATA 00,05,07,FD,00,01,7F,FF,00,00 

1500 cS DATA 6E,00,52,00,3£,00,7E,00,7E,00 

1501 fL DATA 7E,00,00,00,01,00,01,00,01,00 

1502 qP DATA 01,00,4l,00,2D,00,ll,00,7F,00 

1503 yk DATA 00,00,7E,00,7E,00,7E,00,7G,00 

1504 KD DATA 4A,00,76,00,00,00,01,00,09,00 

1505 IQ DATA 35,00,03,00,01,00,01,00,01,00 
-1506 Ip DATA 7F,00,00,00,76,00,7A,00,7G,00 

1507 yT DATA 7A,00,7A,00,7E,00,00,00,01,00 

1508 Of DATA 11,00,21,00,41,00,21,00,21,00 

1509 uQ DATA 01,00,7F,00,00,00,7E,00,5E,00 

1510 Zn DATA 5E,00,3£,00,5E,00,6E,00,00,00 

1511 TZ DATA 01,00,01,00,05,00,05,00,03,00 

1512 RO DATA 05,00,09,00,7F,00,00,00,00,00 

1513 Pf DATA 00,00,00,00,00,00,00,00,00,00 

1514 Qg DATA 00,00,00,00,00,00,00,00,00,00 

1515 Rh DATA 00,00,00,00,00,00,00,00,00,00 

1516 Si DATA 00,00,00,00,00,00,00,00,00,00 

1517 Yp DATA 00,00,00,00,00,00,00,00,00,01 

1518 Wn DATA 00,00,00,01,00,00,00,00,00,00 

1519 VI DATA 00,00,00,00,00,00,00,00,00,00 

1520 Wm DATA 00,00,00,00,00,00,00,00,00,00 

1521 h2 DATA 00,00,00,05,00,00,00,00,00,00 

1522 Yo DATA 00,00,00,00,00,00,00,00,00,00 

1523 Zp DATA 00,00,00,00,00,00,00,00,00,00 

1524 aq DATA 00,00,00,00,00,00,00,00,00,00 

1525 br DATA 00,00,00,00,00,00,00,00,00,00 

1526 cs DATA 00,00,00,00,00,00,00,00,00,00 

1527 dt DATA 00,00,00,00,00,00,00,00,00,00 

1528 eu DATA 00,00,00,00,00,00,00,00,00,00 

1529 fv DATA 00,00,00,00,00,00,00,00,00,00 

1530 gw DATA 00,00,00,00,00,00,00,00,00,00 

1531 hx DATA 00,00,00,00,00,00,00,00,00,00 

1532 2M DATA 00,00,00,00,00,00,00,00,00,04 

1533 3Q data 00,20,00,05,00,00,00,00,00,00 

1534 kO DATA 00,00,00,00,00,00,00,00,00,00 

1535 11 DATA 00,00,00,00,00,00,00,00,00,00 

1536 OK DATA 00,00,00,00,00,00,00,00,67,72 

1537 P9 DATA 6l,70,68,69,63,73,2E,6G,69,62 

1538 TM DATA 72,6l,72,79,00,64,6F,73,2E,6G 

1539 OP DATA 69,62,72,61,72,79,00,69,6E,74 

1540 dO DATA 75,69,74,69,6F,6E,2E,6G,69,62 

1541 29 DATA 72,61,72,79,00,4F,62,6A,65,6B 

1542 FM DATA 74,20,4E,72,2E,52,20,47,20,42 

1543 Fs DATA 30,20,30,20,30,20,30,30,31,40 

1544 Ei DATA 61,64,65,6E,53,70,65,69,63,68 


1545 VG DATA 65,72,6E,4G,61,64,65,6E,20,6E 

1546 x8 DATA 61,63,68,20,4F,62,6A,65,6B,74 

1547 AR DATA 44,61,74,65,69,6E,61,6D,65,46 

1548 ZS DATA 65,72,74,69,67,53,70,65,69,63 

1549 00 DATA 68,65,72,6E,20,76,6F,6E,20,4F 

1550 QV DATA 62,6A,65,6B,74,6E,61,63,68,41 

1551 YH DATA 4D,49,47,41,20,4F,42,4A,45,43 

1552 oM DATA 54,45,44,49,54,4F,52,20,56,31 

1553 aN DATA 2E,32,77,72,69,74,74,65,6E,20 

1554 32 DATA 31,39,38,38,20,62,79,4D,49,43 

1555 Fk DATA 48,41,45,40,20,42,45,52,54,53 

1556 K3 DATA 43,48,A9,20,4D,61,72,6B,74,20 

1557 KG DATA 26,20,54,65,63,68,6E,69,6B,5A 

1558 N6 DATA 65,69,67,65,20,4F,62,6A,65,6B 

1559 iU DATA 74,20,4E,72,2E,41,62,62,72,75 

1560 lr DATA 63,68,4l,6E,69,6D,6l,74,69,6F 

1561 Vi DATA 6E,20,76,6F,6E,20,4F,62,6A,65 

1562 dJ DATA 6B,74,47,65,73,63,68,77,69,6E 

1563 GZ DATA 64,69,67,6B,65,69,74,30,30,35 

1564 bb DATA 4D,61,78,2E,20,4F,62,6A,65,6B 

1565 bO DATA 74,7A,61,68,6G,4B,6F,70,69,65 

1566 qz DATA 72,65,6E,20,76,6F,6E,20,4F,62 

1567 Oa DATA 6A,65,6B,74,4l,6E,7A,6l,68,6G 

1568 31 DATA 00,00,03,£0,00,00,03,56,00,00 

1569 wX DATA 00,00,00,00,00,02,00,00,00,00 

1570 51 DATA 00,00,00,18,00,00,00,lE,00,00 

1571 yZ DATA 00,2A,00,00,00,30,00,00,00,30 

1572 Nc DATA 00,00,00,48,00,00,00,52,00,00 

1573 Ol DATA 00,50,00,00,00,68,00,00,00,72 

1574 GT DATA 00,00,00,70,00,00,00,82,00,00 

1575 Kw DATA 00,88,00,00,00,8E,00,00,00,98 

1576 7t DATA 00,00,00,A4,00,00,00,AA,00,00 

1577 Ga DATA 00,B2,00,00,00,BA,00,00,00,06 

1578 Oh DATA 00,00,00,00,00,00,00,D2,00,00 

1579 PI DATA 00,D8,00,00,00,E6,00,00,00,F2 

1580 62 DATA 00,00,00,£8,00,00,01,02,00,00 

1581 V3 DATA 01,36,00,00,01,3£,00,00,01,48 

1582 pG DATA 00,00,01,56,00,00,01,50,00,00 

1583 EJ DATA 01,66,00,00,01,6A,00,00,01,70 

1584 14 DATA 00,00,01,7E,00,00,01,94,00,00 

1585 iP DATA 01,A2,00,00,01,AE,00,00,01,BE 

1586 Ew DATA 00,00,01,D8,00,00,01,FG,00,00 

1587 IL DATA 02,OA,00,00,02,28,00,00,02,46 

1588 4N DATA 00,00,02,54,00,00,02,60,00,00 

1589 JO DATA 02,86,00,00,02,94,00,00,02,86 

1590 GY DATA 00,00,02,DO,00,00,02,D6,00,00 

1591 Gc DATA 02,E4,00,00,02,FE,00,00,03,OA 

1592 Ko DATA 00,00,03,10,00,00,03,44,00,00 

1593 IQ DATA 03,5E,00,00,03,64,00,00,03,6A 

1594 OD DATA 00,00,03,70,00,00,03,82,00,00 

1595 qY DATA 03,88,00,00,03,9A,00,00,03,AO 

1596 Qp DATA 00,00,03,82,00,00,03,88,00,00 

1597 V7 DATA 03,GA,00,00,03,DG,00,00,03,£2 

1598 g4 DATA 00,00,03,£4,00,00,03,FA,00,00 

1599 qP DATA 04,00,00,00,04,12,00,00,04,lA 

1600 BG DATA 00,00,04,20,00,00,04,36,00,00 

1601 4w DATA 04,42,00,00,04,50,00,00,04,60 

1602 GU DATA 00,00,04,7A,00,00,04,8A,00,00 

1603 Vo DATA 04,90,00,00,04,9A,00,00,04,80 

1604 5w DATA 00,00,04,BE,00,00,04,00,00,00 

1605 mM DATA 04,DE,00,00,05,04,00,00,05,22 

1606 Qk DATA 00,00,05,26,00,00,05,20,00,00 

1607 pl DATA 05,32,00,00,05,3£,00,00,05,62 

1608 87 DATA 00,00,05,68,00,00,05,74,00,00 

1609 y5 DATA 05,06,00,00,05,D2,00,00,05,EO 

1610 mR DATA 00,00,05,EE,00,00,05,FG,00,00 

1611 5J DATA 06,02,00,00,06,14,00,00,06,18 

1612 7i DATA 00,00,06,lE,00,00,06,30,00,00 

1613 r5 DATA 06,7A,00,00,06,84,00,00,06,8E 

1614 RR DATA 00,00,06,90,00,00,06,A2,00,00 

1615 Ov DATA 06,B0,00,00,06,BE,00,00,06,D8 

1616 A3 DATA 00,00,06,FE,00,00,07,22,00,00 

1617 hR DATA 07,36,00,00,07,3A,00,00,07,46 

1618 30 DATA 00,00,07,50,00,00,07,5A,00,00 

1619 kx DATA 07,64,00,00,07,6E,00,00,07,A4 

1620 yY DATA 00,00,07,AE,00,00,07,88,00,00 

1621 ej DATA 07,02,00,00,07,00,00,00,07,FE 

1622 tw DATA 00,00,08,08,00,00,08,12,00,00 

1623 XT DATA 08,10,00,00,08,26,00,00,08,40 

1624 SG DATA 00,00,08,56,00,00,08,60,00,00 

1625 OF DATA 08,6A,00,00,08,74,00,00,08,9A 

1626 Db DATA 00,00,08,A4,00,00,08,AA,00,00 

1627 RA DATA 08,80,00,00,08,08,00,00,08,D2 

1628 Vp DATA 00,00,08,DG,00,00,08,E6,00,00 
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1629 X2 DATA 08,F0,00,00,09,24,00,00,09,2E 

1630 cT DATA 00,00,09,38,00,00,09,42,00,00 

1631 TN DATA 09,74,00,00,09,7E,00,00,09,88 

1632 yd DATA 00,00,09,92,00,00,09,86,00,00 

1633 NL DATA 09,00,00,00,09,CA,00,00,09,D4 

1634 Sg DATA 00,00,09,FC,00,00,OA,02,00,00 

1635 SM DATA 0A,08,00,00,0A,20,00,00,0A,2A 

1636 fE DATA 00,00,0A,30,00,00,0A,3A,00,00 

1637 5z DATA 0A,48,00,00,0A,56,00,00,0A,60 

1638 Ky DATA 00,00,0A,6E,00,00,0A,88,00,00 

1639 Ty DATA 0A,8C,00,00,0A,92,00,00,0A,A4 

1640 Uh DATA 00,00,0A,AA,00,00,0A,BC,00,00 

1641 p9 DATA 0A,C2,00,00,0A,D4,00,00,0A,EE 

1642 sS DATA 00,00,08,08,00,00,08,22,00,00 

1643 lo DATA 08,3C,00,00,08,AA,00,00,08,80 

1644 Ix DATA 00,00,08,8E,00,00,08,04,00,00 

1645 PR DATA 08,CE,00,00,08,EO,00,00,08,EA 

1646 OR DATA 00,00,00,00,00,00,00,06,00,00 

1647 k8 DATA 0C,0A,00,00,00,10,00,00,0C,1A 

1648 lu DATA 00,00,00,24,00,00,00,20,00,00 

1649 Mj DATA 00,3A,00,00,00,44,00,00,00,52 

1650 e8 DATA 00,00,00,60,00,00,00,86,00,00 

1651 5U DATA 0C,A0,00,00,0C,BA,00,00,0C,D4 

1652 2Q DATA 00,00,0C,EE,00,00,0D,08,00,00 

1653 21 DATA 0D,lA,0O,00,OD,20,00,00,0D,32 

1654 kJ DATA 00,00,0D,38,00,00,0D,4A,00,00 

1655 U5 DATA 0D,64,00,00,0D,6A,00,00,0D,82 

1656 IO DATA 00,00,0D,AC,00,00,0D,BC,00,00 

1657 YJ DATA 0D,CA,00,00,0D,D0,00,00,0D,D6 

1658 Fr DATA 00,00,0D,E4,00,00,0D,EA,00,00 

1659 7E DATA 0D,F0,00,00,0D,F6,00,00,0E,04 

1660 Ps DATA 00,00,0E,10,00,00,0E,1A,00,00 

1661 e2 DATA 0E,48,00,00,0E,62,00,00,0E,6E 

1662 rat DATA 00,00,0E,78,00,00,OE,84,00,00 

1663 ib DATA OE,94,00,00,OE,A4,00,00,OE,86 

1664 Ds DATA 00,00,0E,C4,00,00,OE,CA,00,00 

1665 Tt DATA OE,DO,00,00,OE,D6,00,00,OE,E4 

1666 uQ DATA 00,00,OE,EA,00,00,OE,FO,00,00 

1667 Jv DATA OE,F6,O0,0O,0F,04,00,00,0F,0A 

1668 pJ DATA 00,00,0F,l4,00,00,0F,1A,00,00 

1669 On DATA 0F,28,00,00,0F,2E,00,00,0F,48 

1670 ri DATA 00,00,OF,60,00,00,10,00,00,00 

1671 Pv DATA 10,3E,00,00,10,4E,00,00,10,84 

1672 TN DATA 00,00,10,8A,00,00,10,94,00,00 

1673 QE DATA 10,A6,00,00,10,80,00,00,10,06 

1674 YF DATA 00,00,10,00,00,00,10,D0,00,00 

1675 ov DATA 10,D6,00,00,10,E0,00,00,10,EA 

1676 SI DATA 00,00,10,F2,00,00,11,00,00,00 

1677 pE DATA 11,OA,00,00,11,18,00,00,11,32 

1678 2W DATA 00,00,11,40,00,00,11,66,00,00 

1679 gr DATA 11,80,00,00,11,9A,00,00,11,B4 

1680 RG DATA 00,00,11,CE,00,00,11,E8,00,00 

1681 Eq DATA 11,FA,00,00,12,00,00,00,12,12 

1682 8h DATA 00,00,12,18,00,00,12,2A,00,00 

1683 zq DATA 12,30,00,00,12,42,00,00,12,50 

1684 hv DATA 00,00,12,62,00,00,12,7A,00,00 

1685 ce DATA 12,A4,00,00,12,84,00,00,12,02 

1686 11 DATA 00,00,12,08,00,00,12,CE,00,00 

1687 xD DATA 12,DO,00,00,12,E2,00,00,12,E8 

1688 Ub DATA 00,00,12,EE,00,00,13,00,00,00 

1689 zH DATA 13,OE,00,00,13,18,00,00,13,26 

1690 xM DATA 00,00,13,20,00,00,13,32,00,00 

1691 81 DATA 13,3E,00,00,13,44,00,00,13,4A 

1692 ju DATA 00,00,13,50,00,00,13,5A,00,00 

1693 Eq DATA 13,66,00,00,13,70,00,00,13,9A 

1694 Sn DATA 00,00,13,AO,00,00,13,80,00,00 

1695 Wp DATA 13,CA,00,00,13,DO,00,00,13,E4 

1696 IP DATA 00,00,13,EA,00,00,13,FA,00,00 

1697 3g data 14,00,00,00,14,06,00,00,14,16 

1698 gl DATA 00,00,14,24,00,00,14,2A,00,00 

1699 Ho DATA 14,38,00,00,14,3E,00,00,14,48 

1700 jl DATA 00,00,14,4E,00,00,14,50,00,00 

1701 7p DATA 14,62,00,00,14,70,00,00,14,76 

1702 rz DATA 00,00,14,86,00,00,14,90,00,00 

1703 NX DATA 14,A6,00,00,14,80,00,00,14,BA 

1704 ZI DATA 00,00,14,04,00,00,15,3A,00,00 

1705 KD DATA 15,44,00,00,15,4E,00,00,15,58 

1706 rd DATA 00,00,15,86,00,00,15,90,00,00 

1707 Ow DATA 15,9A,00,00,15,A4,00,00,16,04 

1708 26 DATA 00,00,16,16,00,00,16,20,00,00 

1709 pQ DATA 16,36,00,00,16,30,00,00,16,40 

1710 VQ DATA 00,00,16,46,00,00,16,50,00,00 

1711 YI DATA 16,5A,00,00,16,62,00,00,16,70 

1712 qv DATA 00,00,16,7A,00,00,16,88,00,00 


1713 dJ DATA 16,A2,00,00,16,80,00,00,16,D6 

1714 4r DATA 00,00,16,F0,00,00,17,0A,00,00 

1715 cY DATA 17,24,00,00,17,38,00,00,17,58 

1716 PM DATA 00,00,17,6A,00,00,17,70,00,00 

1717 Sh DATA 17,82,00,00,17,88,00,00,17,9A 

1718 cn DATA 00,00,17,AO,00,00,17,82,00,00 

1719 tV DATA 17,CC,00,00,17,D2,00,00,17,EA 

1720 UQ DATA 00,00,18,14,00,00,18,20,00,00 

1721 qX DATA 18,26,00,00,18,34,00,00,18,3A 

1722 Ay DATA 00,00,18,40,00,00,18,46,00,00 

1723 08 DATA 18,54,00,00,18,62,00,pO,18,68 

1724 fd DATA 00,00,18,76,00,00,18,70,00,00 

1725 wO DATA 18,86,00,00,18,80,00,00,18,98 

1726 JY DATA 00,00,18,A2,00,00,18,A8,00,00 

1727 uZ DATA 18,84,00,00,18,04,00,00,18,CE 

1728 Hu DATA 00,00,18,DE,00,00,18,EE,00,00 

1729 qh DATA 18,F6,00,00,19,06,00,00,19,18 

1730 kO DATA 00,00,19,lE,00,00,19,26,00,00 

1731 CF DATA 19,36,00,00,19,30,00,00,19,40 

1732 TQ DATA 00,00,19,54,00,00,19,5A,00,00 

1733 Oi DATA 19,6A,00,00,19,84,00,00,19,8E 

1734 V9 DATA 00,00,19,94,00,00,19,A2,00,00 

1735 8J DATA 19,A8,00,00,19,88,00,00,19,02 

1736 ak DATA 00,00,19,DO,00,00,19,DA,00,00 

1737 Hc DATA 19,E8,00,00,19,FE,00,00,1A,02 

1738 JO DATA 00,00,1A,08,00,00,1A,1A,00,00 

1739 8W DATA 1A,20,00,00,U,32,00,00,1A,38 

1740 7g DATA 00,00,1A,4A,00,00,1A,50,00,00 

1741 6J DATA 1A,62,00,00,1A,68,00,00,1A,7A 

1742 JR DATA 00,00,lA,80,00,00,lA,92,00,00 

1743 HL DATA 1A,AC,00,00,U,8C,00,00,1A,E2 

1744 kR DATA 00,00,1A,E8,00,00,1A,F6,00,00 

1745 Ib DATA lA,FC,00,00,18,00,00,00,18,06 

1746 R5 DATA 00,00,18,10,00,00,18,lA,00,00 

1747 If DATA 18,22,00,00,18,30,00,00,18,3A 

1748 Dt data 00,00,18,48,00,00,18,5A,00,00 

1749 8f DATA 18,64,00,00,18,7A,00,00,18,94 

1750 17 DATA 00,00,18,AE,00,00,18,08,00,00 

1751 au DATA 18,E2,00,00,18,FC,00,00,10,OE 

1752 Af DATA 00,00,10,14,00,00,10,26,00,00 

1753 cA DATA 10,20,00,00,10,3E,00,00,10,58 

1754 4e DATA 00,00,10,68,00,00,10,8E,00,00 

1755 U7 DATA 10,94,00,00,10,A2,00,00,10,80 

1756 .YS DATA 00,00,10,86,00,00,10,80,00,00 

1757 ln DATA 10,06,00,00,10,CA,00,00,10,D4 

1758 8h DATA 00,00,1C,E2,00,00,1C,E8,00,00 

1759 Pg DATA 1C,EE,00,00,1C,F8,00,00,1C,FC 

1760 Ko DATA 00,00,1D,02,00,00,1D,08,00,00 

1761 HY DATA 1D,14,00,00,1D,1A,00,00,1D,20 

1762 Ir DATA 00,00,1D,24,00,00,1D,2A,00,00 

1763 zQ DATA 1D,34,00,00,1D,3A,00,00,1D,44 

1764 V5 DATA 00,00,1D,4E,00,00,1D,56,00,00 

1765 AO DATA 1D,60,00,00,1D,6A,00,00,1D,74 

1766 yN DATA 00,00,1D,7A,00,00,1D,88,00,00 

1767 S5 DATA 1D,96,00,00,ID,80,00,00,ID,86 

1768 Vc DATA 00,00,ID,80,00,00,ID,CE,00,00 

1769 o9 DATA 1D,D4,00,00,1D,E6,00,00,1D,EC 

1770 4J DATA 00,00,1D,FE,00,00,1E,04,00,00 

1771 Ti DATA 1E,16,00,00,1E,30,00,00,1E,3A 

1772 5J DATA 00,00,lE,44,00,00,lE,72,00,00 

1773 8E DATA 1E,8C,00,00,1E,A6,00,00,1E,AC 

1774 zV DATA 00,00,1E,86,00,00,1E,C0,00,00 

1775 Di DATA 1E,CA,00,00,1E,D4,00,00,1E,DE 

1776 Kd DATA 00,00,1E,E2,00,00,1E,F0,00,00 

1777 T4 DATA 1E,F6,00,00,1F,00,00,00,1F,1E 

1778 sL DATA 00,00,1F,24,00,00,1F,2A,00,00 

1779 kM DATA 1F,56,00,00,1F,66,00,00,1F,E6 

1780 sN DATA 00,00,1F,F2,00,00,1F,FC,00,00 

1781 AH DATA 20,06,00,00,20,10,00,00,20,lA 

1782 gO DATA 00,00,20,20,00,00,20,26,00,00 

1783 ZJ DATA 20,30,00,00,20,34,00,00,20,3E 

1784 Ht DATA 00,00,20,48,00,00,20,5E,00,00 

1785 k5 DATA 20,68,00,00,20,72,00,00,20,70 

1786 ra9 DATA 00,00,20,86,00,00,20,8E,00,00 

1787 rh DATA 20,94,00,00,20,9A,00,00,20,A4 

1788 OU DATA 00,00,20,AA,00,00,20,80,00,00 

1789 fh DATA 20,06,00,00,20,DO,00,00,20,DA 

1790 XD DATA 00,00,20,E4,00,00,20,EC,00,00 

1791 hg DATA 20,F2,00,00,20,F8,00,00,21,04 

1792 sS DATA 00,00,21,10,00,00,21,2E,00,00 

1793 lU DATA 21,34,00,00,21,40,00,00,21,40 

1794 p6 DATA 00,00,21,6A,00,00,21,70,00,00 

1795 8t DATA 21,70,00,00,21,88,00,00,21,A6 

1796 2w DATA 00,00,21,AO,00,00,21,88,00,00 


1797 EM DATA 21,04,00,00,21,E2,00,00,21,E8 

1798 md DATA 00,00,21,F4,00,00,22,00,00,00 

1799 81 DATA 22,lA,00,00,22,20,00,00,22,20 

1800 Xo DATA 00,00,22,38,00,00,22,52,00,00 

1801 GT DATA 22,58,00,00,22,62,00,00,22,68 

1802 xB DATA 00,00,22,72,00,00,22,70,00,00 

1803 K7 DATA 22,84,00,00,22,92,00,00,22,90 

1804 vS DATA 00,00,22,B2,00,00,22,08,00,00 

1805 yv DATA 22,D6,00,00,22,FA,00,00,23,l4 

1806 Gra DATA 00,00,23,20,00,00,23,46,00,00 

1807 4p DATA 23,40,00,00,23,5E,00,00,23,64 

1808 DB DATA 00,00,23,76,00,00,23,90,00,00 

1809 rl DATA 23,96,00,00,23,AE,00,00,23,D8 

1810 Di DATA 00,00,23,E4,00,00,23,EA,00,00 

1811 ZB DATA 23,F8,00,00,24,06,00,00,24,00 

1812 Zz DATA 00,00,24,12,00,00,24,10,00,00 

1813 SL DATA 24,20,00,00,24,26,00,00,24,20 

1814 OJ DATA 00,00,24,30,00,00,24,42,00,00 

1815 WA DATA 24,4E,00,00,24,5A,00,00,24,66 

1816 nk DATA 00,00,24,72,00,00,24,78,00,00 

1817 8e DATA 24,7E,00,00,24,84,00,00,24,92 

1818 Zc DATA 00,00,24,98,00,00,24,A6,00,00 

1819 q8 DATA 24,B4,00,00,24,BA,00,00,24,00 

1820 Ga DATA 00,00,24,06,00,00,24,DO,00,00 

1821 rC DATA 24,DA,00,00,24,E2,00,00,24,FO 

1822 73 DATA 00,00,24,FA,00,00,25,10,00,00 

1823 bO DATA 25,26,00,00,25,34,00,00,25,58 

1824 im DATA 00,00,25,72,00,00,25,8A,00,00 

1825 S3 DATA 25,A4,00,00,25,AA,00,00,25,80 

1826 ev DATA 00,00,25,02,00,00,25,D4,00,00 

1827 rl DATA 25,EE,00,00,25,F4,00,00,26,00 

1828 WY DATA 00,00,26,36,00,00,26,42,00,00 

1829 TU DATA 26,48,00,00,26,56,00,00,26,64 

1830 Ws DATA 00,00,26,6A,00,00,26,6E,00,00 

1831 PG DATA 26,74,00,00,26,7A,00,00,26,80 

1832 XI DATA 00,00,26,92,00,00,26,AO,00,00 

1833 OY DATA 26,A6,00,00,26,06,00,00,26,D4 

1834 nY DATA 00,00,26,DE,00,00,26,EE,00,00 

1835 lg DATA 26,F4,00,00,27,00,00,00,27,00 

1836 ir DATA 00,00,27,18,00,00,27,24,00,00 

1837 la DATA 27,20,00,00,27,32,00,00,27,36 

1838 GS DATA 00,00,27,30,00,00,27,42,00,00 

1839 WO DATA 27,40,00,00,27,50,00,00,27,5E 

1840 tF DATA 00,00,27,6E,00,00,27,70,00,00 

1841 Vy DATA 27,90,00,00,27,A8,00,00,27,AE 

1842 Kd DATA 00,00,27,84,00,00,27,D6,00,00 

1843 oC DATA 27,DO,00,00,27,EC,00,00,28,06 

1844 hx DATA 00,00,28,2A,00,00,28,38,00,00 

1845 4K data 28,56,00,00,28,80,00,00,28,AA 

1846 8Z DATA 00,00,28,00,00,00,28,D6,00,00 

1847 PM DATA 28,E0,00,00,28,EA,00,00,28,F4 

1848 pf DATA 00,00,29,50,00,00,29,AO,00,00 

1849 8y DATA 29,82,00,00,29,88,00,00,29,8E 

1850 rah DATA 00,00,29,EO,00,00,29,F2,00,00 

1851 wN DATA 29,F8,00,00,29,FE,00,00,2A,18 

1852 c3 DATA 00,00,2A,30,00,00,2A,44,00,00 

1853 13 DATA 2A,4C,00,00,2A,66,00,00,2A,78 

1854 iE DATA 00,00,2A,70,00,00,2A,82,00,00 

1855 Rw DATA 2A,98,00,00,2A,9E,00,00,2A,A6 

1856 KO DATA 00,00,2A,AC,00,00,2A,B4,00,00 

1857 Ik DATA 2A,BA,00,00,2A,C2,00,00,2A,C8 

1858 OA DATA 00,00,2A,F4,00,00,2A,FA,00,00 

1859 De DATA 28,22,00,00,28,48,00,00,28,96 

1860 b5 DATA 00,00,28,90,00,00,28,A2,00,00 

1861 VI DATA 28,A8,00,00,28,AE,00,00,28,84 

1862 Gu DATA 00,00,28,04,00,00,28,D2,00,00 

1863 9G DATA 28,DA,00,00,28,E6,00,00,28,F2 

1864 Eo DATA 00,00,28,FE,00,00,20,OA,00,00 

1865 40 DATA 20,12,00,00,20,18,00,00,20,38 

1866 ml DATA 00,00,20,64,00,00,20,6E,00,00 

1867 K3 DATA 20,82,00,00,20,80,00,00,20,92 

1868 ar DATA 00,00,20,98,00,00,20,82,00,00 

1869 gx DATA 20,8A,00,00,20,00,00,00,20,D2 

1870 pn DATA 00,00,20,F2,00,00,2D,10,00,00 

1871 pC DATA 2D,14,00,00,2D,1C,00,00,2D,26 

1872 ur DATA 00,00,2D,2A,00,00,2D,D8,00,00 

1873 Op DATA 2D,F6,00,00,2E,08,00,00,2E,18 

1874 Co DATA 00,00,2E,2A,00,00,2E,46,00,00 

1875 rZ DATA 2E,4A,00,00,2E,88,00,00,2E,98 

1876 PI DATA 00,00,2E,AA,00,00,2E,C6,00,00 

1877 mh DATA 2E,CA,00,00,2F,3E,00,00,2F,50 

1878 4J DATA 00,00,2F,60,00,00,2F,6A,00,00 
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1879 W DATA 2F,6E,00,00,2F,9A,00,00,2F,AC 

1880 nb DATA 00,00,2F,BC,00,00,2F,06,00,00 

1881 ED DATA 2F,CA,00,00,30,08,00,00,30,18 

1882 Us DATA 00,00,30,22,00,00,30,26,00,00 

1883 KQ DATA 30,58,00,00,30,68,00,00,30,72 

1884 bu DATA 00,00,30,76,00,00,30,A2,00,00 

1885 Y1 DATA 30,84,00,00,30,04,00,00,30,CE 

1886 xO DATA 00,00,30,D2,00,00,31,10,00,00 

1887 3y data 31,20,00,00,31,2A,00,00,31,2E 

1888 YD DATA 00,00,31,5A,00,00,31,60,00,00 

1889 3m DATA 31,70,00,00,31,86,00,00,31,8A 

1890 P5 DATA 00,00,31,86,00,00,31,08,00,00 

1891 F4 DATA 31,D8,00,00,31,E2,00,00,31,E6 

1892 xG DATA 00,00,32,24,00,00,32,34,00,00 

1893 xg DATA 32,3E,00,00,32,42,00,00,33,DE 

1894 vF DATA 00,00,33,E2,00,00,33,E6,00,00 

1895 Fr DATA 33,EA,00,00,33,EE,00,00,33,F2 


1896 wS DATA 00,00,33,F6,00,00,33,FA,00,00 

1897 Ad DATA 33,FE,00,00,34,02,00,00,34,06 

1898 YK DATA 00,00,34,0A,00,00,34,0E,00,00 

1899 tX DATA 34,12,00,00,34,16,00,00,34,lA 

1900 gB DATA 00,00,34,lE,00,00,34,22,00,00 

1901 LI DATA 34,26,00,00,34,2A,00,00,34,2E 

1902 eo DATA 00,00,34,32,00,00,34,46,00,00 

1903 rn DATA 34,5A,00,00,34,6E,00,00,34,82 

1904 A8 DATA 00,00,34,AA,00,00,34,BE,00,00 

1905 Sn DATA 34,D2,00,00,34,E6,00,00,35,0E 

1906 jt DATA 00,00,35,22,00,00,35,36,00,00 

1907 uq DATA 35,4A,00,00,35,5E,00,00,35,72 

1908 7Q DATA 00,00,35,86,00,00,35,AE,00,00 

1909 zd DATA 35,D6,00,00,35,EA,00,00,35,FE 

1910 oy DATA 00,00,36,12,00,00,36,26,00,00 

1911 DATA 00,ID,00,00,00,01,00,00,OE,20 

1912 hE DATA 00,00,0E,3E,00,00,0E,54,00,00 


1913 Gm DATA OE,68,00,00,OE,AC,00,00,OF,40 

1914 ag DATA 00,00,0F,54,00,00,0F,64,00,00 

1915 Ea DATA 0F,78,00,00,0F,82,00,00,0F,A0 

1916 Qu DATA 00,00,0F,B8,00,00,0F,D0,00,00 

1917 D7 DATA 13,7E,00,00,13,86,00,00,13,AA 

1918 wH DATA 00,00,13,86,00,00,15,B6,00,00 

1919 bQ DATA 15,EE,00,00,1E,B0,00,00,1E,BA 

1920 jU DATA 00,00,1E,C4,00,00,1E,CE,00,00 

1921 p4 DATA 1E,D8,00,00,1F,EE,00,00,1F,F8 

1922 YD DATA 00,00,20,02,00,00,20,00,00,00 

1923 Qm DATA 20,16,00,00,00,00,00,00,03,F2 
4924 w7 DATA 00,00,03,EB,00,00,01,00,00,00 
1925 qX DATA 03,F2 

(0) 1987 M&T 


Listing 1. (Schluß) 


Fortsetzung von Seite 14 


Heiße Schlachten im Amiga 


Programmname: 

Hauptprogramm 

Computer: 

A500. A1000, A2000 mit Kickstart 1.2 

Sprache: 

Amiga-Basic 1.2 

Bemerkung: 

Bitte zuerst das Ladeprogramm 


(Listing 2) starten, damit genügend 


Speicher bereitsteht 


Programm : hauptprogramm 


1 hTO SCREEN 1,640,255,3,2 

2 IX WINDOW 2,"Amiga gegen den Rest der Welt",(0,0)-(615,230),16 

,1 

3 Va REM Weltkarte 

4 Ml f=l:z=0:start=0:FOR p=l TO 6:ka(p)=0:NEXT 

5 qp za=3:abbruch=0:ab=0:dugmax=7 

6 Nw GOTO spielabfr 

7 hk namen: 

8 yG2 PALETTE 3,-93,.2,0:REM rot 

9 iP PALETTE 4,1,1,.1:REM gelb 

10 yW PALETTE 5,1,-6,.3:REM orange 

11 Xb PALETTE 6,.33,.87,0:REM GRÜN 

12 vz PALETTE 7,1,.7,.9:REM rosa 

13 kW REM weiß=l 

14 IS LOCATE 23,19:PRINT "Abbruch" 

15 UN LINE(210,175)-(280,185),1,B:LINE(210,175)-(280,185),1 

16 yd LINE(210,185)-Ü80,175),1 

17 Ck PAINT(212,180),3,1:PAINT(258,180),3,1 

18 5g PAINT(235,176),5,1:PAINT(235,184),5,1 

19 9L LOCATE 21,20:PRINT "Spieler" 

20 p8 LINE(210,157)-(280,170),1,B 

21 9S COLOR 2,0 

22 LP LOCATE 3,2:PRINT "Alaska":LOCATE 2,10:PRINT"NW-" 

23 Je LOCATE 3,10:PRINT"Territorium" 

24 ui LOCATE 2,26:PRINT"Grönland" 

25 N5 LOCATE 6,6:PRINT"Alberta" 

26 TS LOCATE 6,20:PRINT"Ontario" 

27 Jg LOCATE 5,26:PRINT"Quebeck" 

28 Xd LOCATE 8,2:PRINT"Weststaaten" 

29 Nu LOCATE 9,20:PRINT"Oststaaten" 

30 41 LOCATE 11,2:PRINT"Mittel-":LOCATE 12,4:PRINT"araerlka" 

31 Ea LOCATE 14,2:PRINT"Venezuela" 

32 46. LOCATE 17,5:PRINT"Peru" 

33 lu LOCATE 17,l4:PRINT"Brasilien" 

34 NM LOCATE 22,4:PRINT"Argentinien" 

35 JU LOCATE 6,31:PRINT"Island" 

36 Ij LOCATE 5,37:PRINT"Skandinavien" 

37 ql LOCATE 10,31:PRINT"GB" 

38 8x LOCATE 7,47:PRINT"Ukraine" 

39 AL LOCATE 6,55:PRINT"Ural" 

40 7v LOCATE 3,60:PRINT"Sibirien" 

41 pU LOCATE 2,68:PRINT"Jakutien" 

42 Ta LOCATE 6,67:PRINT"Irkutsk" 

43 HI LOCATE 10,68:PRINT"Mongolei" 

44 Ep LOCATE 7,73:PRINT"Kamt-":LOCATE 8,71:PRINT"schatka" 

45 OJ LOCATE 13,60:PRINT"China" 

46 U6 LOCATE 15,58:PRINT"Indien" 


47 eW LOCATE 13,46:PRINT"Mittlerer":LOCATE 14,47:PRINT"Osten" 

48 J2 LOCATE 11,54:PRINT"Afghanistan" 

49 NB LOCATE 15,66:PRINT"Siam" 

50 EU LOCATE 17,72:PRINT"Neu":LOCATE 18,72:PRINT"Guinea" 

51 GV LOCATE 19,59:PRINT"Indonesien" 

52 sY LOCATE 22,59:PRINT"West-":LOCATE 23,60:PRINT"Australien" 

53 Is LOCATE 22,73:PRINT"Ost-":LOCATE 25,68:PRINT"Australien" 

54 7P LOCATE 11,72:PRINT"Japan" 

55 IZ LOCATE 15,28:PRINT"Nord-West-":LOCATE 17,31:PRINT"Afrika" 

56 s5 LOCATE 15,40:PRINT"Ägypten" 

57 Oz LOCATE 17,45:PRINT"Ostafrika" 

58 eG LOCATE 19,42:PRINT"Kongo" 

59 6m LOCATE 23,37:PRINT"Südafrika" 

60 OY LOCATE 24,52:PRINT"Madagaskar" 

61 Lx RETURN 

62 tS REM alaska 

63 cMO al: 

64 pe4 LOCATE 4,5:PRINT land(L) 

65 6o LINE(30,4)-(32,14):LINE-(48,9):LINE-(64,13) 

664h LINE-(72,l6):LINE-(72,40):LINE-(48,35) 

67 ux LINE-(40,36) 

68 Hl LINE-(24,33):LINE-(16,25):LINE-(24,22) 

69 XA LINE-(16,15):LINE-(48,11) 

70 91 LINE-(30,4) 

71 8N PAINT (33,15),f,2 

72 W8 RETURN 

73 bt2 REM Nordwest-Territorium 

74 qbO a2: 

75 914 LOCATE 4,15:PRINT land(L) 

76 3s LINE(72,16)-(128,14):LINE-(176,28) 

77 BW LINE-(176,35):LINE-(96,35) 

78 GE LINE-(72,40) 

79 Vn PAINT (75,30),f,2 

80 eG RETURN 

81 SQ2 REM Grönland 

82 InO a3: 

83 JG4 LOCATE 3,32:PRINT land(L) 

84 PN LINE(176,28)-(210,15):LINE-(230,20) 

85 vT LINE-(200,35):LINE-(176,35) 

86 dv LINE(248,l4)-(250,5):LINE-(270,6) 

87 Nq LINE-(288,20):LINE-(260,40) 

88 dT LINE-(248,25):LINE-(248,14) 

89 4U PAINT (205,30),f,2 

90 JN PAINT(249,15),f,2 

91 pR RETURN 

92 vH3 REM Alberta 

93 F20 a4: 

94 Yi4 LOCATE 6,14:PRINT land(L) 

95 50 LINE(72,40)-(72,55):LINE-(160,55) 

96 KE LINE-(160,35) 

97 yf PAINT(159,36),f,2 

98 wY RETURN 

99 S63 REM Ontario 

100 PDO a5: 

101 lq5 LOCATE 7,22:PRINT land(L) 

102 vm LINE(200,35)-(210,60):LINE-(180,55) 

103 VR LINE-(160,55) 

104 T3 PAINT(l6l,54),f,2 

105 3f RETURN 

106 Z53 REM Quebeck 

107 ZOO a6: 

108 2C5 LOCATE 7,27:PRINT land(L) 
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109 04 LINE(202,50)-(225,40):LINE-(245,53) 

110 AG LINE-(225,58):LINE-(210,60):LINE-(200,35) 

111 10 PAINT(224,57),f,2 

112 Am RETURN 

113 iY3 REM Weststaaten 

114 jZO a7: 

115 515 LOCATE 9,l4:PRINT land(L) 

116 QS LINE(72,55)-(70,65):LINE-(73,72) 

117 nx LINE-(80,75):LINE-(130,80) 

118 j9 LINE-U45,60):LINE-(170,55) 

119 CH PAINT(72,60),f,2 

120 lu RETURN 

121 sw3 REM Oststaaten 

122 ulO a8: 

123 Ec 5 LOCATE 10,19:PRINT land(L) 

12430 LINE(130,80)-(140,85):LINE-(170,80) ( 

125 Kf LINE-(172,90):LINE-(180,88) 

126 Xt LINE-(179,80):LINE-(215,70) 

127 pl LINE-(220,58) 

128 zZ PAINT(218,60),f,2 

129 R3 RETURN 

130 2d3 REM Mittelamerika 

131 6y0 a9: 

132 4L5 LOCATE 11,11:PRINT land(L) 

133 MH LINE(73,72)-(74,75):LINE-(85,90) 

134hl LINE-(90,98):LINE-(112,105) 

135 kB LINE-(116,104):LINE-(105,95) 

136 gn LINE-(110,91):LINE-(120,87) 

137 ly LINE-U40,85) 

138 qP PAINT(l30,84),f,2 

139 bD RETURN 

140 pJ3 REM Venezuela 

141 KKO alO: 

142 bx5 LOCATE 15,12:PRINT land(L) 

143 sH LINE(116,104)-(128,103):LINE-(180,123) 

144 xm LINE-(148,124):LINE-(118,119) 

145 Nr LINE-(94,124):LINE-(66,119) 

146 Ww LINE-(76,111):LINE-(100,105) 

147 BG LINE-(112,105) 

148 4C PAINT(90,122),f,2 

149 IN RETURN 

150 qg3 REM Preu 

151 YZO all: 

152 zN5 LOCATE 19,10:PRINT land(L) 

153 vE LINE(66,119)-(56,132):LINE-(64,146) 

154 AU LINE-(76,154):LINE-(78,159) 

155 Ds LINE-(ll4,164):LINE-(122,l44) 

156 g5 LINE-(88,133):LINE-(94,124) 

157 Wy PAINTUl2,l62),f,2 

158 uW RETURN 

159 Hk3 REM Brasilien 

160 InO al2: 

161 W25 LOCATE 19,18:PRINT land(L) 

162 Nv LINE(122,144)-(136,152):LINE-(134,165) 

163 80 LINE-(140,169):L1nE-(164,156) 

164 6v LINE-(186,154):LINE-(216,142) 

165 jt LINE-(180,123) 

166 tP PAINT(l40,l65),f,2 

167 3f RETURN 

168 7E3 REM Argentinien 

169 ylO al3: 

170 uE5 LOCATE 23,11:PRINT land(L) 

171 yW LINE(78,159)-(80,178):LINE-(74,194) 

172 zO LINE-(76,208):LINE-(84,215) 

173 hl LINE-(92,219):LINE-(90,213) 

174 rJ LINE-(92,208):LINE-(98,201) 

175 DT LINE-(140,169) 

176 6H PAINT(88,213),f,2 

177 Dp RETURN 

178 ZX3 REM Island 

179 CGO al4: 

180 AC5 LOCATE 7,33:PRINT land(L) 

181 eB LINE(255,44)-(273,48):LINE-(283,42) 

182 Aj LINE-(303,51):LINE-(279,58) 

183 Hp LINE-(26l,59):LINE-(248,50) 

184 76 LINE-(255,44) 

185 tW PAINT(260,57),f,2 

186 My RETURN 

187 h73 REM Skandinavien 

188 PUO al5: 

189 Zi5 LOCATE 8,39:PRINT land(L) 

190 ar LINE(292,72)-(290,64):LINE-(306,57) 

191 JB LINE-(3l4,48):LINE-(312,4l) 


192 zc LINE-(326,38):LINE-(340,35) 

193 Mr LINE-(350,47):LINE-054,67) 

194 Eq LINE-(346,61):LINE-(342,48) 

195 IJ LINE-(336,54):LINE-(338,66) 

196 tA LINE-(330,74):LINE-(320,76) 

197 sM LINE-O08,69):LINE-(292,72) 

198 oN PAINT(320,74),f,2 

199 ZB RETURN 

200 Um3 REM Mitteleuropa 

201 gmO al6: 

202 bl5 LOCATE 11,38:PRINT land(L) 

203 oP LINE(288,87)-(298,83):LINE-(306,75) 

204 Yp LINE-(312,76):LINE-(318,81) 

205 tH LINE-(346,75):LINE-(360,85) 

206 uK LINE-012,91):LINE-Ü88,87) 

207 vT PAINT(312,90),f,2 

208 iK RETURN 

209 KH3 REM Westeuropa 

210 tOO al7: 

211 1A5 LOCATE 13,35:PRINT land(L) 

212 Rb LINE(288,87)-(284,92):LINE-(276,95) 

213 Mo LINE-(280,97):LINE-(264,99) 

214 aX LINE-(268,107):LINE-(286,108) 

215 ZA LINE-(288,101):LINE-012,98) 

216 C7 LINE-012,91) 

217 tA PAINT(284,107),f,2:PAINT(288,89),f,2 

218 sU RETURN 

219 rZ3 REM SOdeuropa 

220 7F0 al8: 

221 j55 LOCATE 12,42:PRINT land(L) 

222 Zn LINE(312,98)-(322,103):LINE-(314,106) 

223 Lz LINE-(332,107):LINE-(334,103) 

224 Pm LINE-028,96):LINE-(340,97) 

225 xc LINE-052,102):LINE-(358,99) 

226 Yy LINE-(360,95):LINE-(368,95) 

227 Kw LINE-(360,85):LINE(360,85)-(312,91) 

228 h9 PAINT(330,106),f,2 

229 3f RETURN 

230 0w3 REM Ukraine 

231 MVO al9: 

232 QW5 LOCATE 9,49:PRINT land(L) 

233 dR LINE(368,95)-(370,98):LINE-(414,109) 

234 Sz LINE-(412,106):LINE-(412,99) 

235 EZ LINE-(4l6,97):LINE-(422,8l) 

236 2U LINE-(434,80):LINE-(446,62) 

237 Tv LINE-(426,52):LINE-(420,42) 

238 JG LINE-(438,29):LINE-(428,16) 

239 ud LINE-Ö80,28):LINE-080,38) 

240 L6 LINE-(366,37):LINE-056,33) 

241 9W LINE-(340,35):LINE(346,75)-(354,67) 

242 bC PAINTÖ96,103),f,2 

243 Ht RETURN 

244 xP3 REM Groß Britanien 

245 340 a20: 

246 Mm5 LOCATE 12,28:PRINT land(L) 

247 7x LINE(256,75)-(262,75):LINE-(268,81) 

248 De LINE-(278,88):LINE-(272,92) 

249 hz LINE-(262,93):LINE-(258,90) 

250 Qt LINE-(260,85):LINE-(254,78) 

251 QU. LINE-U56,75) 

252 Oy LINE(240,81)-(248,82):LINE-(254,87) 

253 Yo LINE-(252,91):LINE-(246,94) 

254 oE LINE-(234,89):LINE-(236,84) 

255 mg LINE-U40,81) 

256 d7 PAINT(263,92),f,2:PAINT(246,93),f,2 

257 V7 RETURN 

258 Ib3 REM Ural 

259 LNO a21: 

260 qp5 LOCATE 8,57:PRINT land(L) 

261 Of LINE(428,16)-(458,13):LINE-(468,4) 

262 Vm LINE-(474,3):LINE-(478,5) 

263 HA LINE-(480,22):LINE-(486,18) 

264 Fq LINE-(492,24):LINE-(496,78) 

265 It LINE-(486,79):LINE-(480,72) 

266 2c LINE-(456,66):LINE-(446,62) 

267 C4 PAINT(488,78),f,2 

268 gl RETURN 

269 Yt3 REM Afghanistan 

270 adO a22: 

271 1C5 LOCATE 12,56:PRINT land(L) 

272 E9 LINE(486,79)-(470,95):LINE-(462,107) 
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LINE-(448,113):LINE-(416,107) 

LINE-(416,97) 

PAINT(448,110),f,2 

RETURN 

REM Mittlerer Osten 


LOCATE 15,49:PRINT land(L) 

LINE(448,113)-(448,118):LINE-(436,118) 
LINE-(4l6,113):LINE-(424,119) 
LINE-(398,128):LINE-(394,124) 
LINE-(374,115):LINE-(374,105) 
LINE-(356,103) :LINE-062,100) 

LINE-(370,98) 

PAINT(400,125),f,2 

RETURN 

REM Sibirien 


LOCATE 5,63:PRINT land(L) 
LINE(492,24)-(486,18):LINE-(484,9) 
LINE-(500,8):LINE-(510,3) 

LINE-(546,1):LINE-(530,29) 

LINE-(534,47):LINE-(522,78):LINE-(506,80) 
LINE-(496,78) 

PAINTO00,74),f,2 

RETURN 

REM Jakutien 


LOCATE 3,69:PRINT land(L) 

LINE(546,1)-(560,6):LINE-(580,3):LINE-(584,23) 
LINE-(578,30):LINE-(564,38):LINE-(560,28) 
LINE-(530,29) 

PAINT(564,30),f,2 
RETURN 
REM Irkutsk 


LOCATE 7,68:PRINT land(L) 

LINE(522,78)-(534,76):LINE-(554,71):LINE-(550,63) 
LINE-(564,54):LINE-(564,38) 

PAINT(530,65),f,2 

RETURN 

REM Kamtschatka 


LOCATE 5,73:PRINT land(L) 

LINE(580,3)-(594,6):LINE-(606,13):LINE-(602,18) 
LINE-(612,26):LINE-(610,36):LINE-(594,5l) 
LINE-(598,66):LINE-(592,69):LINE-(584,62) 
LINE-(584,54):LINE-(574,65):LINE-(566,71) 
LINE-(570,79) :LINE-062,86):LINE-(554,71) 
PAINT052,64),f,2 
RETURN 
REM Mongolei 


LOCATE 11,67:PRINT land(L) 

LINE(562,86)-(568,92):LINE-(552,91):LINE-(526,87) 
LINE-(506,80):LINE(562,86)-(554,71) 
PAINT(512,80),f,2 
RETURN 
REM China 


LOCATE 13,65:PRINT land(L) 

LINE(462,107)-(482,107):LINE-(510,119):LINE-(528,114) 
LINE-(552,116):LINE-(548,122):LINE-(560,119) 

LINE-(566,108):LINE-(560,98):LINE-(552,91) 
PAINT(494,79),f,2 
RETURN 
REM Indien 


LOCATE 16,60:PRINT land(L) 

LINE(448,118)-(456,120):LINE-(470,132):LINE-(480,140) 
LINE-(490,131):LINE-(510,125):LINE-(510,119) 
PAINT(480,138),f,2 
RETURN 
REM Siam 


LOCATE 16,65:PRINT land(L) 

LINE(510,125)-(524,130):LINE-(530,133):LINE-(530,129) 
LINE-(546,l4l):LINE-(544,136):LINE-(550,137) 
LINE-060,134) :LINE-(558,136) :LINE-(548,122) 
PAINTÖ42,136),f,2 
RETURN 
REM Japan 


LOCATE 13,74:PRINT land(L) 

LINE(582,8l)-(588,88):LINE-(586,94):LINE-(592,103) 
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LINE-(582,108):LINE-(572,104):LINE-(574,98) 

358 Bq 

LINE-(576,92):LINE-(574,84):LINE-(582,81) 

359 En 

PAINT(580,106),f,2 

360 Am 

RETURN ' 

361 7V3 1 

REM Neu Guinea 

362 BGO a33 


363 mK5 

LOCATE 19,74:PRINT land(L) 

364 87, 

LINE(574,137)-(584,137):LINE-(602,139):LINE-(610,144) 

365 M6 

LINE-(614,159):LINE-(594,157):LINE-(580,148) 

366 Jg 

LINE-(574,l4l):LINE-(574,137) 

367 Gp 

PAINT(6lO,157),f,2 

368 lu 

RETURN 

369 3r3 ! 

REM Indonesien 

370 NTO a34 


371 7j5 

LOCATE 19,69:PRINT land(L) 

372 nw 

LINE(564,141)-(572,146):LINE-(576,152):LINE-(564,159) 

373 Ic 

LINE-(538,157):LINE-(532,153):LINE-(534,149) 

374 CO 

LINE-(540,145):LINE-(564,l4l) 

375 2u 

LINE(514,150)-(524,152):LINE-(534,159):LINE-(528,161) 

376 yl 

LINE-(518,160):LINE-(514,154):LINE-(5l4,150) 

377 Wr 

PAINT(564,158),f,2:PAINTb30,159),f,2 

378 S46 

RETURN 

379 Et3 

REM Westaustralien 

380 biO a35 


381 jE5 

LOCATE 22,68:PRINT land(L) 

382 mu 

LINE(572,163)-(558,162):LINE-(542,167):LINE-(532,168) 

383 XG 

LINE-(516,179):LINE-(522,188):LINE-(536,193) 

384 8z 

LINE-(552,190):LINE-(568,185):LINE-(578,177) 

385 14 

LINE-(572,163) 

386 6m 

PAINT(538,19l),f,2 

387 bD 

RETURN 

388 0T3 

REM Ostaustralien 

389 owO a36: 

390 nG5 

LOCATE 23,74:PRINT land(L) 

391 w5 

LINE(572,163)-(582,159):LINE-(606,166):LINE-(614,174) 

392 wj 

LINE-(610,184):LINE-(598,191):LINE-(568,185) 

393 tW 

PAINT(600,189),f,2 

394 iK 

RETURN 

395 ad3 

REM Nord-West-Afrika 

396 z80 a37 


397 Ae5 

LOCATE 18,35:PRINT land(L) 

398 7j 

LINE(308,112)-(304,109):LINE-(272,HO):LINE-(258,117) 

399 mx 

LINE-(250,130):LINE-(260,144):LINE-(284,150) 

400 OS 

LINE-O00,l49):LINE-b08,157):LINE-b 18,156) 

401 Vp 

LINE-(326,147): LI NE-040,144): LINE-028, l40) 

402 Bd 

LINE-032,135):LINE-098,125):LINE-(296,121) 

403 gq 

LINE-008,112) 

404 qN 

PAINT(262,l43),f,2 

405 tV 

RETURN 

406 4u3 

REM Ägypten 

407 EOO a38: 

408 4U5 

LOCATE 16,42:PRINT land(L) 

409 5f 

LINE(308,112)-(334,114):LINE-(352,113):LINE-(374,115) 

410 XG 

LINE-(380,124):LINE-(332,135) 

411 IF 

PAINT032,133),f,2 

412 Oc 

RETURN 

413 DK3 

REM Ostafrika 

4l4 PaO a39: 

415 Uz5 

LOCATE 18,45:PRINT land(L) 

416 2w 

LINE(380,124)-(384,127):LINE-(396,130):LINE-(406,129) 

417 VG 

LINE-(394,145):LINE-(398,157):LINE-(386,170) 

418 IR 

LINE-(352,163) :LINE-056,155) :LINE-050,145) 

419 pO 

LINE-040,144) 

420 tc 

PAINT086,166),f,2 

421 91 

RETURN 

422 Yr3 

REM Kongo 

423 140 a40: 

424 rB5 

LOCATE 20,4l:PRINT land(L) 

425 N6 

LINE(352,163)-(332,163):LINE-(320,160):LINE-(308,159) 

426 Zs 

LINE-(308,157) 

427 8r 

LINE(300,157)-(318,156):LINE-(326,147) 

428 5b 

PAINT(350,l62),f,2 

429 Ht 

RETURN 

430 Ma3 

REM Südafrika 

431 DHO a4l: 

432 6R5 

LOCATE 22,40:PRINT land(L) 

433 72 

LINE(308,159)-(314,173):LINE-(312,182):LINE-(326,195) 

434 Hf 

LINE-(342,206):LINE-(354,202):LINE-(368,191) 

435 i2 

LINE-086,170) 

436 Bf 

PAINTO42,204),f,2 

. 437 PI 

RETURN 

438 RJ3 

REM Madagaskar 

439 PUO a42: 

440 Om5 

LOCATE 23,51:PRINT land(L) 






Listings 


441 10 LINE(4l0,171)-(4l4,176):LINE-(412,185):LINE-(400,193) 

442 IK LINE-(392,193):LINE-(390,187):LINE-(402,173) 

443 lA LINE-(410,171) 

444 09 PAINT098,192),f,2 

445 X9 RETURN 

446 zr3 REM *** Spieleranzahl *** 

447 KEl spielabfr: 

448 Tp5 INPUT^ieviele menschliche Spieler (0-6) "';sp 

449 d07 IF sp=6 THEN GOTO wl 

450 II IF sp>6 THEN PRINT'zu viel III'^iGOTO spielabfr 

451 c05 PRINT'^fieviele Spieler soll der Computer Übernehmen (m 

ax.'';6-sp;^)^:INPUT'' '',csp 

452 6v7 IF csp+sp>6 THEN csp=6-sp 

453 ci3 wl; 

454 N16 spges=sp+csp:z=l 

455 nX FOR 1=1 TO spges 

456 529 IF I>sp THEN Spieler$(I)=CHR$(70+z):z=z+l 

457 UZ IF I<sp+1 THEN Spieler$(l)=CHR$(64+I) 

458 TY6 NEXT 

459 aH2 DIM land(43),land$(43) 

460 nv FOR 1=1 TO 42:land(I)=l:land$(I) = ''*'':NEXT 

461 cl5 RANDOMIZE TIMER 

462 QU2 FOR D=1 TO spges 

463 eF3 landanz=INT(42/spges) 

464 MU FOR dd=l TO landanz 

465 qF mdw: 

466 wl4 x=INT(RNDH4):IF x>42 THEN x=42 

467 aU IF land$(x)<> THEN GOTO mdw 

468 v2 land$(x)=Spieler$(D) 

469 Fj3 NEXT:NEXT 

470 zB5 z=l 

471 vc3 FOR 1=1 TO 42 

472 Cv IF land$(I) = ''*'' THEN land$(I)=Spieler$(z) :z=z+l 

473 in NEXT 

474 3B2 w3: 

475 38 IF sp=0 THEN GOTO w4 

476 wk4 PRINT :PRINT'Bitte nacheinander die Namen eingeben" 

477 80 PRINT " Höchstens 8 Buchstaben bitte I' 

478 bd2 FOR D=1 TO sp 

479 Ps4 LOCATE 5+D,5:LINE INPUT N$(D) 

480 pu NEXT 

481 3y2 LOCATE 14,2 

482 tk PRINT"Farbtabelle:" 

483 D94 LOCATE 16,1 

484 Da PRINT "weißsl rot=3 gelb=4 orange=5 gr0n=6 rosa=7'' 

485 r05 LINE(0,118)-(390,128),,B:LINE(55,118)-(55,128) 

486 16 LINE(110,118)-(110,128):LINE(175,118)-U75,128) 

487 SX LINEU55,118)-(255,128) :LINE(320,118)-(320,128) 

488 mG4 LOCATE 18,5:PRINT'Bitte eine Nummer wählen !" 

489 mo2 FOR D=1 TO sp 

490 la3 LOCATE 19+D,1 

491 7J PRINT N$(D);:INPUT" welche Farbe";färb(D) 

492 Wk5 IF farb(D)=l THEN LOCATE 16,1:PRINT " 

493 BJ IF färb(D)=3 THEN LOCATE 16,9:PRINT " 

494 mD IF färb(D)=4 THEN LOCATE 16,16:PRINT " 

495 ZK IF farb(D)=5 THEN LOCATE 16,24:PRINT" 

496 sV IF farb(D)=6 THEN LOCATE 16,34:PRINT " 

497 pc IF farb(D)=7 THEN LOCATE 16,42:PRINT " 

498 7C3 NEXT 

499 SJ IF sp=6 OR csp=0 THEN GOTO w5 

500 JJ REM i^Computer-Naraen» 

501 Xg2 w4: 

502 hr5 FOR D=sp+1 TO spges 

503 hS READ cname$ 

504 QQ N$(D)=cnarae$ 

505 EJ NEXT 

506 Gn DATA "Amiga", "Atari", "Napoleon", "Hirni" 

507 OV DATA "007","Fred" 

» 508 tU3 REM »Computer-Farben* 

509 6c5 IF sp=0 THEN GOTO far2 

510 79 FOR D=1 TO sp 

511 R2 farb2(D)=farb(D) 

512 LQ NEXT 

513 ep y=l 

514 GD RESTORE fdaten 

515 tq3 falesen: 

516 QN5 READ fa:z=0 

517 Kl IF fa=20 THEN GOTO w6 

518 FH FOR D=1 TO sp 

519 RO IF fa<>farb2(D) THEN z=z+l 

520 03 IF z=sp THEN farb3(y)=fa:y=y+l 

521 Xm NEXT D:z=0:GOTO falesen 


522 OF4 fdaten: 

523 Mw7 DATA 1,3,4,5,6,7,20 

524 7E4 far2: 

525 R06 RESTORE fdaten 

526 ly FOR p=l TO spges:READ fa 

527 7J färb(p)=fa:NEXT 

528 oL GOTO nbl 

529 5G0 w6: 

530 v65 y=l 

531 AK FOR D=sp+1 TO spges 

532 Wx farb(D)=farb3(y):y=y+l 

533 gl NEXT 

534 7H0 w5: 

535 vLl REM Nachbarländer eInlesen 

536 MK nbl: 

537 8H DIM Nb(42,8),Lname$(42) 

538 i03 RESTORE Nachbarland 

539 Jo FOR L=1 TO 42 

540 qn5 FOR p=l TO 8 

541 eu READ N 

542 Fl Nb(L,p)=N 

543 q7 NEXT p,L 

544 Uq2 RESTORE mausposition 

545 Pu4 FOR L=1 TO 42 

546 sS6 READ A,B,c,c,L$ 

547 bM Lname$(L)=L$ 

548 vO NEXT 

549 pQ2 REM »»» Reihenfolge »»» 

550 f85 FOR p=l TO spges:rf$(p)="+":NEXT 

551 7L2 FOR p=l TO spges 

552 cd rfg: 

553 6F RANDOMIZE TIMER 

554 11 x=INT(RND(l)»spges+l) 

555 qQ IF x=0 THEN GOTO rfg 

556 wO IF x> spges THEN x=spges 

557 6G4 IF rf$(x)< >"+" THEN GOTO rfg 

558 15 rf$(x)=Spieler$(p) 

559 6B NEXT 

560 RV2 WINDOW 4,,(250,130)-(400,135),0,1 

561 Yq WINDOW OUTPUT 2 

562 ue CLS:GOSUB namen:beg=0 

563 hC FOR L=1 TO 42 

564 Cf4 IF land$(L)=Spieler$(l) THEN f=farb(l) 

565 Jo IF land$a)=Spieler$(2) THEN f=farb(2) 

566 Qx IF land$(L)=Spieler$0) THEN f=farbO) 

567 X6 IF land$(L)=Spieler$(4) THEN f=farb(4) 

568 eF IF land$(L)=Spieler$(5) THEN f=farb(5) 

569 10 IF land$(L)=Spieler$(6) THEN f=farb(6) 

570 Am GOSUB v6 

571 NW3 NEXT:GOTO v7 

572 kuO v6: 

573 k23 WINDOW OUTPUT 2 

574 34 ON L GOSUB al,a2,a3,a4,a5,a6,a7,a8,a9,al0,all,al2,al3,al 

4,al5,al6,al7,al8,al9,a20,a21,a22,a23,a24,a25,a26,a27,a2 
8,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a4l,a4 
2 

575 Lf5 GOSUB f4 

576 Vr IF beg=0 AND L=1 THEN CLS:PRINT " Nordamerika"; 

577 Ua IF beg=0 AND L=9 THEN CLS:PRINT " Südamerika";:GOSUB p 

ause 

578 QJ IF beg=0 AND L=13 THEN CLS:PRINT " Europa";;GOSUB paus 

e 

579 4C IF beg=0 AND L=20 THEN CLS:PRINT " A s i e n";:GOSUB p 

ause 

580 5q IF beg=0 AND L=32 THEN CLS:PRINT " Australien";:GOSUB 

pause 

581 rr IF beg=0 AND L=36 THEN CLS;PRINT " A f r i k a";;beg=l 

582 kM3 RETURN 

583 942 END 

584 zAO v7; 

585 snl REM »*»» DAS SPIEL BEGINNT »**» 

586 jQ4 WINDOW CLOSE 3 
587072 MENU 1,0,1,"Aktionen 

588 Tw MENU 1,1,1,"Angriff" 

589 9c MENU 1,2,1,"Verschieben" 

590 18 MENU 1,3,1,"Tauschen" 

591 EV MENU 1,4,1,"nächster Spieler" 

592 GR MENU 1,5,1,"ende" 

593 17 DIM leer$(80),vs(42) 

594 6A1 Start: 

Listing 1. (Fortsetzung) 
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CLS:GOSUB pause 

LOCATE 1,1:PRINT '^on '";AusgLand$; ^ nach "';ZielL 
and$ 

GOTO z4 
ELSE 
END IF 
CLS:RETURN 
welchesLand; 

m=MOUSE(0):IF MOUSE(0)=0 THEN GOTO welchesLand 
hori=MOUSE(3):verti=MOUSE(4) 

LOCATE 3,1:PRINT leer$; 

RESTORE mausposition 
FOR L=1 TO 42 
READ h,h2,v,v2,la$ 

IF hori>210 AND hori<280 AND verti>175 AND verti< 
185 THEN abbruch=l:RETURN 

IF hori>h AND hori<h2 AND verti>v AND verti<v2 T 

HEN RETURN 

NEXT 

LOCATE 4,5 

PRINT 'Noch mal :m=M0USE(0) 
wLm: 

IF M0USE(0)=0 THEN GOTO wLm 
hori=MOUSE(3):verti=MOUSE(4) 

LOCATE 4,5:PRINT ' 

LOCATE 3,1:PRINT ' 

GOTO welchesLand 
welcherSpieler: 

FOR p=l TO spges 

IF Spieler$(p)=rf$(r) THEN namen$=N$(p):fsfarb(p):sp 

i=p 

NEXT 

g=0:FOR p=l TO spges 
IF rf$(p)='*' THEN g=g+l 
NEXT 

IF g=spges-l THEN GOTO sieg 
WINDOW OUTPUT 2:LOCATE 21,28:PRINT ' 

COLOR f,0:LOCATE 21,28:PRINT namen$:COLOR 2,0 
GOSUB f4:CLS:B=500:GOSUB Soldat 
COLOR 1,0:PRINT namen$;' ist am Zug.'; 

RETURN 

wievielArmeen: 

armee=0:S=0:la=0:FOR p=l TO 42 
IF land$(p)=rf$(r) THEN la=la+l:S=S+l 
IF p=9 THEN 

IF S=9 THEN arraee=armee+5 
S=0 
ELSE 
END IF 
IF p=13 THEN 

IF S=4 THEN arraee=armee+2 
S=0 
ELSE 
END IF 
IF p=20 THEN 

IF S=7 THEN armee=armee+5 
S=0 
ELSE 
END IF 
IF p=32 THEN 

IF S=12 THEN armee=armee+7 
S=0 
ELSE 
END IF 
IF p=36 THEN 

IF S=4 THEN armee=armee+2 
S=0 
ELSE 
END IF 
IF p=42 THEN 

IF la=0 THEN rf$(r)='»':GOTO ende 

IF S=6 THEN arraee=armee+3 

S=0 

ELSE 

END IF 

NEXT:armeen=INT(la/3) 

IF armeen<3 THEN armeen=3 

arraeen=armeen+armee:LOCATE 2,1 

PRINT namen$;' erhält ';armeen;' Armeen.' 

IF rf$(r)>'F' THEN RETURN 
vt=l:LOCATE 3,1 

PRINT 'Zeige mit der Maus auf eines Deiner Länder 1' 
vert: 
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595 eW3 

WINDOW 4,,(0,200)-(620,235),0,l 

596 JT 

WINDOW OUTPUT 4 

597 sE 

r=l:dug=l 

598 u3 

beginn: 

599 oX5 

Karte=0:vt=l:leer$=' 

600 k4 

GOSUB f4 

601 G9 

GOSUB welcherSpieler 

602 fA 

GOSUB wievielArmeen 

603 la3 

IF rf$(r)> 'F' THEN GOTO Computer 

604 IC 

spiel: 

605 rd5 

ON MENU GOSUB Spieler:MENU ON 

606 dd 

GOTO spiel 

607 oA3 

Spieler: 

608 JL5 

v=MENU(l):CLS 

609 Je 

ON V GOSUB angriff,verschieben,tauschen,nextSpieler,en 
de 

610 uE 

GOSUB f4 

611 Dp 

RETURN 

. 612 K4 

angriff: 

613 ii7 

GOSUB f4:PRINT 'Von' 

614 SY5 

angrl: 

615 F17 

GOSUB welchesLand 

616 G29 

IF abbruch=l THEN GOSUB f4:CLS:abbruch=0:RETURN 

617 i67 

IF land$(L)<>rf$(r) THEN 

618 NC9 

CLS:LOCATE 3,5 

619 RE 

PRINT'Dies ist nicht Dein Land ! Noch mal.':GOTO a 
ngriff 

620 bK 

ELSE 

621 xq 

END IF 

622 1X7 

IF vt=l THEN RETURN 

623 <lt9 

IF land(L)<2 THEN 

624 QEB 

CLS:LOCATE 2,5 

625 Wk 

PRINT'Hier gibt es keine Angriffsarmeen !' 

626 GD 

GOSUB pause:CLS:GOTO angriff 

627 iR 

ELSE 

628 4x 

END IF 

629 6d7 

AusgLand$=la$:Anr=L 

630 it 

•LOCATE 1,1 

631 eM 

PRINT 'Von ';AusgLand$;' nach ' 

632 J15 

ziel: 

633 XJ7 

GOSUB welchesLand 

634 YK9 

IF abbruch=l THEN GOSUB f4:CLS:abbruch=0:RETURN 

635 hk7 

IF land$(L)=rf$(r) THEN 

636 KH9 

LOCATE 3,5 

637 QN 

PRINT'Dies ist Dein eigenes Land ! Noch mal.';:GOT 

0 ziel 

638 tc 

ELSE 

639 F8 

END IF 

640 SPB 

FOR p=l TO 8 

641 XaD 

IF L=Nb(Anr,p) THEN GOTO z2 

642 RWB 

NEXT 

643 RO 

LOCATE 3,5 

644 D4 

PRINT 'Dies ist kein Nachbarland I Noch mal.';:G 

OTO ziel 

645 rl6 

z2: 

646 2L7 

ZielLand$=la$:Znr=L: 

647 e2 

LOCATE 3,5:PRINT ' 

648 DB ^ 

LOCATE 1,1 

649 K3 * 

PRINT 'Von ';AusgLand$;' nach ';ZielLand$ 

650 iw 

FOR p=l TO spges 

651 R19 

IF Spieler$(p)=land$(Znr) THEN 

65^ uTD 

Znamen$=N$(p):fz=farb(p) 

653 8r 

ELSE 

654 UN 

END IF 

655 eJ9 

NEXT 

656 8K7 

z4: 

657 Pc 

FOR 1=1 TO 42:vs(I)=0:NEXT 

658 9M 

z=0:GOSUB wuerfel:GOSUB auswertung 

659 os9 

IF ka(spi)=6 THEN 

660 biB 

CLS .-PRINT 'Du hast 6 Karten und mußt tauschen I' 

661 J2 

GOSUB pause:GOSUB wKarte 

662 HO 

ELSE 

663 dW 

END IF 

664 8U9 

IF land(Anr)<2 OR land$(Znr)=rf$(r) THEN RETURN 

665 Ve7 

LOCATE 3,2 

666 o2 

PRINT 'Soll der Angriff wiederholt werden ?'; 

667 4S 

LOCATE 5,37:PRINT 'Ja Nein'; 

668 XJ 

LINE(280,30)-(310,40),,B:LINE(330,30)-(370,40),,B 

669 IT 

z3: 

670 239 

m=MOUSE(0):IF M0USE(0)=0 THEN z3 

671 OS 

IF MOUSE(3)>280 AND MOUSE(3)<315 THEN 
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751 tC9 

GOSUB angrl 


832 dV 

IF wu2(l)>0 THEN LOCATE 4,68:PRINT wu2(l); :S0UND 

752 B3 

WINDOW 4,,(0,200)-(620,235),0,l 



200,.5 

753 gS 

GOSUB f4:Ainp=0 


833 qg 

IF wu3(l)>0 THEN LOCATE 5,68:PRINT wu3(l); :S0UND 

754 CD7 

eing: 



200,.5 

755 ju9 

LOCATE 1,1 


834 9F 

z=0:COLOR 1,0 

756 6F 

INPUT "Vieviel Armeen in dieses Land'^jarminp 


835 pR7 

RETURN 

757 IH 

Ainp=Ainp+arminp 


836 wn4 

auswertung: 

758 tK 

IF Ainp>armeen THEN 


837 Y16 

IF wul(0)<=wul(l) THEN 

759 NcC 

PRINT Hehr als Du bekommst I" 


838 cv8 

land(Anr)=land(Anr)-l 

760 XO 

Ainp=Ainp-arminp 


839 8r 

ELSE 

761 Wh 

FOR p=l TO 3000:NEXT:CLS 


840 GNA 

land(Znr)=land(Znr)-l 

762 UA 

GOTO eing 


841 V08 

END IF 

763 ud 

ELSE 


842 5z6 

IF wu2(0)=0 OR wu2(l)=0 THEN GOTO aw2 

764 G9 

END IF 


843 10 

IF wu2(0)<=wu2(l) THEN 

765 q8A 

WINDOW OUTPUT 2 


844 il8 

land(Anr)=land(Anr)-1 

766 09 

land(L)=land(L)+arminp:GOSUB v6 


845 Ex 

ELSE 

767 op 

GOSUB f4:CLS 


846 MTA 

land(Znr)=land(Znr)-l 

768 rg 

IF Ainp=armeen THEN vt=0:RETURN 


847 bU8 

END IF 

769 NG 

PRINT namen$;'" Du hast noch '';armeen-Ainp;" Armee 


848 HD6 

IF wu3(0)=0 OR wu3(l)=0 THEN GOTO aw2 


n. 


849 yF 

IF wu3(0)<=wu3(l) THEN 

770 Oh 

armeen=armeen-Ainp 


850 o78 

land(Anr)=land(Anr)-1 

771 cE 

PRINT "Auf welches Land !" 


851 K3 

ELSE 

772 JT 

GOTO vert 


852 SZA 

land(Znr)=land(Znr)-1 

773 oG5 

wuerfel: 


853 ba8 

END IF 

774 WI7 

LINE(400,5)-(615,42),1,B:PAINT(402,6),2,1 


854 LV6 

aw2: 

775 jv 

LINE(510,5)-(510,42),1:C0L0R 1,2 


855 0Z8 

L=Anr:GOSUB v6 

776 hq 

RANDOMIZE TIMER 


856 T4 

f2=f:L=Znr:f=fz:GOSUB v6:f=f2:L=Anr 

777 Dy 

LOCATE 2,55:PRINT namen$:LOCATE 2,67:PRINT Znaraen$ 


857 LW 

IF land(Znr)<>0 THEN 

778 t3 

w=INT(RND*7):RANDOMIZE TIMER 


858 S6A 

GOSUB f4:RETURN 

779 Xn 

w2=INT(RND«7):RANDOMIZE TIMER 


859 SB9 

ELSE 

780 RB 

w3=INT(RND*7) 


860 oh 

END IF 

781 W9 

IF w=0 OR w2=0 OR w3=0 THEN GOTO wuerfel 


861 GA 

land$(Znr)=Spieler$(spi) 

782 gw 

IF w>6 OR w2>6 OR w3>6 THEN GOTO wuerfel 


862 kC 

land(Znr)=land(Znr)+Wanz:BEEP 

783 FI 

IF w>=w2 AND w>=w3 THEN wul(z)=w:GOTO wfl 


863 4U 

L=Znr:GOSUB v6:land(Anr)=land(Anr)-Wanz:BEEP 

784 9MA 

IF w>=w2 AND w<=w3 THEN wu2(z)=w:G0T0 wf2 


864 yM 

L=Anr:GOSUB v6:land$(Znr)=land$(Anr) 

785 AN 

IF w>=w3 AND w<=w2 THEN wu2(z)=w:G0T0 wf2 


865 om 

vs(Znr)=l 

786 4R 

IF w<=w2 AND w<=w3 THEN wu3(z)=w:G0T0 wf3 


866 fp 

WINDOW OUTPUT 4 

787 5JB 

wfl: 


867 UbB 

IF Karte=0 THEN 

788 rrD 

IF w2>=w3 THEN 


868 BKD 

RANDOMIZE TIMER 

789 mWF 

wu2(z)=w2:wu3(z)=w3 


869 JM 

z=INT(RNDH) 

790 L4 

ELSE 


870 DzE 

IF z=0 THEN z=l 

791 oYH 

wu3(z)=w2:wu2(z)=w3 


871 IV 

IF z=l THEN z$="R" 

792 IbF 

END IF 


872 7d 

IF z=2 THEN z$="S" 

793 KXB 

GOTO Wurf 


873 mB 

IF z=3 THEN z$="K" 

794 GV 

wf2: 


874 e7 

ka(spi)=ka(spi)+l:k$(spi,ka(spi))=z$ 

795 IpD 

IF w>=w2 THEN 


875 9r 

Karte=l 

796 pYF 

wu3(z)=w2:wul(z)=w3 


876 jS 

ELSE 

797 SB 

ELSE 


877 5y 

END IF 

798 raH 

wu3(z)=w3:wul(z)=w2 


878 W89 

RETURN 

799 plF 

END IF 


879 qQ2 

verschieben: 

800 ReD 

GOTO Wurf 


880 x04 

CLS:LOCATE 1,1:PRINT"Verschiebe Armeen von " 

801 RhB 

wf3: 


881 iC 

GOSUB welchesLand:vNr=L:vLa$=la$ 

802 IzD 

IF w2<=w3 THEN 


882 T76 

IF vs(vNr)=l THEN 

803 saF 

wu2(z)=w2:wul(z)=w3 


883 nt8 

CLS 

804 ZI 

ELSE 


884 15 

PRINT "Verschieben erst nach erneutem Angriff möglic 

805 ucH 

wu2(z)=w3:wul(z)=w2 



h" 

806 wpF 

END IF 


885 oc 

GOSUB pause:GOSUB pause:abbruch=l 

807 0w6 

Wurf: 


886 tc 

ELSE 

808'0y7 

IF z=l THEN GOTO zwurf 


887 F8 

END IF 

809 Sw9 

IF land(Anr)<3'THEN Wanz=l:GOTO wurfl 


888 bk4 

IF abbruch=l THEN abbruch=0: CLS .-RETURN 

810 dA 

IF land(Anr)<4 THEN Wanz=2:G0T0 wurf2 


889 Tm 

GOSUB eigLand:IF ab=l THEN ab=0:CLS:RETURN 

811 hO 

Wanz=3:G0T0 wurfw 


890 hw5 

IF land(vNr)<2 THEN 

812 vN7 

zwurf: 


891 1U7 

PRINT"Hier steht nur eine Armee l":GOSUB pause . 

813 TJ9 

IF land(Znr)<2 THEN GOTO wurfl 


892 Tc 

GOTO verschieben 

814 fS 

IF land(Znr)<3 THEN GOTO wurf2 


893 Oj 

ELSE 

815 6h7 

GOTO wurfw 


894 MF 

END IF 

816 V3 

wurfl: 


895 K84 

LOCATE 1,1:PRINT "Verschiebe Armeen von ";vLa$;" nach " 

817 ey9 

wul(z)=wu2(z) 


896 XP 

GOSUB welchesLand:nNr=L:nLa$=la$ 

818 Mc 

wu2(z)=0 


897 kt 

IF abbruch=l THEN abbruch=0:CLS:RETURN 

819 e87 

wurf2: 


898 LO 

LOCATE 1,1:PRINT "Verschiebe Armeen von ";vLa$;" nach " 

820 SJ9 

wu3(z)=0 



i 

821 M07 

wurfw: 


899 NQ 

PRINT nLa$:GOSUB eigLand:IF ab=l THEN ab=0:CLS:RETURN 

822 Zd9 

IF z=l THEN GOTO wurfw2 


900 eb8 

FOR p=lT0 8 

823 PEB 

LOCATE 3,53:PRINT "1."; 


901 mg 

IF L=Nb(vNr,p) THEN GOTO v2 

824 aM 

LOCATE 4,53:PRINT "2."; 


902 di 

NEXT 

825 lü 

LOCATE 5,53:PRINT "3-''; 


903 da 

LOCATE 3,5 

826 139 

LOCATE 3,57:PRINT wul(0):S0UND 200,.5 


904 Wx 

PRINT "Dies ist kein Nachbarland ! Noch mal.";:GOSU 

827 HA 

IF wu2(0)>0 THEN LOCATE 4,57:PRINT wu2(0); :S0UND 



B pause:GOTO verschieben 


200,.5 


905 vl3 

v2: 

828 UL 

IF wu3(0)>0 THEN LOCATE 5,57:PRINT wu3(0); :S0UND 


906 BW4 

GOSUB pause 


200,.5 


907 7k 

WINDOW 4,,(0,200)-(620,235),0,1:GOSUB f4 

829 lcC7 

IF z=0 THEN z=l:G0T0 wuerfel 




830 Vp 

wurfw2: 




831 rs9 

LOCATE 3,68:PRINT wul(l)::S0UND 200,.5 
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908 TF3 

909 D04 

910 4G 

911 7t 

912 On 

913 kO 

914 wj 

915 fl 

916 RA2 

917 Yw6 

918 yZ8 

919 70 

920 RA 

921 ng 

922 Eq7 

923 Xm2 

924 Dx 

925 014 

926 CO 

927 Aa6 

928 eU 

929 tw 

930 387 

931 Ra 

932 uW 

933 YK 

934 NS6 

935 TV7 

936 RL9 

937 01 

938 kS 

939 QB7 

940 vy9 

941 4R 

942 YA 

943 KM8 

944 rA9 

945 pA 

946 mc 

947 XO 

948 IN 

949 TSA 

950 thC 

951 Js 

952 RS 

953 Tt7 

954 hH5 

955 016 

956 KN 

957 UZ7 

958 sl 

959 Lx 

960 zl 

961 Kg 

962 069 

963 6R 

964 ml7 

965 119 

966 zo 

967 xY 

968 ICA 

969 ufC 

970 Job 

971 Ou 

972 Nh5 

973 1L7 

974 s5 

975 169 

976 5o 

977 RA 

978 TK 

979 8x7 

980 Zu5 

981 067 

982 y89 

983 V98 

984 2F 


40 


velng: 

LOGATE 1,1 

INPUT 'Vlevlel Armeen "'iarraeen 

IF armeen>=land(vNr) OR armeen<sO THEN CLS:GOTO v^lng 
land(vNr)=land(vNr)-arraeen:L=vNr:GOSUB v6 
GOSUB f4:vs(nNr)=l 

land(nNr)=land(nNr)+armeen:L=nNr:GOSUB v6 
GOSUB f4:CLS:RETURN 
elgLand: 

IF land$(L)<>rf$(r) THEN 
LOCATE 3,5:PRINT'Dies Ist nicht Dein Land r 
GOSUB pause:ab=l:RETURN 
ELSE 
END IF 
RETURN 

REM *** Syrabolkarten elntauschen *** 
tauschen: 

GOSUB f4:CLS:B=5 
t2: 

IF ka(spl)=0 THEN PRINT "Keine Karten!RETURN 
IF rf$(r)> "F" THEN GOTO t3 
FOR D=1 TO ka(spl) 

IF k$(spl,D)s"R" THEN GOSUB Reiter 
IF k$(spl,D)="S" THEN GOSUB Soldat 
IF k$(spl,D)="K" THEN GOSUB Kanone 
B=B+45:NEXT 
t3: 

rt=0:so=0:k=0:F0R p=l TO ka(spl) 

IF k$(spl,p)="R" THEN rt=rt+l 
IF k$(spl,p)="S" THEN so=so+l 
IF k$(spl,p)="K" THEN k=k+l 
NEXT:wk=l 

IF rt>=3 OR so>=3 OR k>=3 THEN GOTO wk 
IF rt>=l AND so>=l AND k>=l THEN wk=2:G0T0 wk 
RETURN 
wk; 

IF rf$(r)>"F" THEN GOTO wKarte 
LOCATE 2,45 

PRINT"Wlllst Du tauschen ?"; 

LOCATE 4,62:PRINT"Ja";:LOCATE 4,69:PRINT"Nein"; 
LINE(480,20)-(520,35),,B:LINE(540,20)-(580,35),,B 
kt; 

m=M0USE(0):IF MOUSE(0)=0 THEN GOTO kt 

IF M0USE(3)>480 and MOUSE(3)<520 THEN GOTO wK 

arte 

IF M0USE(3)>540 and M0USE(3)<580 THEN LOCATE 
5,20:PRINT "ok"; 

CLS:RETURN 
wKarte: 

IF rf$(r)< "G" THEN GOTO wk4 
FOR D=1 TO ka(spl) 

IF k$(spl,D)="R" THEN GOSUB Reiter 
IF k$(spl,D)="S" THEN GOSUB Soldat 
IF k$Upl,D) = "K" THEN GOSUB Kanone 
B=B+45:NEXT 
wk4: 

LOCATE 1,40: PRINT najnen$;" tauscht Karten gegen So 
Idaten I"; 

GOSUB pause 
IF wk=2 THEN GOTO wk2 
IF rt>=3 THEN L$="R" 

IF so>=3 THEN L$="S" 

IF k>=3 THEN L$="K" 
z=0:F0R p=l TO ka(spl):IF z=3 THEN wk3 
IF k$(spl,p)=L$ THEN k$(spl,p)="+":z=z+l 
NEXT 
GOTO wk3 

wk2: 

L$="R":ll$="S":12$="K":zaO 
FOR p=l TO ka(spl) 

IF z=3 THEN wk3 

IF k$(spl,p)=L$ AND rtOO THEN k$(spl,p) = "+": 2 =z 
+l:rt=0 

IF k$(spl,p)=ll$ AND soOO THEN k$(spl,p) = "+":z= 
z+l:so=0 

IF k$(spl,p)=12$ AND kOO THEN k$(spl,p) = "+":z=z 
+l:k=0 
NEXT 
wk3: 

z=l:F0R p=l TO ka(spl) 

IF k$(spl,p)<> "+" THEN K2$(l,z)=k$(spl,p):z=z+1 
NEXT:ka(spl)=ka(spl)-3 
FOR p=l TO ka(spl) 


985 jxA k$(spl,p)sK2$(l,p) 

986 z49 NEXT 

987 pK armeen=za:za=za+3:CLS 

988 sd LOCATE 1,1:PRINT najnen$;" erhält ";arraeen;" Armeen 

989 Q18 wk3.3: 

990 vB9 IF rf$(r)<"G" THEN 

991 BKB PRINT "Zeige mit der Maus auf eines Deiner Lände 

r 1" 

992 K6 GOSUB welchesLand 

993 Sd IF land$(L)<>rf$(r) THEN CLS:G0T0 wk3.3 

994 18 land(L)=land(L)+armeen:GOSUB v6 

995 x3 GOSUB f4:CLS:RETURN 

996 fO ELSE 

997 lu END IF 

998 LS9 GOSUB wKontl:GOSUB pause:CLS 

999 Ic PRINT namen$;" legt seine Armeen auf ";Lname$(L); 

1000 cq GOSUB pause:GOSUB v6 

1001 V77 RETURN 

1002 Bv4 Reiter: 

1003 ZS LINE(4+B,4)-(4l+B,44),,B 

1004 OX LINE(9+B,23)“(12+B,19):LINE-(11+B,18):LINE-(13+B,19) 

1005 v7 LINE-(14+B,17):LINE-(l4+B,18):LINE-(16+B,22):LINE-(17+B 

, 22 ) 

1006 38 LINE-(11+B,6):LINE-(13+B,7):LINE-(17+B,5):LINE-(15+B,7) 

1007 w7 LINE-(17+B,8) :LINE-U3+B,9) :LINE-(18+B,21) :LINE-(19+B,1 

9) 

1008 Y1 LINE-(18+B,17):LINE-(17+B,17):LINE-(18+B,14) 

1009 gw LINE-(20+B,l6):LINE-(20+B,18):LINE-(22+B,19) 

1010 6T LINE-(23+B,24):LINE-(25+B,25):LINE-(25+B,27) 

1011 eA LINE-(29+B,28):LINE-O2+B,28):LINE-O8+B,30) 

1012 8H LINE-(36+B,30):LINE-(32+B,31):LINE-(30+B,30) 

1013 91 LINE-(23+B,40):LINE-(22+B,42):LINE-(20+B,42) 

1014 FP LINE-(21+B,4l):LINE-(22+B,40):LINE-(24+B,33) 

1015 8k LINE-(19+B,38^LINE-(19+B,39):LINE-(18+B,40) 

1016 m3 LINE-(l8+B,37):LINE-(22+B,32):LINE-(20+B,32) 

1017 4P LINE-(20+B,34):LINE-(18+B,34):LINE-(18+B,32) 

1018 lg LINE-(17+B,31):LINE-(14+B,35):LINE-(16+B,37) 

1019 Fc LINE-(16+B,39):LINE-(13+B,36):LINE-(13+B,32) 

1020 DQ LINE»U0+B,33):LINE-(8+B,37);LINE-(7+B,35):LINE-(10+B,3 

1) 

1021 DJ LINE-(14+B,30):LINE-(12+B,23):LINE-(10+B,25) 

1022 TA LINE-(9+B,24):LINE-(8+B,25):LINE-(9+B,23) 

1023 TR PAINTU8+B,28),f,l 

1024 sU RETURN 

1025 ee2 Soldat: 

1026 MF4 LINE(4+B,4)-(4l+B,44),,B 

1027 ZW LINE(14+B,44)-(16+B,43):LINE-(17+B,36):LINE-(l6+B,29) 

1028 ko LINE-(15+B,24):LINE-(l4+B,24):LINE-(14+B,22):LINE-(15+B 

, 22 ) 

1029 5D LINE-(14+B,17):LINE-(15+B,17):LINE-(13+B,10):LINE-(15+B 

,17) 

1030 m5 LINE-(16+B,22):LINE-(17+B,22):LINE-(17+B,17):LINE-(19+B 

,17) 

1031 Vj . LINE-(19+B,15):LINE-(17+B,14):LINE-(18+B,12):LINE-(17+B 

,12) 

1032 VU LINE-(17+B,10):LINE-(24+B,10):LINE-(23+B,13):LINE-(23+B 

, 16 ) 

1033 n6 LINE-(25+B,l4):LINE-(26+B,l4);LINE-(26+B,l6):LINE-(27+B 

,17) 

1034 rC LINE-(28+B,22):LINE-(26+B,24);LINE-(28+B,28);LINE-(26+B 

,30) 

1035 n8 LINE-(28+B,34):LINE-(26+B,33):LINE-(25+B,4l):LINE-(26+B 

,44) 

1036 EP LINE-(14+B,44):LINE(16+B,24)-(18+B,24):LINE-(18+B,27) 

1037 kG LINE-(16+B,24):LINE(20+B,43)-(22+B,35):LINE-(23+B,43):L 

INE-(20+B,43) 

1038 KO PAINT(20+B,30),f,l:RETURN 

1039 JV2 Kanone: 

1040 QU LINE(2+B,4)-(40+B,44),,B 

1041 KA LINE(6+B,18)-(8+B,19);LINE-(19+B,19):LINE-(l9+B,17) 

1042 ly LINE-(23+B,17):LINE-(23+B,19):LINE-(31+B,17):LINE-(31+B 

,19) 

1043 km LINE-(33+B,19):LINE-(33+B,21):LINE-(31+B,21);LINE-(31+B 

, 22 ) 

1044 4Q LINE-(29+B,22):LINE-(30+B,24);LINE-(29+B,25);LINE-(34+B 

,29) 

1045 Gg LINE-(39+B,28):LINE-(36+B,30):LINE-(37+B,31):LINE-(39+B 

,31) 

1046 ao LINE-(39+B,35);LINE-(10+B,35):LINE-(13+B,32):LINE-(19+B 

,31) 

1047 IK LINE-(16+B,29):LINE-(15+B,27):LINE-(15+B,25):LINE-(15+B 
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cver: 

FOR L=1 TO 42 

IF land$(L)=rf$(r) AND land(L)>3 THEN GOSUB cverp 
NEXT 
RETURN 

cverp: * 

S=0:F0R p=l TO 8:N(p)=Nb(L,p) 

IF N(p)=0 THEN GOTO cvl 
IF land$(N(p))<>rf$(r) THEN S=1 


LINE-(6+B,18) 

LINE(17+B,22)-(20+B,24):LINE-(17+B,24):LINE-(17+B,22) 
LINE(17+B,26)-(20+B,25):LINE-(18+B,27):LINE-(17+B,26) 
LINE(19+B,29)-(21+B,26):LINE-(21+B,30):LINE-(19+B,29) 
LINE(23+B,30)-(23+B,26):LINE-(26+B,29):LINE-(23+B,30) 
LINE(24+B,25)-(26+B,28):LINE-(28+B,27):LINE-(24+B,25) 
LINE(26+B,22)-(27+B,22):LINE-(27+B,24):LINE-(26+B,22) 
PAINT(l4+B,34),f,l 
RETURN 
nextSpieler: 

r=r+l:IF r>spges THEN r=l 
g=0:FOR p=l TO 42 
IF land$(p)=rf$(r) THEN g=l 
vs(p)=0 

NEXT:IF g=0 AND rf$(r)>'F' THEN csp=csp-l 
IF g=0 THEN = 

IF = THEN GOTO nextSpieler 

Karte=0:GOTO beginn 
sieg: 

WINDOW OUTPUT 4 
CLS 

PRINT namenl;" ist der Sieger'' 

GOSUB pause:MENU RESET 
END 


NEXT:IF S=1 THEN angriff=0:RETURN 
arraeen=land(L)-2 
n2=0:FOR p=l TO 8:F0R D=1 TO 8 
nl=Nb(N(p),D) 

IF nl=0 THEN GOTO cv2 
IF land$(nl)<>rf$(r) THEN S=l:n2=N(p) 
cv2: 

NEXT:NEXT:IF n2=0 THEN angriff=0:RETURN 
GOSUB f4:CLS:PRINT namenl;" verschiebt von 
PRINT Lnaine$(L);" nach '';Lname$(n2); " 

PRINT arraeenj" Armeen." 

GOSUB pause 

land(L)sland(L)-armeen:GOSUB v6 
land(n2)=land(n2)+armeen:L=n2:GOSUB v6 
GOSUB pause:angriff=l 
RETURN 
wKonti: 

contl=0:contimax=l6:F0R L=1 TO 9 
IF land$(L)=rf$(r) THEN conti=conti+l 
NEXT 

IF conti=0 THEN GOTO SamerDca 

IF land$(27)=rf$(r) THEN conti=conti+.5 
IF land$UO)=rf$(r) THEN conti=conti+.5 
IF land$(l4)=rf$(r) THEN conti=conti+.5 
IF conti=10.5 THEN contimax=15:conti=0:G0T0 Saraeri 


WINDOW OUTPUT 4:RETURN 
ende: 

MENU RESET:STOP 
REM Der Computer zieht 

Computer: 

IF za >21 THEN dugmax=10 
IF za >33 THEN dugmax=15 
GOSUB wKonti 

PRINT namen$;" legt seine Armeen auf ";Lname$(L) 

GOSUB v6:GOSUB pause 

dug=dug+(.8/csp):angriff=0:angri=0 
comangr: 

ON MENU GOSUB ende:MENU ON 
IF dug>dugmax THEN dug=dugmax 
IF ka(spi)>2 THEN GOSUB tauschen 
maxi=-100:max=-100:angriff=0:anz=0 
FOR L=1 TO 42 

IF land$(L)=rf$(r) AND land(L)>l THEN GOSUB ang 
NEXT 

IF maxi<2 THEN angriff=0:GOSUB cver:GOTO ang2 
IF angriff=l THEN GOTO angl 
IF angriff=0 THEN GOTO ang2 
ang: 

FOR N=1 TO 10 

Nbar=Nb(L,N):IF Nbar=0 THEN RETURN 

IF land$(Nbar)<>rf$(r) THEN max=land(L)-land(Nbar 

):angriff=l 

IF land$(Nbar)<"G" THEN max=max+.5 
IF raax>maxi THEN 

maxi=max:Anr=L:Znr=Nbar 
FOR p=l TO spges 

IF land$(Znr)=Spieler$(p) THEN fz=farb(p) 

NEXT p 
ELSE 
END IF 
NEXT 
angl: 

AusgL$=Lname$(Anr):ZielL$=Lname$(Znr) 

FOR p=l TO spges 

IF land$(Znr)=Spieler$(p) THEN Znamen$=N$(p) 

NEXT 

GOSUB f4:CLS 

PRINT "Von ";AusgL$;" nach ";ZielL$ 

GOSUB pause 

z=0:GOSUB wuerfel:GOSUB pause:GOSUB auswertung 
angri=angri+.5:GOSUB pause 
ang2: 

IF angri>=dug OR angriff=0 THEN 
angriff=0:anz=0:GOT0 nextSpieler 
ELSE 
END IF 
GOTO comangr 

pause: 

FOR p=l TO 3000:NEXT:RETURN 
REM *** Computer verschiebt Armeen 


contimax=(10.5/conti):conti=0:11=1:12=L-1 
Samerika: 

FOR L=iO TO 13 

IF land$(L)=rf$(r) THEN conti=conti+l 
NEXT 

IF conti=0 THEN GOTO Europa 
IF land$(9)=rf$(r) THEN conti=conti+.5 
IF land$(37)=rf$(r) THEN conti=conti+.5 
contimax2=5/conti 
GOSUB conti2 

IF contimax2<contimax THEN contimax=contimax2:ll= 
10:12=L-1 
contl=0 
Europa: 

FOR L=14 TO 20 

IF land$(L)=rf$(r) THEN conti=conti+l 
NEXT 

IF conti=0 THEN GOTO Asien 
IF land$(3)=rf$(r) THEN conti=conti+.5 
IF land$(21)=rf$(r) THEN conti=conti+.5 
IF land$(22)=rf$(r) THEN conti=conti+.5 
IF land$(23)=rf$(r) THEN conti=conti+.5 
IF land$07)=rf$(r) THEN conti=conti+.5 
IF land$(38)=rf$(r) THEN conti=conti+.5 
contimax2=10/conti:GOSUB conti2 
IF contimax2<contimax THEN contimax=contimax2:ll 
=14:12=20 
conti=0 

Asien: 

FOR L=21 TO 32 

IF land$(L)=rf$(r) THEN conti=conti+l 
NEXT 

IF conti=0 THEN GOTO Austra 

IF land$(19)=rf$(r) THEN conti=conti+.5 
IF land$(18)=rf$(r) THEN conti=conti+.5 
IF land$b8)=rf$(r) THEN conti=conti+.5 
IF land$09)=rf$(r) THEN conti=conti+.5 
IF land$03)=rf$(r) THEN conti=conti+.5 
IF land$0'^)=rf$(r) THEN conti=conti+.5 
IF land$(l)=rf$(r) THEN conti=conti+.5 
contimax2=15.5/conti:GOSUB conti2 
IF contimax2<contimax THEN contimax=contiraax2:ll 
= 21 : 12=32 
conti=0 
Austra: 
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1205 3X7 

FOR L=33 TO 36 

1206 rU9 

IF land$(L)=rf$(r) THEN conti=conti+l 

1207 Yd7 

NEXT 

1208 Qk9 

IF conti=0 THEN GOTO Afrika 

1209 9nB 

IF land$(31)=rf$(r) THEN conti=conti+.5 

1210 pw 

contimax2=4.5/contl:GOSUB conti2 

1211 tH 

IF contlmax2<contiraax THEN contiraax=contimax2:l 
1=33:12=36 

1212 76 

conti=0 

1213 ob5 

Afrika: 

1214 Ch7 

FOR L=37 TO 42 

1215 0d9 

IF land$(L)=rf$(r) THEN conti=conti+l 

1216 hm7 

NEXT 

1217 ZK9 

IF conti=0 THEN GOTO kontiend 

1218 8vB 

IF land$(12)=rf$(r) THEN conti=conti+.5 

1219 JB 

IF land$(l7)=rf$(r) THEN conti=conti+.5 

1220 MF 

IF land$(18)=rf$(r) THEN conti=conti+.5 

1221 J3 

IF land$(23)=rf$(r) THEN conti=conti+.5 

1222 kR 

contimax2=8/conti:GOSUB conti2 

1223 3S 

IF contimax2<contimax THEN contimax=contimax2:l 
1=37:12=42 

1224 JI 

conti=0 

1225 Md5 

kontiend: 

1226 TG7 

max=0:maxi=0:start=0 

1227 vU 

FOR L=ll TO 12:p=0 

1228 he9 

IF land$(L)<>rf$(r) THEN GOTO p2 

1229 fN7 

P: 

1230 Fm9 

p=p+l:nbl=Nb(L,p) 

1231 pe 

IF nbl=0 THEN GOTO p2 

1232 tz 

IF land$(nbl)=rf$(r) THEN GOTO p 

1233 3t 

IF land$(nbl)<>rf$(r) AND nbl>ll-l AND nbl<12+ 

1 THEN max=raax+3:IF max>maxi THEN maxi=raax:13=L: 
start=l:GOTO p 

1234 IM 

IF land$(nbl) <>rf$(r) THEN max=raax+l:IF raax>max 
i THEN maxi=max:13=L:start=l 

1235 BS 

GOTO p 

1236 447 

p2: 

1237 9b9 

max=0:NEXT 

1238 Ux6 

IF start=l THEN start=0:GOTO gefunden 

1239 9d8 

FOR L=1 TO 42:p=0 

1240 wu 

IF land$(L)<>rf$(r) THEN GOTO p3 

1241 IL7 

p5: 

1242 Ry8 

p=p+l:nbl=Nb(L,p) 

1243 3t 

IF nbl=0 THEN GOTO p3 

1244 9k 

IF land$(nbl)<>rf$(r) THEN land(13)=land(l3)+arme 
en:GOTO p4 

1245 St 

IF land$(nbl)=rf$(r) THEN GOTO p5 

1246 HI7 

P3: 

1247 CH9 

NEXT 

1248 M07 

p4: 

1249 mG9 

L=13:start=0:RETURN 

1250 Nz6 

gefunden: 

1251 FN8 

land(13)=land(13)+armeen:L=13 

1252 YA 

RETURN 

1253 us6 

conti2: 

1254 yN8 

IF contimax2=l THEN contimax2=17 

1255 bD 

RETURN 

1256 v92 

mausposition: 

1257 aZ4 

DATA 15,70,0,40,"Alaska" 

1258 Kw 

DATA 78,175,0,35,"Nord-West-Territorium" 

1259 mO 

DATA 180,290,0,33,"Grönland" 

1260 Hl 

DATA 75,160,37,54,"Alberta" 

1261 kQ 

DATA 163,205,36,55,"Ontario" 

1262 LO 

DATA 212,245,41,59,"Quebeck" 

1263 mD 

DATA 71,141,57,78,"Weststaaten" 

1264 rw 

DATA 143,216,57,89,"Oststaaten" 

1265 dP 

DATA 70,135,79,104,"Mittelamerika" 

1266 rs 

DATA 64,175,104,122,"Venezuela" 

1267 Py 

DATA 56,116,123,162,"Peru" 

1268 Gs 

DATA 107,213,123,167,"Brasilien" 

1269 Vb 

DATA 71,136,160,220,"Argentinien" 

1270 Oq 

DATA 250,303,43,61,"Island" 

1271 UO 

DATA 305,352,36,73,''Skandinavien" 

1272 Mr 

DATA 290,360,77,91,"Mitteleuropa" 

1273 5N 

DATA 266,312,89,109,"Westeuropa" 

1274 IH 

DATA 316,367,91,108,"SOdeuropa" 

1275 3y 

DATA 355,424,18,100,"Ukraine" 

1276 ZC 

DATA 234,280,74,96,"Groß Britannien" 

1277 aN 

DATA 430,493,4,70,"Ural" 

1278 VG 

DATA 427,478,71,110,"Afghanistan" 

1279 ZS 

DATA 377,446,104,126,"Mittlerer Osten" 

1280 hb 

DATA 496,533,5,78,"Sibirien" 

1281 YB 

DATA 540,587,5,28,"Jakutien" 

1282 uL 

DATA 532,560,29,75,"Irkutsk" 


1283 

GM 

DATA 

575,615,0,79,"Kamtschatka" 

1284 

m 

DATA 

517,561,75,91,"Mongolei" 

1285 

Bk 

DATA 

479,566,85,110,"China" 

1286 

Jv 

DATA 

449,511,112,141,"Indien" 

1287 

cG 

DATA 

513,560,116,140,"Siam" 

1288 

xk 

DATA 

569,600,80,110,"Japan" 

1289 

NX 

DATA 

575,620,135,160,"Neu Guinea" 

1290 

Sq 

DATA 

510,575,141,163,"Indonesien" 

1291 

oS 

DATA 

518,570,163,200,"West-Australien" 

1292 

GU 

DATA 

575,620,160,195,"Ost-Australien" 

1293 

cN 

DATA 

245,300,110,156,"Nord-west-Afrika‘ 

1294 

h8 

DATA 

305,380,112,131,"Ägypten" 

1295 

qW 

DATA 

356,405,132,167,"Ostafrika" 

1296 

05 

DATA 

320,357,146,164,"Kongo" 

1297 

Oc 

DATA 

305,380,168,210,"Südafrika" 

1298 

ZO 

DATA 

390,420,169,200,"Madagaskar" 

1299 

FR 

REM gespeichert in Nb 

1300 

KE2 

Nachbarland: 

1301 

h04 

DATA 

2,4,27,0,0,0,0,0 

1302 

MW 

DATA 

1,3,5,4,0,0,0,0 

1303 

Kk 

DATA 

2,5,6,14,0,0,0,0 

1304 

Tf 

DATA 

1,2,5,7,0,0,0,0 

1305 

Mi 

DATA 

2,3,6,4,7,8,0,0 

1306 

ig 

DATA 

3,5,8,0,0,0,0,0 

1307 

CK 

DATA 

4,5,8,9,0,0,0,0 

00 

o 

4S 

DATA 

9,7,5,6,0,0,0,0 

1309 

vi 

DATA 

7,8,10,0,0,0,0,0 

1310 

nj 

DATA 

11,12,9,0,0,0,0,0 

1311 

bh 

DATA 

10,12,13,0,0,0,0,0 

1312 

OP 

DATA 

10,11,13,37,0,0,0,0 

1313 

PC 

DATA 

11,12,0,0,0,0,0,0 

1314 

eh 

DATA 

15,20,3,0,0,0,0,0 

1315 

g3 

DATA 

14,20,16,19,0,0,0,0 

1316 

tj 

DATA 

15,20,19,18,17,0,0,0 

1317 

J6 

DATA 

20,16,18,37,0,0,0,0 

1318 

UW 

DATA 

17,16,19,37,38,23,0,0 

1319 

TJ 

DATA 

15,16,18,23,22,21,0,0 

1320 

66 

DATA 

14,15,16,17,0,0,0,0 

1321 

VG 

DATA 

22,29,24,19,0,0,0,0 

1322 

JI 

DATA 

21,29,30,23,19,0,0,0 

1323 

6k 

DATA 

22,30,19,18,38,39,0,0 

1324 

ek 

. DATA 

21,29,28,26,25,0,0,0 

1325 

pq 

DATA 

24,26,27,0,0,0,0,0 

1326 

Xd 

DATA 

25,24,28,27,0,0,0,0 

1327 

ka 

DATA 

25,26,28,32,1,0,0,0 

1328 

Ni 

DATA 

27,26,24,29,32,0,0,0 

1329 

fS 

DATA 

28,24,21,22,30,31,32,0 

1330 

HK 

DATA 

23,22,29,31,0,0,0,0 

1331 

ue 

DATA 

30,29,34,0,0,0,0,0 

1332 

PN 

DATA 

27,28,29,0,0,0,0,0 

1333 

U8 

DATA 

34,36,0,0,0,0,0,0 

1334 

bS 

DATA 

33,35,36,31,0,0,0,0 

1335 

WA 

DATA 

34,36,0,0,0,0,0,0 

1336 

Pt 

DATA 

33,35,34,0,0,0,0,0 

1337 

dW 

DATA 

40,39,38,17,18,12,0,0 

00 

2s 

DATA 

37,39,23,18,0,0,0,0 

1339 

Fx 

DATA 

38,37,40,41,42,23,0,0 

1340 

KA 

DATA 

37,39,41,0,0,0,0,0 

1341 

6r 

DATA 

40,39,42,0,0,0,0,0 

1342 

TX 

DATA 

39,41,0,0,0,0,0,0 


(C) 1987 M&T 

Listing 1. (Schluß) 


Programmname: Lader _ 

Computer: A 500, A1000, A2000 mit Kickstart 1.2 
Sprache: Amiga-Basic 1.2 _ 

Bemerkung: Lädt Listing 1 nach, das 

unter dem Namen »Hauptprogramm« 
_gespeichert sein muß 


Programm : Lader 


1 NJO REM Basic-Speicher vergrößern 

2 Dk CLEAR,40000& 

3 03 CHAIN Tiauptprogramm* 

(C) 1987 M&T 

Listing 2. Das Ladeprogramm erweitert den Basic- 
Speicher. Bitte mit dem Checksummer (Seite 159) 
eingeben. 
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Listings 


Fortsetzung von Seite 22 

Finanzen im Griff 

20 y4 farbe0=0 

21 5D farbel=l 

22 CM farbe2=2 

23 JV farbe3=3 

24 Qe farbe4=4 

25 Xn farbe5=5 

26 ew farbe6=6 

27 15 farbe7=7 

28 xF WINDOW OUTPUT 2 

29 HO COLOR farbe6,0 

30 2D LOCATE 1,1 

31 sh PRINT 'Zeit''; 

32 8K LOCATE 2,1 

33 SP PRINT 'Datura'; 

34 ER LOCATE 3,1 

35 g3 PRINT 'Bezugszeit'; 

36 KY LOCATE 4,1 

37 4D PRINT 'Kontonarae'; 

' 38 sB LOCATE 1,30 

39 01 PRINT 'Arbeitsdauer'; 

40 yl LOCATE 2,30 

41 sL PRINT Duchungen'; 

42 4P LOCATE 3,30 

43 gi PRINT 'Speicher'; 

44 TT WINDOW OUTPUT 1 

45 81 ON ERROR GOTO fehler 

46 Od ON BREAK GOSUB Unterbrechung 

47 jw BREAK ON 

48 rar ON MENU GOSUB wähl 

49 oM ON TIMER(l) GOSUB uhr 

50 RX TIMER ON 

51 3T arbeitsdauer=TIMER 

52 la GOSUB aktuell 

53 4N GOSUB pruefung 

54 6W MENU ON 

55 2Y BEEP 

56 DO WHILE 1 

57 iL SLEEP 

58 NB WEND 

59 CM wähl: 

60 Ks v=MENU(0):w=MENU(l) 

61 HB MENU OFF 

62 Tk ON V GOSUB hauptl,haupt2,haupt3,haupt4,haupt5,haupt6,haupt7 

63 CI GOSUB aktuell 

64 Fa weiter: 

65 Hh MENU ON 

66 Q2 RETURN 

67 QZ hauptl: 

68 ru konto$=verzeichnis$(w):kontonr=w 

69 T5 RETURN 

70 Xi haupt3: 

71 Rt ON w GOTO raenu31,raenu32,raenu33 

72 Xh haupt2: 

73 6Q ON w GOTO menu21,raenu22,raenu23,nienu25,menu26,menu27,menu28, 

menu29 

74 dp haupt4: 

75 Nj ON w GOTO raenu4l,raenu42 

76 hu haupt5: 

77 zN ON w GOTO raenu51,raenu52,raenu53 

78 Iz haupt6: 

79 Fb ON w GOTO raenu6l,raenu62,raenu63 

80 p4 hauptT: 

81 ZJ ON w GOTO raenu71,raenu72,raenu73,inenu74,raenu75,raenu76 

82 a6 raenu21: 

83 yv IF konto$=" THEN CALL meldung('Kein Konto definiert') :RETU 

RN 

84 E4 IF index=99 THEN CALL meldung(Duchungen nur nach Neustart 

möglich'):RETURN 

85 dJ CALL requester (Dra welche Art Buchung handelt es sich', Di 

nnahme ', 'Ausgabe ') 

86 60 IF req THEN 

87 LZ vorzeichen=l 

88 Ik ELSE 

89 Hi vorzeichen=-l 

90 OH END IF 

91 MK ein: 

92 rV WINDOW 5,,(0,100)-(raaxbreite,135),0,l 

93 nS LOCATE 2,2:COLOR farbe5,0:PRINT 'Bezeichnung' 

94 00 LOCATE 4,2:PRINT Detrag'; 


95 uR LOCATE 2,40:COLOR farbe5,0:PRINT STRING$(20,'^');STRING$(2 

0 ,' ') 

96 ZI LOCATE 2,40:COLOR farbel,0:INPUT a$:IF LEN(a$)>18 THEN BEE 

P:GOTO ein 

97 Be IF a$=" THEN menu211 

98 GP einl: 

99 My LOCATE 4,40:COLOR farbe5,0:PRINT STRING$(l4,'_');STRING$(2 

0 ,' ') 

100 8J LOCATE 4,40:COLOR farbel,0:INPUT b$ 

101 ce IF VAL(b$)>999999999.99# THEN BEEP:GOTO einl 

102 OM IF VAL(b$)=0 THEN menu211 

103 Om index=index+l 

104 kf nummer(Index)=kontonr 

105 e6 konto$(Index)=konto$ 

106 p5 jahr$(index)=Jahr$ 

107 4Z monat$(index)=monat$ 

108 En tag$(Index)=tag$ 

109 gv buchung$(Index)=UCASE$(a$) 

110 Tb betrag$(Index) =STR$(VAL(b$)itvorzeichen) 

101 ce IF VAL(b$)>999999999.99# THEN BEEP:GOTO einl 

102 OM IF VAL(b$)=0 THEN menu211 

103 Om index=index+l 

104 kf nummer(index)=kontonr 

105 e6 konto$(Index)=konto$ 

106 p5 jahr$(Index)=jahr$ 

107 4Z raonat$(Index)=raonat$ 

108 En tag$(index)=tag$ 

109 gv buchungl(Index)=UCASE$(a$) 

110 Tb betrag$(index)=STR$(VAL(b$)^^vorzeichen) 

111 15 menu211: 

112 Fy WINDOW CLOSE 5 

113 Ea WINDOW OUTPUT 1 

114 Co RETURN 

115 9g menu22: 

116 Bn WINDOW 5,,(0,100)-(raaxbreite,115),0,1 

117 Ux LOCATE 2,2:COLOR farbe5,0:PRINT Ditte neuen Kontonamen ein 

geben' 

118 20 LOCATE 2,40:COLOR färbe5,0:PRINT STRING$(20,'_') 

119 R9 LOCATE 2,40:C0L0R farbel,0:INPUT a$:IF LEN(a$)>18 THEN BEE 

P:GOTO raenu22: 

120 e3 IF a$=" THEN menu221 

121 fb a$=UCASE$(a$) 

122 Rf CALL requester ('Kontonamen '+a$+' speichern ?','Ja', Dein' 

) 

123 hz IF req THEN 

124 k04 konto$=a$ 

125 DQ raaxkonto=maxkonto+l 

126 K7 verzeichnis$(raaxkonto)=a$ 

127 fD flag$(maxkonto)=l 

128 N2 Z=0 

129 Zv IF raaxkontoOO THEN 

130 mp FOR i=l TO maxkonto 

131 JK IF flag$(i)=0 THEN Z=i 

132 Zp NEXT i 

133 Vf IF ZOO THEN 

134 OJ SWAP verzeichnis$(maxkonto),verzeichnis$(Z) 

135 9H SWAP flag!C(maxkonto),flag^5(Z) 

136 W1 maxkonto=maxkonto-l 

137 92 END IF 

138 A3 END IF 

139 NW OPEN '0', #l,verzeichnis$+jähr$ 

140 WZ FOR i=l TO maxkonto 

141 L4 PRINT #l,verzeichnis$(i) 

142 mi PRINT #l,flagj{(i) 

143 zX MENU l,i,flag^(i),verzelchnis$(i) 

144 11 NEXT i 

145 ZM CLOSE #1 

146 Ql GOSUB einiesen 

147 JCO END IF 

148 vj raenu221: 

149 qZ WINDOW CLOSE 5 

150 pB WINDOW OUTPUT 1 

151 nP RETURN 

152 mK menu23: 

153 63 IF konto$=" THEN CALL meldung('Kein Konto definiert') :RETU 

RN 

154 8y CALL requester('Soll Konto '+konto$+' gelöscht werden ?','J 

a'. Dein') 

155 DV IF req THEN 

156 en OPEN '0', #l,verzeichnis$+Jahr$ 

157 DG FOR i=l TO maxkonto 

158 jF IF konto$< >verzeichnis$(i) THEN 

Listing 1. (Fortsetzung) 
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159 dM PRINT #l,verzeichnis$(i) 

160 40 PRINT #l,flag<(i) 

161 Cv ELSE 

162 nx PRINT #l,verzeichnis$(i):flag$(i)=0 

163 kr PRINT #1,0 

164 sS MENU l,i,0,verzeichnis$(i) 

165 bU END IF 

166 TN NEXT i 

167 vi CLOSE #1 

168 DO OPEN #2,jahr$,8 

169 UT FIELD #2,8 AS x$ 

170 wG LSET x$=MKD$(0) 

171 c2 PUT #2,kontonr 

172 4s CLOSE #2 

173 UM OPEN #2,jahr$+raonat$,8 

174 ZY FIELD #2,8 AS x$ 

175 IL LSET x$=MKD$(0) 

176 h7 PUT #2,kontonr 

177 9x CLOSE #2 

178 Oz konto$='^'' 

179 pi END IF 

180 Gs RETURN 

181 Jt menu25: 

182 7d summe # =0 

183 aX IF konto$='"'' THEN CALL meldung(''Kein Konto definiert") :RETU 

RN 

184 A8 OPEN "I", #l,konto$+jahr$+monat$ 

185 ex zeile=4 

186 RR WHILE NOT EOF(l) 

187 PU IF zeile=4 THEN 

188 ag CLS 

189 Wz LINE (0,10)-(520,10),farbe4 

190 Zp LINE (0,25)-(520,25),farbe4 

191 UB LINE (520,0)-(520,200),farbe4 

192 Pb LINE (0,0)-(0,200),farbe4 

193 yi COLOR farbe7,0 

194 7H LOCATE 1,2:PRINT "Einzelkonto";TAB(45);"Jahr";TAB(55); "^ona 

t"; 

195 kH LOCATE 3,2:PRINT "Tag" 

196 m9 LOCATE 3,12:PRINT "Monat" 

197 9P LOCATE 3,22:PRINT "Jahr" 

198 fq LOCATE 3,32:PRINT "Bezeichnung" 

199 QJ LOCATE 3,52:PRINT "Betrag" 

200 21 COLOR farbe6,0 

201 Tz LOCATE 1,15 

202 qE PRINT konto$;TAB(50);jahr$;TAB(60)monat$; 

203 WC COLOR farbe3,0 

204 E7 END IF 

205 ul zeile=zeile+l 

206 x3 INPUT #l,a$,b$,c$,d$,e 

207 d7 LOCATE zeile,2 

208 Ob PRINT c$; 

209 Rb LOCATE zeile,13:PRINT b$; 

210 Nb LOCATE zeile,22:PRINT a$; 

211 fx LOCATE zeile,32:PRINT d$; 

212 qt LOCATE zeile, 51: PRINT USING "##########.## '';e; 

213 cd LOCATE zeile+1,1:PRINT PTAB(l);SPACE$(63); 

214 5M summe#=summe#+e:LOCATE zeile+2,45 

215 uS LINE (I,(zeile+l)»t8)-(519,(zeile+l)*8),farbe0 

216 Qk LINE (1. (zeile+2)^»8)-(519, (zeile+2)*8) ,farbe4 

217 Ox LINE (l,(zeile)^^8-l)-(519,(zeile)^^8-l),farbe0 

218 Iz LINE (l,(zeile+l)^^8-.l)-(519,(zeile+l)*8-l),farbe4 

219 Om PRINT USING "Saldo: ##########.## "jsumme# 

220 W7 IF zeile=23 THEN zeile=4:CALL raeldung ("Maustaste") 

221 Oo WEND 

222 ob CLOSE #1 

223 zX CALL meldung("Maustaste") 

224 Bp COLOR farbel,0 

225 BH CLS 

226 Oc RETURN 

227 5g menu26: 

228 rN summe #=0 

229 MD OPEN "R", #1, jahr$+monat$,8 

230 pS FIELD #1,8 AS ein$ 

231 HN CLS 

232 dg LINE (0,10)-(380,10),farbe4 

233 gW LINE (0,25)-(380,25),farbe4 

234 TS 'LINE (380,0)-(380,200),farbe4 

235 61 LINE (0,0)-(0,200),farbe4 

236 fP COLOR farbe7,0 

237 oT LOCATE 1,2:PRINT "Monatskonto";TAB(30);"Jahr";TAB(40);"Mona 

t"; 

238 Wk LOCATE 3,2:PRINT "Konto" 

239 qG LOCATE 3,31:PRINT "Betrag" 

240 gP COLOR farbe6,0 


241 Jh LOCATE 1,35 

242 tP PRINT Jahr$;TAB(46)monat$; 

243 aG COLOR farbe3,0 

244 cf FOR i=l TO raaxkonto 

245 VH LSET ein$="" 

246 VI GET #l,i 

247 cy LOCATE i+4,2 

248 wQ PRINT verzeichnis$(i), 

249 3J LOCATE i+4,30:PRINT USING "##########.## --jCVO 

(ein$); 

250 yL LOCATE i+5,l:PRINT PTAB(l);SPACE$(45); 

251 GT summe #= summe #+CVD(ein$):LOCATE i+6,24 

252 eP LINE (I,(i+5)^f8)-(379,(i+5)»8),farbe0 

253 wn LINE (1, (i+6)if8)-(379, (i+6)i^8) ,farbe4 

254 F6 LINE (1,(i+4)^t8-l)-(379,(i+4)»8-l),farbe0 

255 VS LINE (1, (i+5)»t8-l)-(379, (i+5)»8-l) ,farbe4 

256 zN PRINT USING "Saldo: ##########.## ';summe # 

257 aq NEXT i 

258 OB CLOSE #1 

259 Z7 CALL meldung("Maustaste") 

260 IP COLOR farbel,0 

261 Ir CLS 

262 aC RETURN 

263 hJ menu27: 

264 Rx summe # =0 

265 kW OPEN "R",#l,Jahr$,8 

266 P2 FIELD #1,8 AS ein$ 

267 rx CLS 

268 DG LINE (0,10)-(380,10),farbe4 

269 G6 LINE (0,25)-(380,25),farbe4 

270 32 LINE (380,0)-(380,200),farbe4 

271 gs LINE (0,0)-(0,200),farbe4 

272 Fz COLOR farbe7,0 

273 sX LOCATE 1,2:PRINT "Jahreskonto";TAB(30);"Jahr"; 

274 6K LOCATE 3,2:PRINT "Konto" 

275 Qq LOCATE 3,31:PRINT "Betrag" 

276 Gz COLOR farbe6,0 

277 tH LOCATE 1,35 

278 n2 PRINT jahr$; 

279 Aq COLOR farbe3,0 

280 CF FOR i=l TO maxkonto 

281 5r LSET ein$="" 

282 5b GET #l,i 

283 CY LOCATE i+4,2 

284 Fy PRINT verzeichnis$(i); 

285 dt LOCATE i+4,30:PRINT USING "##########.## -»jCVD 

(ein$); 

286 Yv LOCATE i+5,l:PRINT PTAB(l);SPACE$(45); 

287 q3 summe#=surame#+CVD(ein$):LOCATE i+6,24 

288 Ez LINE (l,(i+5)^^8)-(379,(i+5)»8),farbe0 

289 WN LINE (l,(i+6)*8)-(379,(i+6)*8),farbe4 

290 pg LINE (l,(i+4)^^8-l)-(379,(i+4)^^8-l),farbe0 

291 52 LINE (1,(i+5)^^8-l)-(379,(i+5)»8-l),farbe4 

292 Zx PRINT USING "Saldo: ##########. 9 ^# "; summe# 

293 AQ NEXT i 

294 yl CLOSE #1 * 

295 9h CALL meldung("Maustaste") 

296 Lz COLOR farbel,0 

297 LR CLS 

298 Am RETURN 

299 Jw menu28: 

300 31 IF index=0 THEN CALL meIdung("BuchungsSpeicher leer"):RETUR 

N 

301 SU zaehler=0 

302 au zeile=5 

303 Dz WHILE zaehler< index 

304 TH zaehler=zaehler+l 

305 PQ IF zeile=5 THEN 

306 Ua CLS 

307 K5 LINE (0,18)-(570,18),farbe4 

308 ko LINE (0,33)-(570,33),farbe4 

309 sj LINE (570,0)-(570,200),farbe4 

310 JV LINE (0,0)-(0,200),farbe4 

311 sc COLOR farbe7,0 

312 oj LOCATE 2,22:PRINT "Aktuelle Buchungen:" 

313 Pu LOCATE 4,2:PRINT "Konto"; 

314 Sb LOCATE 4,22:PRINT "Tag"; 

315 rg LOCATE 4,26:PRINT "Monat"; 

316 ER LOCATE 4,32:PRINT "Jahr" 

317 q8 LOCATE 4,38:PRINT "Bezeichnung" 

318 d4 LOCATE 4,59:PRINT "Betrag" 

319 uc COLOR farbe5,0 

320 6z END IF 

321 mA zeile=zeile+l 

322 IP LOCATE zeile,2:PRINT konto$(zaehler); 
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323 eF LOCATE zeile,22:PRINT tag$(zaehler); 

324 wk LOCATE zelle,27:PRINT monat$(zaehler); 

325 mv LOCATE zelle,32:PRINT Jahr$(zaehler); 

326 19 LOCATE zelle,38:PRINT buchung$(zaehler); 

327 J9 LOCATE zelle,59:PRINT USING '##########.##'; 

VAL(betrag$(zaehler)); 

328 Lx IF zelle=23 THEN zelle=5:CALL meldung ('Maustaste*') 

329 kY WEND 

330 IG CALL meldung('^laustaste") 

331 uY COLOR farbel,0 

332 uO CLS 

333 JL RETURN 

334 uY raenu29: 

335 er IF lndex=0 THEN CALL meldung('Buchungsspeicher leer'):RETUR 

N 

336 Ic GOSUB schreiben 

337 nP RETURN 

338 oG menu31: 

339 17 CLS 

340 Ir CHDIR'dfO:' 

341 al COLOR farbe7,farbe0 

342 Um FILES 

343 MP CALL meldung ('Maustaste') 

344 LQ COLOR farbel,farbeO 

345 TD CLS 

346 Ju CHDIR'dfO:Schublade' 

347 xZ RETURN 

348 OT menu32: 

349 BH CLS 

350 vl CHDIR'dfO:' 

351 kV COLOR farbe7,farbe0 

352 ew FILES 

353 jt COLOR farbe6,farbe0 

354 J3 INPUT 'Bitte Fllenamen eingeben ',a$ 

355 HN CLS 

356 Xc COLOR farbel,farbeO 

357 oh KILL a$ 

358 V6 CHDIR'dfO:Schublade' 

359 91 RETURN 

360 El menu33: 

361 vO CHDIR 'dfO:Schublade' 

362 uF GOSUB eInlesen 

363 OW BEEP 

364 Eq RETURN 

365 Lj menu4l: 

366 y6 GOSUB systemzelt 

367 FG GOTO elnlesen 

368 Qp menu42: 

369 jl WINDOW 5,,(0,100)-(maxbrelte,l47),l6,l 

370 Iw LINE (80,5)-U30,50),farbe3,bf 

371 ZE LINE (235,5)-(285,50),farbe3,bf 

372 Rr LINE (390,5)-(440,50),farbe3,bf 

373 DP LINE (540,17)-(6l0,37),farbe3,bf ' 

374 JW COLOR farbe6,farbe3 

375 Nt LOCATE 4,12 

376 XN PRINT USING '# # # # '; jahr 

377 k5 LOCATE 4,33:PRINT USING '# # ';monat 

378 qq LOCATE 4,52:PRINT USING '# # ';tag 

379 zO LOCATE 4,70:PRINT 'fertig'; 

380 vO COLOR farbel,farbeO 

381 VT LOCATE 4,5:PRINT 'Jahr'; 

382 qc LOCATE 4,23:PRINT 'Monat'; 

383 Hv LOCATE 4,45:PRINT 'Tag'; 

384 Tg COLOR farbe6,farbe3 

385 WC menu421: 

386 ql WHILE M0USE(0)<>0:WEND 

387 Do WHILE MOUSE(0)=0:WEND 

388 xY x=M0USE(1):y=M0USE(2) 

389 yl IF x>540 and x<6l0 AND y> 17 AND y<37 THEN menu422 

390 fD IF y<5 AND y>50 THEN menu421 

391 Xh IF y<27 THEN 

392 oB2 IF x>80 AND x<130 THEN Jahr=jahr+1 

393 9p IF x>235 AND x<285 THEN monat=monat+l:IF monat>12 THEN 

monatsl 

394 eX IF x>390 AND x<440 THEN tag=tag+l:IF tag > maxtag THEN t 

ag=l 

395 yhO ELSE 

396 0P2 IF x>80 AND x<130 THEN jahr=jahr-l 

397 bJ IF x>235 AND x<285 THEN monat=monat-l:IF monat<l THEN 

monat=12 

398 xW IF x>390 AND x<440 THEN tag=tag-l:IF tag<l THEN tag=ma 

xtag 

399 NGO END IF 

400 Ma jahr$=RIGHT$(STR$(jahr),LEN(STR$(jahr))-l) 

401 YY raonat$=RIGHT$(STR$(monat),LEN(STR$(monat))-l):IF LEN(monat$ 


)=1 THEN monat$='0'+monat$ 

402 sO tag$=RIGHT$(STR$(tag),LEN(STR$(tag))-l):IF LEN(tag$)=l THEN 

tag$='0'+tag$ 

403 G8 IF jahr$+raonat$<'198801' THEN jahr=1988:monat=l 

404 Uw IF jahr$>RIGHT$(DATE$,4) THEN Jahr=VAL(RIGHT$(DATE$,4)) :mo 

nat=12 

405 eE maxtag=28+(monat\7+2)»(l-raonat MOD 2)+(3-monat\9)^^(monat MO 

D 2)+(monat=2)i^2t(jahr MOD 4*0)^^(monat=2) 

406 cj IF tag>raaxtag THEN tag=maxtag 

407 qo LOCATE 4,12:PRINT USING '# # # # '; jahr; 

408 rS LOCATE 4,33:PRINT USING '##';monat; 

409 5W LOCATE 4,52:PRINT USING '##';tag; 

410 La GOTO menu421 

411 P6 menu422: 

412 Ym jahr$=RIGHT$(STR$(Jahr),LEN(STR$(jahr))-l) 

413 kk monat$=RIGHT$(STR$(monat),LEN(STR$(monat))-l):IF LEN(monat$ 

)=1 THEN monat$s'0'+monat$ 

414 4C tag$=RIGHT$(STR$(tag),LEN(STR$(tag))-l):IF LEN(tag$)=l THEN 

tag$='0'+tag$ 

415 8r WINDOW CLOSE 5 

416 TT WINDOW OUTPUT 1 

417 n8 GOSUB elnlesen 

418 61 RETURN 

419 Jd menu51: 

420 KQ CLS 

421 9W FOR 1=0 TO 7 

422 ge LINE (1*70+10,20)-(l*70+50,50),l,b:REM Farbfelder 

423 hy PAINT (1*70+15,30),1,1 

424 q8 LOCATE 8,1 

425 dK PRINT PTAB(1*70+20);! 

426 JZ NEXT 1 

427 gQ LOCATE 2,2:PRINT 'Farben' 

428 ES LOCATE 12,2:PRINT 'rot' 

429 tl LOCATE 14,2:PRINT 'grün' 

430 Xs LOCATE 16,2:PRINT 'blau' 

431 4M FOR 1=0 TO 2 

432 Ya LINE (l00,86+l*l6)-(400,96+l*l6),l,b:REM Elnzelfarben 

433 Qg NEXT 1 

434 mZ LINE (130,145)-(220,165),l,b:PAINT (180,155),farbe3,l 

435 Ip farbe=0:COLOR farbe6,farbe3 

436 BD LOCATE 20,20:PRINT 'fertig'; 

437 Js xpos(l)=rot(farbe+l)*291+101 

438 zt xpos(2)=gruen(farbe+l)*291+101 

439 cS xpos(3)=blau(farbe+l)*291+101 

440 Jd FOR 1=1 TO 3 

441 IN LOCATE 10+1*2,1 

442 ju PRINT PTAB(xpos(i));'l '; 

443 aq i»NEXT 1 . 

444 PJ schrltt=.05 

445 yZ menu511: 

446 Cs LINE (farbe*70+8,18)-(farbe*70+52,52),l,b 

447 Cs LINE (farbe*70+7,17)-(farbe*70+53>53),l,b 

448 U3 xpos(l)=rot(farbe+l)*291+101 

449 A4 xpos(2)=gruen(farbe+l)*291+101 

450 nd xpos(3)=blau(farbe+l)*291+101 

451 2K COLOR 1,0 

452 Vp FOR 1=1 TO 3 

453 DZ LOCATE 10+1*2,1 

454 v6 PRINT PTAB(xpos(l));'l '; 

455 ra2 NEXT 1 

456 yq WHILE MOUSE(0)0 0:WEND 

457 Lw WHILE M0USE(0)=0:WEND 

458 oc maus=M0USE(0):xmouse=M0USE(l):yraouse=M0USE(2) 

459 Ub IF ymouse>l45 AND ymouse<l65 AND xmouse>130 AND xmouse< 

220 THEN menu512 


460 am IF ymouse>20 

AND ymouse<50 THEN 

461 nAR 

FOR 1=0 TO 7 

462 XC 

IF xmouse> 1*70+10 AND xmouse<l 
*70+50 THEN 

463 BSU 

COLOR 0,0 

464 n3 

FOR j=l TO 3 

465 Ro 

LOCATE 10+j*2,1 

466 AM 

PRINT PTAB(xpos(j));'] '; 

467 OH 

NEXT j 

468 T8 

LINE (farbe*70+8,18)-(farbe*7 
0+52,52),0,b 

469 T8 

LINE (farbe*70+7,17)-(farbe*7 
0+53,53),0,b 

470 kV 

färbe=1 

471 XQR 

END IF 
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472 3J 

NEXT i 

473 Qa 

GOTO menu511 

474 aTO 

END IF 

475 t7 

IF ymouse>86 AND ymouse<96 THEN 

476 OTU 

COLOR 0,0:L0CATE 12,1 

477 IN 

IF xmouse<100 OR xmouse<xpo 
s(l) THEN 

478 dxX 

rot(farbe+1)=rot(farbe+l)- 
schritt 

479 fYV 

END IF 

480 Dp 

IF xmouse>400 OR xmouse>xp 
os(l) THEN 

481 cuX 

rot(farbe+1)=rot(farbe+l)+ 
schritt 

482 IbV 

END IF 

483 gxO PRINT PTAB(xpos(l));'l'; ^ 

484 kd 

END IF 

485 Xg 

IF ymouse>102 AND ymouse<112 THEN 

486 KpU 

COLOR 0,0:LOCATE 14,1 

487 yZ 

IF xmouse<100 OR xmouse<xpo 
s(2) THEN 

488 VhX 

gruen(farbe+1)=gruen(färbe 
+1)-schritt 

489 plV 

END IF 

490 TI 

IF xmouse>400 OR xmouse>xp 
os(2) THEN 

491 MgX 

gruen(farbe+1)=gruen(färbe 
+l)+schritt 

492 slV 

END IF 

493 tBO PRINT PTAB(xpos(2));'l '; 

494 un 

END IF 

495 Zw 

IF ymouse>118 AND ymouse<128 THEN 

496 eBU 

COLOR 0,0:LOCATE 16,1 

497 El 

IF xmouse<100 OR xinouse<xpo 
s(3) THEN 

498 CeX 

blau(farbe+1)=blau(farbe+1 
)-schritt 

499 zsV 

END IF 

500 JD 

IF xmouse>400 OR xraouse>xp 
os(3) THEN 

501 7XX 

blau(farbe+1)=blau(farbe+1 
)+schritt 

502 2vV 

END IF 

503 6P0 PRINT PTAB(xpos(3));'l '; 

504 4x 

END IF 

505 Hw 

IF rot(farbe+1) >1 THEN rot(farbe+1) =1 • 

506 8J 

IF rot(farbe+1) <0 THEN rot(farbe+1) =0 

507 7q 

IF gruen(farbe+1) >1 THEN gruen( farbe+1) =1 

508 tY 

IF gruen(farbe+1) <0 THEN gruen(farbe+1) =0 

509 WY 

IF blau(farbe+1) >1 THEN blau( farbe+1) =1 

510 IG 

IF blau( farbe+1) <0 THEN blau(farbe+1) =0 

511 5b 

PALETTE färbe,rot(farbe+1),gruen(farbe+1),blau(farbe+1) 

512 3D 

GOTO menu511 

513 7J 

raenu512: 

514 WF 

CALL requester (.'Farben abspeichem','Ja','Nein') 

515 xm 

IF req=l THEN 

516 Nc 

OPEN '0',#1,'Farben' 

517 nC 

FOR i=l TO 8 

518 kx 

PRINT #l,rot(i) 

519 sJ 

PRINT #l,gruen(i) 

520 QW 

PRINT #l,blau(i) 

521 q6 

NEXT i 

522 eR 

CLOSE #1 

523 NG 

END IF 

524 06 

CLS 

525 pR 

RETURN 

526 4P 

raenu52: 

527 Ok 

GOTO färben 

528 8U 

menu53: 

529 fK 

IF indexOO THEN 

530 ID 

BEEP:BEEP:BEEP 

531 kC 

CALL meldung('Buchungsspeicher entleeren III') 

532 wY 

RETURN 

533 Cv 

ELSE 

534 oC 

MENU RESET 

535 pV 

WINDOW CLOSE 2 

536 IQ 

WINDOW CLOSE 1 

537 RW 

SCREEN CLOSE 1 

538 bL 

SYSTEM 

539 dW 

END IF 

540 Mc 

raenu6l: 

541 3R 

sum # =0 

542 NK 

IF konto!=" THEN CALL raeldung('Kein Konto definiert') :RETU 

RN 

543 XV 

OPEN 'I',#1,konto!+J ahr!+fflonat! 


544 Zr OPEN FOR OUTPUT AS #3 

545 Eo PRINT #3, ^inzelkonto: M£onto$;TAB(40); ^Jahr '^;Jahr$;TAB( 

55);'^onat *;monat$ 

546 Vg PRINT #3, 

547 Jr PRINT #3, 'Tag'';TAB(10);'^ezelchn\mg';TAB(40); betrag'' 

548 fh PRINT #3, STRING$(52,'_*) 

549 II WHILE NOT EOF(l) 

550 cO INPUT #l,a$,b$ 

551 9u INPUT #l,a$,b$,c$ 

552 LS PRINT #3,a$;TAB(l0);b$;TAB(40); 

553 fp PRINT #3,USING '##########.## '';VAL(c$) 

554 gE sum#=sum#+VAL(c$) 

555 OC WEND 

556 np PRINT #3, STRING$(52, 

557 Ph PRINT #-3,TAB(29); 

558 Jh PRINT #3,USING Saldo: ##########.## *';suin# 

559 F2 CLOSE #1 

560 OD CLOSE #3 

561 PI RETURN 

562 kl menu62: 

563 Pn sum#sO 

564 Gr IF raaxkonto=0 THEN RETURN 

565 md OPEN #l,Jahr$+monat$,8 

566 vD OPEN 'lpt1:'' FOR OUTPUT AS #3 

567 c4 FIELD #1,8 AS a$ 

568 Ra PRINT #3# 'Monatskonto:';TAB(40);'Jahr ';Jahr$;TAB(55);'Mon 

at ';monat$ 

569 s3 PRINT #3, 

570 VI PRINT # 3,'Konto';TAB(30);'Betrag' 

571 xy PRINT #3, STRING!(42,'_') 

572 ux FOR 1=1 TO maxkonto 

573 hN PRINT #3,verzeichnis!(i) ;TAB(30); 

574 81 LSET a$=":GET #1,1 

575 km PRINT #3,USING '##########.## ';CVD(a$) 

576 jJ sum#=sum#+CVD(a$) 

577 kO NEXT 1 

578 45 PRINT #3, STRING!(42,'_') 

579 5p PRINT #3,TAB(22); 

580 r7 PRINT #3,USING ' Saldo: ##########.## '';sum# 

581 4F PRINT #3, 

582 cP CLOSE #1 

583 la CLOSE #3 

584 mO RETURN 

585 9R menu63: 

586 mA svun#=0 

587 dE IF maxkonto=0 THEN RETURN 

588 xj OPEN 'R', #l,jahr!,8 

589 la OPEN 'lpt1:' FOR OUTPUT AS #3 

590 zR FIELD #1,8 AS a$ 

591 Je PRINT #3,''Jahreskonto:';TAB(40);'Jahr ';Jahr!;TAB(55);'Mona 

t ';monat! 

592 FQ PRINT #3, 

593 s8 PRINT #3,''Konto';TAB(30);'Betrag' 

594 KL PRINT #3, STRING!(42,'_') 

595 HK FOR 1=1 TO maxkonto 

596 4k PRINT #3,verzelchnls!(l);TAB(30); 

597 V8 LSET a!=":GET #1,1 

598 79 PRINT #3,USING '##########.## ';CVD(a!) 

599 6g sum#=sum#+CVD(a!) 

600 TN NEXT 1 

601 RS PRINT #3, STRING!(42,'_') 

602 SC PRINT #3,TAB(22); 

603 ms PRINT #3,USING ' Saldo: ##########.## ';sum# 

604 yl CLOSE #1 

605 7w CLOSE #3 

606 8k RETURN 

607 XJ raenuTl: 

608 U8 drucken CHR!(27)+CHR!(64)+CHR!(27)+'1'+CHR!(10)+CHR!(27)+'N 

'+CHR!(4) 

609 Bn RETURN 

610 cp menu72: 

611 mU drucken CHR!(12) 

612 Eq RETURN 

613 hv menu73: 

614 pY drucken CHR!(27)+'!'+CHR!(0)+CHR!(27)+'xl' 

615 Ht RETURN 

616 ml menu74: 

617 98 drucken CHR! (27)+'xO '+CHR! (27)+'! '-fCHR! (0) 

618 Kw RETURN 

619 r7 menu75: 

620 EE drucken CHR!(27)+'xO'+CHR!(27)+'!'+CHR!(l) 

621 Nz RETURN 

622 aW Unterbrechung: 

623 Fd MENU RESET 

624 Ad CHDIR 'dfO:Schublade' 


146 


AMIGA-SONDERHEFT 2 





Listings 


625 pk 

626 3y 

627 Gm 

628 kl 

629 gz 

630 PL 

631 NI 

632 II 

633 xs 

634 yQ 

635 Fp 

636 QU 

637 UQ 

638 Yz 


639 dn 

640 21 

641 61 

642 Tk 

643 uD 

644 ay 

645 vW 

646 ya 

647 kk 

648 IL 

649 2B 

650 w 

651 hu 

652 Sf 

653 Ek 

654 UE 

655 Oo 

656 ob 

657 Un 

658 9E 

659 Mz 

660 aG 

661 Wa 

662 2e 

663 2R 

664 QD 

665 fu 

666 mp 

667 cF 

668 8k 

669 G3 

670 AI 

671 Fb 

672 Sm 

673 In 

674 XJ 

675 XM 

676 FB 

677 6Y 

678 gO 

679 Jg 

680 5h 

681 BN 

682 Rh 

683 Nz 

684 yy 

685 gz 

686 az 

687 Xp 

688 Tp 

689 T5 

690 HB 

691 98 

692 43 

693 Cy 

694 kq 

695 Da 

696 bg 

697 Ml 

698 Sk 

699 qv 

700 jX 

701 14 


END 

fehler: 

BEEP 

IF ERR=53 THEN CALL meldung( ^Flle existiert nicht'') :RESUME 
weiter 

nummer$=STR$(ERR) 

CALL meldung( "'Fehler ''+nuramer$) 

MENU RESET 

CHDIR "dfO:Schublade" 

END 

eInlesen: 

RESTORE eInlesen 
DATA "Verzeichnis" 

DATA "Option","Buchen ","neues Konto 

","Konto löschen " 

DATA "Übersicht Elnzelkonto","Übersicht Monat 

","Übersicht Jahr ","Buchungen ","Eintrag 

en 

DATA "Disk", "Directory ","Flle löschen", "Diskwechsel ", "# 

DATA "Zelt", "Systemzelt", "Bezugszelt", "# " 

DATA "System", "Farben ", "Farbreset", "Ende 

DATA "Ausgabe ","Elnzelkonto","Monatskonto","Jahreskonto","# 

DATA "Drucker", "RESET ", "Vorschub", "NLQ ", "DRAFT ", 

"ELITE 

MENU RESET 

konto$="" 

READ verzelchnls$:MENU l,0,l,verzelchnls$ 

OPEN "A", #l,verzelchnls$+jahr$:CLOSE #1 

OPEN "I", #l,verzelchnls$+jahr$ 

maxkonto=0 

WHILE NOT EOF(l) 

maxkonto=maxkonto+l 

INPUT #l,verzelchnls$(maxkonto) 

INPUT #l,flag<(maxkonto) 

MENU l,maxkonto, flagJ{(maxkonto),verzelchnls$(maxkonto) 

WEND 

CLOSE #1 
l=2:j=0 
eInles: 

READ a$ 

IF a$="#" THEN 1=1+1:j=0:GOTO elnles 

IF a$<>"$" THEN MENU 1,j,l,a$:j=j+l:G0T0 elnles 

RETURN 

blldschlrm: 

SCREEN 1,640,256,3,2 
maxbrelte=631:maxhoehe=242 

WINDOW 2,,(0,215)-(maxbrelte,maxhoehe),l6,l:C0L0R 1,0 
WINDOW l,"von A.N. u. M.F."+SPACE$(lO)+"+++Haushaltsverwal 
tung+++"+SPACE$(20)+"c 1988",(0,0)-(maxbrelte,200),16,1 
RETURN 
färben: 

RESTORE färben 
DATA 0,0,0 
DATA 1,1,1 
DATA .4,.6,1 
DATA 1,.73,0 
DATA .33,-87,0 
DATA .73,1,0 
DATA .93,.2,0 
DATA 1,.6,.67 
FOR 1=0 TO 7 

READ rot(l+l),gruen(l+l),blau(l+l) 

PALETTE l,rot(1+1),gruen(1+1),blau(1+1) 

NEXT 1 
RETURN 
systemzelt: 

j ahr$=RIGHT$(DATE$,4):j ahr=VAL(j ahr$) 
monat$=LEFT$(DATE$,2):raonat=VAL(monat$) 
tag$=MID$(DATE$,4,2):tag=VAL(tag$) 
datum$=tag$+"-"+monat$+"-"+j ahr$ 

RETURN 

SUB meldung(a$) STATIC 
SHARED maxbreite 
a=LEN(a$)i^8 

WINDOW 3,,(®axbrelte-a-60,0)-(maxbrelte,15),16,1 
CLS 

COLOR 6,0 

LOCATE 2,(a+60)/8/2-LEN(a$)/2 
PRINT a$:COLOR 1,0 
WHILE MOUSE(0)<>0:WEND 
WHILE MOUSE(0)=0 
WEND 

WINDOW OUTPUT 1 


702 bl WINDOW CLOSE 3 

703 NP END SUB 

704 qH SUB requester(a$,b$,c$) STATIC 

705 Y1 SHARED req 

706 6A a=LEN(a$)»8+60:b=LEN(b$)*8+60:c=LEN(c$)i^8+60 

707 m7 IF a>b+c THEN 

708 bOD maxleng=a 

709 219 ELSE 

710 wjD raaxleng=b+c 

711 PIO END IF 

712 8R WINDOW 5,,(0,0)-(maxleng,40),l6,l 

713 KG LOCATE 2,1:COLOR 6,0 

714 ea PRINT PTAB((maxleng-LEN(a$)it8)/2) ;a$; 

715 lo LINE (20,30)-(b-20,40),l,b:PAINT (22,35),2,1 

716 v8 LINE (maxleng-c+20,30)-(maxleng-20,40),l,b:PAINT (maxleng-c 

+22,35),2,1 

717 Rk COLOR 0,2 

718 Od LOCATE 5,1 

719 CR PRINT PTAB(30);b$; 

720 Qf LOCATE 5,1 

721 Sy PRINT PTAB(maxleng+30-c);c$; 

722 ZG requesl: 

723 H9 WHILE M0USE(0)<>0:WEND 

724 eF WHILE M0USE(0)=0:WEND 

725 Uf IF MOUSE(2)<30 OR M0USE(2)>40 THEN requesl 

726 UN IF M0USE(1)>20 AND MOUSE(l) <b-20 THEN req=l:GOTO reques2 

727 ZS IF M0USE(l)>maxleng-c+20 AND MOUSE(l) <maxleng-20 THEN req 

=0:GOTO reques2 

728 fv GOTO requesl 

729 jR reques2: 

730 Dw WINDOW CLOSE 5 

731 CY WINDOW OUTPUT 1 

732 qs END SUB 

733 RI Uhr: 

734 OV MENU S'TOP 

735 Ef fenster=WINDOW(l) 

736 Nf WINDOW OUTPUT 2 

737 7d LOCATE 1,15 

738 fN COLOR farbe5,0 

739 mJ PRINT TIME$ 

740 Sm LOCATE 1,45 

741 D5 COLOR farbe2,farbeO:zeit=INT(TIMER) 

742 9z stunde=(zeit-arbeitsdauer)\3600 

743 In minute=(zeit-arbeitsdauer-stunde^^3600)\60 

744 3E sekunde=INT(zeit-arbeitsdauer-stunde*3600“rainute^^60+.5) 

745 Aa PRINT USING "h: ##";stunde; 

746 M2 PRINT USING " m:# #";minute; 

747 vg PRINT USING " s:# #";Sekunde; 

748 14 LOCATE 3,45 

749 Nf PRINT USING "###### ";FRE(-1) ;FRE(-2);FRE(0); 

750 5x WINDOW OUTPUT fenster 

751 LI MENU ON 

752 U6 ■ RETURN 

753 d2 aktuell: 

754 fx WINDOW OUTPUT 2 

755 we COLOR farbe5,0 

756 Ul LOCATE 2,15 

757 jg PRINT datum$ 

758 a8 LOCATE 3,15 

759 Xk PRINT tag$+"-"+monat$+"-"+jahr$; 

760 gF LOCATE 4,15 

761 ks PRINT SPACE$(20); 

762 IH LOCATE 4,15 

763 II PRINT konto$; 

764 uF LOCATE 2,45 

765 PP PRINT USING "# # ";Index; 

766 17 WINDOW OUTPUT 1 

767 jL RETURN 

768 3R schreiben: 

769 UO FOR zaehler=l TO Index 

770 Qz OPEN "A", #l,konto$(zaehler)+Jahr$(zaehler)+raonat$(zaehler) 

771 ZT PRINT #l,jahr$(zaehler) 

772 13 PRINT #l,monat$(zaehler) 

773 H9 PRINT #l,tag$(zaehler) 

774 QK PRINT #l,buchung$(zaehler) 

775 Kx PRINT #l,betrag$(zaehler) 

776 kX CLOSE #1 

777 tW OPEN "R", #l,jahr$(zaehler),8 

778 gL OPEN "R", #2,jahr$(zaehler)+monat$(zaehler) ,8 

779 2U FIELD #1,8 AS a$ 

780 De FIELD #2,8 AS b$ 

781 48 GET #l,numraer(zaehler) :a#=CVD(a$) 

782 jX LSET a$=MKD$(VAL(betrag$(zaehler) )+a# ) 
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57 Bj8 farb(ij)=fa(anw,ij) 

58 166 NEXT 

59 274 NEXT 

60 Kh FOR i=0 TO 7 

61 9N6 PALETTE i,fI(farb(i,0)),f!(farb(i,l))I(farb(i,2)) 

62 5A4 NEXT 

63 ni raabnsraabn+1 

64 2A IF mabn>10 THEN mabn=10:F0R i=0 TO 9: FOR j=0 TO 2: ab 

n$(iJ)=abn$(l+lJ):NEXT J,i 

65 JG abn$(mabn,0)-dat$ 

66 yz abn$(mabn,l)=LEFT$(TIME$,5) 

67 tC datnaraenlad 

68 ItO REM Hauptraenue 

69 sd2 hauptraenu: 

70 jt4 loescheh 

71 ak funktIon 1 

72 X3 menue 0,30,210,2,10 

73 YS IF be THEN hauptmenu 

74 TO ON aw GOSUB diskette,eingabe,ausgabe,editieren,suche, 

ab frage,statistik,ende,sonderfunktion 

75 8Y GOTO hauptmenu 

76 Usp REM Diskettenbetrieb 

77 Nz2 diskette: 

78 nt4 funktion 2 

79 fy menue 100,60,220,11,14 

80 3cK IF be THEN RETURN 

81 JQ ON aw GOSUB laden,speichern,datloeschen,wechseln 

82 gl RETURN 

83 5D0 REM Vokabeldatei laden 

84 IA2 laden: 

85 y84 loeschen 

86 No funktion 11 

87 cT IF mdsO THEN fehler 0,30,31:RETURN 

88 XU IF va THEN frage 0,30,35:IF aw=0 THEN RETURN 

89 hx dateiauswahl 

90 TU IF be THEN RETURN 

91 C9 e$=d$(aw)+*'.'^+LEFT$(na$(anw),3) 

92 ux lad=aw 

93 sS OPEN e$ FOR APPEND AS #1 

94 7G e=L0F(l) 

95 L5 CLOSE 1 

96 g4 IF e=0 THEN KILL e$:fehler 50,58,34:RETURN 

97 DD OPEN e$ FOR INPUT AS #1 

98 6e INPUT #l,mbn 

99 Ak FOR Ul TO mbn 

100 p36 FOR j=0 TO 2 

101 HP8 INPUT #l,bn$(i,J) 

102 jo6 NEXT 

103 kp4 NEXT " 

104 4g INPUT #l,mv 

105 Gu FOR Ul TO mv 

106 s 56 FOR j=0 TO 1 

107 DV8 LINE INPUT #l,v$(i,J) 

108 pu6 NEXT 


808 FH PRINT #1,RIGHT$(DATE$,4)+LEFT$(DATE$,2) 

809 H4 CLOSE #1 

810 68 END SUB 

811 eQ pruefung: 

812 dm OPEN ''1% # 1,''Zeit" 

813 Ua INPUT #l, 2 eit$ 

814 M9 CLOSE #1 

815 UB IF LEFT$(2eit$,4)<RIGHT$(DATE$,4) THEN 

816 6v8 CALL neudat(RIGHT$(DATE$,4)) 

817 Y4 FOR J=1 TO 12 

818 Xh J$=STR$(J):J$=RIGHT$(j$,LEN(J$)-l) 

819 oZ IF LEN(j$)=l THEN ^$="0"+^$ 

820 WS CALL neudat(RIGHT$(DATE$,4)+J$) 

821 iz NEXT J 

822 DJ CALL meldung ("Jahresdatei geschrieben") 

823 D60 END IF 

824 eG RETURN 

825 3T SUB drucker(a$) STATIC 

826 06 OPEN "par:" FOR OUTPUT AS #3 

827 IF PRINT #3,a$; 

828 iX CLOSE #3 

829 PR END SUB 
(C) 1987 M&T 
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13 pU6 READ t$(i) 

14 pc4 IF t$(i)< > "-1" THEN NEXT 

15 Ow FOR i=l TO 10 

16 c76 READ ff(i) 

17 MR4 NEXT 

18 pT FOR i=l TO 16 

19 Ki6 READ fl(i) 

20 PU4 NEXT 

21 kZ anwenderladen 

22 DbO REM Bildschirmaufbau 

23 vk4 SCREEN 1,640,244,3,2 

24 8C WINDOW 1,"Vokabel - Trainer Vers. 1.0 

von Andreas Regul (c) 7/1988",(0,0)-(631,230), 

0,1 

25 fO FOR i=l TO 4 

26 0y6 MENU i,0,0,"" 

27 Wb4 NEXT 

28 oB FOR i=0 TO 7 

29 gu6 FOR j=0 TO 2 

30 9Q8 READ farb(i,J) 

31 af6 NEXT 

32 gu PALETTE i,fl(farb(i,0)),f1(farb(i,l)),f!(farb(i,2)) 

33 ch4 NEXT 

34 Zv COLOR 3,2 

35 gH e$=DATE$ 

36 TL dat$=MID$(e$,4,2)+"."+LEFT$(e$,2)+"."+RIGHT$(e$,4) 

37 y3 fenster 0,0,632,23 

38 3D funktion 1 

39 5V pixlocate 348,16:PRINT "Datum: " dat$ 

40 Jq pixlocate 502,16:PRINT "Zeit: " TIME$ 

41 Px ON TIMER (1) GOSUB uhr 

42 JP TIMER ON 

43 A80 REM Anwendernamen eingeben 

44 oP2 anweingabe: 

45 az4 fenster 0,30,320,48 

46 vV TIMER OFF 

47 z3 pixlocate 16,49:PRINT "Bitte den Anwendemamen eingeb 

en:" 

48 PV TIMER ON 

49 GQ kästen 16,60,181,11 

50 81 z$="" 

51 kb Stringeingabe 21,68,20,5 

52 Au z$=UCASE$(z$) 

53 Mv FOR i=l TO man 

54 ga IF na$(i)<>z$ THEN NEXT:GOSUB neuanwender ELSE anw= 

i:GOSUB anwbenutzung 

55 Fc FOR i=0 TO 7 

56 7L6 FOR j=0 TO 2 


Intelligenter Sprachentrainer 


783 IG 

PUT #l,nuinmer(zaehler) 

784 GN 

GET #2,nummer(zaehler) :b#=CVD(b$) 

785 g9 

LSET b$="" 

786 rh 

LSET b$=MKD$(VAL(betrag$(zaehler))+b#) 

787 ON 

PUT #2,nuramer(zaehler) 

788 wj 

CLOSE #1 

789 Ip 

CLOSE #2 

790 FX 

WINDOW OUTPUT 2 

791 WE 

COLOR farbe5,0 

792 Mh 

LOCATE 2,45 

793 UH 

PRINT USING "# # ";index-zaehler; 

794 DZ 

WINDOW OUTPUT 1 

795 19 

NEXT zaehler 

796 9q 

index=0 

797 PV 

CLS 

798 Eq 

RETURN 

799 rk 

SUB neudat(file$) STATIC 

800 J6 

OPEN "R",#l,file$,8 

801 Oq 

FIELD #1,8 AS a$ 

802 OL 

LSET a$=MKD$(0) 

803 gN 

FOR Ul TO 19 

804 ZU 

PUT #l,i 

805 Qg 

NEXT i 

806 El 

CLOSE #1 

807 QB 

OPEN "0", #l,"zeit" 
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L ISTINGS 


109 70 FOR j=0 TO 5 

110 CG8 INPUT #l,st(ij) 

111 sx6 NEXT 

112 ty4 NEXT 

113 dN CLOSE 1 

114 v5 va=0 

115 Dp RETURN 

116 3W0 REM Vokabeldatei speichern 

117 ln2 speichern: 

118 Vf4 loeschen 

119 wO funktion 12 

120 we IF mv=0 THEN fehler 0,30,32:RETURN 

121 7S fenster 0,30,344,57 

122 9J TIMER OFF 

123 OM COLOR 3,2 

124 sY pixlocate 16,48:PRINT 'TDateinaine 

125 yq pixlocate 16,62:PRINT T)ateilänge : ' mv "Vokabeln*' 

126 3X pixlocate 16,78:PRINT "Erste Eingabe:" 

127 OJ kästen 136,40,178,11 

128 yD pixlocate 143,78:IF lad THEN PRINT da$(lad) ELSE PRIN 

T dat$ 

129 6S COLOR 3,2 

130 Jp TIMER ON 

131 RB z$=d$(lad) 

132 uR Stringeingabe 140,48,20,5 

133 eB IF z$="" THEN RETURN 

134 UE z$=UCASE$(z$) 

135 Ow IF z$=d$(lad) THEN datspeichem 

136 bx FOR i=l TO md 

137 Tg6 IF UCASE$(d$(i))=z$ THEN fehler 100,60,36:RETURN 

138 J04 NEXT 

139 FV IF md>99 THEN fehler 100,80,38:RETURN 

140 Aa st=0 

141 8t2 datspeichem: 

142 nP4 e$=z$+"."+LEFT$(na$(anw),3) 

143 6H OPEN e$ FOR OUTPUT AS #1 

144 Fk PRINT #l,rabn 

145 uU FOR i=l TO rabn 

146 Zn6 FOR J=0 TO 2 

147 QV8 PRINT #l,bn$(i,j) 

148 TY6 NEXT 

149 UZ4 NEXT 

150 Dm PRINT #l,mv 

151 Oe FOR i=l TO mv 

152 cp6 FOR j=0 TO 1 

153 0X8 PRINT #l,v$(i,j) 

154 Ze6 NEXT 

155 r8 FOR J*0 TO 5 

156 LM8 PRINT #l,st(i,J) 

157 ch6 NEXT 

158 di4 NEXT 

159 N7 CLOSE 1 

160 4k IF st THEN RETURN 

161 gq va=0 

162 PY IF z$=d$(lad) THEN RETURN 

163 Me FOR i=md TO 0 STEP -1 

164 Oi IF d$(i)>z$ THEN NEXT 

165 Kv FOR J=md+1 TO i+2 STEP -1 

166 X36 d$(j)=d$(j-l) 

167 J1 da$(J)=da$(J-l) 

168 ns4 NEXT 

169 6W d$(i+l)=z$:da$(i+l)=dat$ 

170 lg md=md+l:lad=i+l 

171 Ok datnamensp 

172 8k RETURN 

173 t90 REM Vokabeldatei loeschen 

174 Ai2 datloeschen: 

175 Qa4 loeschen 

176 tM funktion 13 

177 4v IF md=0 THEN fehler 0,30,31:RETURN 

178 80 dateiausuahl 

179 IC n=aw 

180 81 IF n=lad THEN lad=0 

181 DJ IF lad>n THEN lad=lad-l 

182 by IF be THEN RETURN 

183 Fn frage 40,80,37 

184 mT IF aw=0 THEN RETURN 

185 Rb e$=d$(n)+"."+LEFT$(na$(anw),3) 

186 B8 KILL e$ 

187 Ni FOR i=n TO md 

188 eB6 d$(i)=d$(i+l) 

189 o7 da$(i)=da$(i+l) 


190 9E4 NEXT 

191 lu md=md-l 

192 j 5 datnamensp 

193 T5 RETURN 

194 ZUO REM Diskette wechseln 

195 Uu2 wechseln: 

196 lv4 loeschen 

197 Gk funktion l4 

198 Ec IF va AND lad THEN frage 0,30,39:IF aw=0 THEN RETURN 

199 oy loeschen 

200 RC fehler 0,30,40 

201 kc CHDIR "DFO:" 

202 4N datnamenlad 

203 q2 IF be THEN fehler 0,30,41:RETURN 

204 zL fenster 0,30,632,190 

205 U4 TIMER OFF 

206 c4 pixlocate 16,47:PRINT "Vokabeldateien" 

207 3D pixlocate 250,47:PRINT "Erstellungsdatum" 

208 z5 TIMER ON 

209 cB y=54 

210 n9 FOR i=l TO md 

211 T96 y=y+10 

212 om IF y>210 THEN y=204:SCR0LL (8,55)-(340,204),0,-10 

213 cC TIMER OFF 

214 Iq pixlocate l6,y:PRINT d$(i) 

215 kZ pixlocate 250,y:PRINT da$(i) 

216 TD TIMER ON 

217 af4 NEXT 

218 03 WHILE M0USE(0)<0:WEND 

219 V6 WHILE M0USE(0)=0:WEND 

220 uW RETURN 

221 BPO REM Vokabeln eingeben 

222 Xd2 eingabe: 

223 0Z4 WHILE INKEY$< > "":WEND 

224 DN loeschen 

225 Gl funktion 3 

226 rB vokfenster 

227 fD franzfont 0,116 

228 h5 fenster 260,116,372,83 

229 sS TIMER OFF 

230 j5 COLOR 3,2 

231 TI pixlocate 272,133:PRINT "Information:" 

232 bq pixlocate 272,149:PRINT "Vokabelanzahl :" 

233 Lz pixlocate 272,163:PRINT "Speicherbedarf:" 

234 7h kästen 400,141,51,11 

235 WB kästen 400,155,51,11 

236 hO kästen 560,141,51,11 

237 5U COLOR 3,5 

238 9H pixlocate 406,l49:PRINT USING "# # # ";mv 

239 o2 pixlocate 406,l63:PRINT USING "# # # $";mv*100/mmv 

240 tF COLOR 3,2 

241 19 pixlocate 462,149:PRINT "von maximal" 

242 AZ COLOR 3,5 

243 Nt pixlocate 566,149:PRINT USING "# # # # ";mmv 

244 Zf TIMER ON 

245 IJ kästen 272,173,339,11 

246 SK LINE (272,175)“(272+mv^^336/mmv,181) ,3,bf 

247 2n2 vokeingabe: 

248 ET4 mv=mv+l 

249 19 IF mv>mmv THEN mv=mmv: fehler 100,100,33:RETURN 

250 Dn TIMER OFF 

251 Ji COLOR 3,5 

252 oe pixlocate 16,61:PRINT SPACE$(LEN(v$(mv-l,0))) 

253 tH pixlocate 16,99:PRINT SPACE$(LEN(v$(mv-l,lh) 

254 jp TIMER ON 

255 RK z$="" 

256 rs Stringeingabe 16,61,73,5 

257 8a IF z$="" THEN mv=mv-l:RETURN 

258 7C v$(mv,0)=z$:z$="":va=l 

259 kW Stringeingabe 16,99,73,5 

260 Bd IF z$="" THEN mv=mv-l:RETURN 

261 Co v$(mv,l)=z$ 

262 Pz TIMER OFF 

263 Vu COLOR 3,5 


Listing 2. Das Hauptprogramm »Trainer HP« muß sich 
auf der Diskette im Laufwerk befinden, das im 
Ladeprogramm angegeben ist. Ansonsten erscheint 
»File not fond«. Bitte mit dem Checksummer 
(Seite 159) eingeben. 
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264 Zh 

pixlocate 406,149:PRINT USING '# # # ^;rav 

265 V3 

pixlocate 406,163:PRINT USING # *';mv*100/rarav 

266 qU 

LINE (272+(rav-1) if336/mrav, 175) - (272+rav*336/rarav, 181), 3, 
bf 

267 w2 

TIMER ON 

268 DX 

GOTO vokeingabe 

269 CxO 

REM Vokabeln ausgeben 

270 502 

ausgabe: 

271 y84 

loeschen 

272 75 

Funktion 4 

273 RA 

IF mv=0 THEN fehler 0,30,42:RETURN 

274 Wj 

Fenster 0,30,350,75 

275 FN 

Fenster 24,116,350,75 

276 YV 

inForraation 380,30 

277 8R 

Fenster 396,116,236,75 

278 Sq 

kästen 408,126,205,11 

279 Hd 

kästen 408,142,205,11 » 

280 qJ 

kästen 408,158,205,11 

281 f6 

kästen 408,174,205,11 

282 JJ 

TIMER OFF 

283 pE 

COLOR 3,5 

284 hl 

pixlocate 418,134:PRINT '"1 10 Vokabel zurück" 

285 Wq 

pixlocate 418,150:PRINT "1 10 Vokabel weiter" 

286 Ea 

pixlocate 418,166:PRINT "Statistik ausgeben" 

287 lA 

pixlocate 418,182:PRINT "Zura Hauptmenü" 

288 HN 

TIMER ON 

289 Fo 

LINE (438,127)-(439,135),3,b 

290 S5 

LINE (476,127)-(477,135),3,b 

291 xS 

LINE (438,l43)-(439,151),3,b 

292 AJ 

LINE (476,l43)-(477,151),3,b 

293 NI 

n=l:nl=n 

294 ON 

z$=v$(n,0) 

295 DJ 

vokausgabe 11,46,z$ 

296 TV 

z$=v$(n,l) 

297 n6 

vokausgabe 35,132,z$ 

298 J92 

abFrageT: 

299 hM4 

WHILE M0USE(0)<0:WEND 

300 oP 

WHILE M0USE(0)=0:WEND 

301 uP 

x=M0USE(3):y=M0USE(4) 

302 cH 

IF y<120 THEN ausgrafik 

303 dV 

IF x<399 OR x>626 OR y>191 THEN abfrageT 

304 Vk 

IF'y>172 THEN RETURN 

305 WY 

IF y>156 THEN vokstatist 

306 VH 

IF y>l40 THEN IF x>439 AND x<480 THEN n=n+10:G0T0 
vokausg ELSE n=n+l:GOTO vokausg 

307 MB 

IF y>119 THEN IF x>439 AND x<480 THEN n=n-10 ELSE 
n=n“l 

308 f02 

vokausg: 

309 JN4 

IF n<l THEN n=mv ELSE IF n>mv THEN n=l 

310 GJ 

LINE (ll,38)-(338,102),2,bf 

311 AZ 

LINE (35,124)-(360,189),2,bf 

312 If 

z$=v$(n,0) 

313 Vb 

vokausgabe 11,46,z$ 

314 Pn 

z$=v$(n,l) 

315 50 

vokausgabe 35,132,z$ 

316 Hr 

TIMER OFF 

317 Nm 

COLOR 3,5 

318 F7 

pixlocate 572,78:PRINT USING "# # # # ";n 

319 ms 

TIMER ON 

320 GT 

LINE (nli^2l6/ramv+393,90)-(nl»2l6/ramv+393,96) ,3 

321 c6 

LINE (n*2l6/mmv+393,90)-(n»2l6/mmv+393,96),4 

322 hx 

nl=n 

323 ih 

GOTO abfrageT 

324 Di2 

ausgrafik: 

325 qo4 

IF x<396 OR x>6ll OR y<89 OR y>99 THEN abfrageT 

326 qr 

x=x-394 

327 4C 

n=CINT(x*ramv/2l6) 

328 JR 

IF n>mv THEN n=nl:G0T0 abfrageT 

329 Ou 

GOTO vokausg 

330 7p2 

vokstatist: 

331 TL4 

Fenster 0,195,632,35 

332 X7 

TIMER OFF 

333 Ok 

COLOR 3,2 

334 XP 

pixlocate 8,210:PRINT "Übersetzung abfragen:" 

335 xj 

pixlocate 8,224:PRINT "Fremdwort abfragen :"; 

336 al 

pixlocate 346,210:PRINT "Schrift üben:"; 

337 gb 

kästen 180,202,161,11 

338 55 

kästen 180,216,161,11 

339 Fra 

kästen 456,202,161,11 

340 k9 

COLOR 3,5 

341 UX 

pixlocate 184,210:PRINT USING "# # # von ";st(n,l); 

342 z9 

PRINT USING "### = ";st(n,0); 


343 OS 

IF st(n,0) THEN PRINT USING "# # # <";st(n,l)*100/st 
(n,0) ELSE PRINT " 0 Jf" 

344 rl 

pixlocate 184,224:PRINT USING "# # # von ";st(n,3); 

345 8K 

PRINT USING "### = ";st(n,2); 

346 rO 

IF st(n,2) THEN PRINT USING "# # # «";st(n,3)*100/st 
(n,2); ELSE PRINT " 0 t"; 

347 Wa 

pixlocate 460,210:PRINT USING "# # # von ";st(n,5); 

348 HV 

PRINT USING "### = ";st(n,4); 

349 Ka 

IF st(n,4) THEN PRINT USING "# # # 5{";st(n,5)*100/st 
(n,4) ELSE PRINT " 0 56" 

350 MO 

LINE (580,2l6)-(6l6,226),5,bF 

351 9o 

rahmen 580,216,37,11 

352 6C 

pixlocate 582,224:PRINT " OK"; 

353 KQ 

TIMER ON 

354 Vt2 

abfrage5: 

355 bG4 

WHILE M0USE(0)<0:WEND 

356 IJ 

WHILE M0USE(0)=0:WEND 

357 oJ 

x=M0USE(3):y=M0USE(4) 

358 UZ 

IF x<580 OR X>616 OR y<2l6 OR y>226 THEN abfrage5 

359 kE 

LINE (0,195)-(631,230),l,bf 

360 JI 

GOTO abfrageT 

361 VyO 

REM Vokabeln editieren 

362 MW2 

editieren: 

363 ga4 

Funktion 5 

364 Un 

IF mv=0 THEN fehler 100,70,43:RETURN 

365 kN 

menue 100,70,200,44,46 

366 Zw 

IF be THEN RETURN 

367 ue 

ON aw GOTO verbessern,vokloeschen,sploeschen 

368 BnO 

REM Vokabeln verbessern 

369 VR2 

verbessern: 

370 Zj4 

loeschen 

371 Me 

Funktion 44 

372 9d 

vokauswahl 

373 g3 

IF be THEN RETURN 

374 dn 

loeschen 

375 Ga 

vokfenster 

376 ZW 

FranzFont 0,120 

377 Gq 

TIMER OFF 

378 Ml 

COLOR 3,5 

379 ac 

pixlocate 16,99:PRINT v$(aw,l) 

380 Ir 

TIMER ON 

381 Y7 

WHILE INKEY$<> "":WEND 

382 HH 

z$=v$(aw,0) 

383 uv 

Stringeingabe 16,61,73,5 

384 pi 

IF z$<> "" THEN v$(aw,0)=z$:va=l 

385 QM 

z$=v$(aw,l) 

386 nz 

Stringeingabe 16,99,73,5 

387 WA 

IF z$<>"" THEN v$(aw,l)=z$ 

388 cE 

RETURN 

389 WIO 

REM Vokabeln loeschen 

390 KF2 

vokloeschen: 

391 u44 

loeschen 

392 J2 

Funktion 45 

393 Uy 

vokauswahl 

394 10 

IF be THEN RETURN 

395 Vg 

n=aw 

396 hL 

frage 50,70,47 

397 Du 

IF aw=0 THEN RETURN 

398 wZ 

FOR i=n TO mv 

399 bo6 

FOR J=0 TO 1 

400 r68 

v$(i,J)=v$(i+l,J) 

401 Yd6 

NEXT 

402 q7 

FOR J=0 TO 5 

403 BS8 

st(i,J)=st(i+l,J) 

404 bg6 

NEXT 

405 ch4 

NEXT 

406 q7 

mv=mv-l 

407 ju 

va=l 

408 wY 

RETURN 

409 AbO 

REM Speicher loeschen 

410 d02 

sploeschen: 

411 E04 

loeschen 

412 5P 

Funktion 46 

413 56 

IF va THEN frage 0,30,48:IF aw=0 THEN RETURN 

4l4 vC 

IF va=0 THEN frage 0,30,49:IF aw=0 THEN RETURN 

415 Gu 

FOR i=l TO mv 

4l6 4L6 

FOR J=0 TO 5 

417 1J8 

st(i,J)=0 

418 pu6 

NEXT 

419 qv4 

NEXT 

420 OL 

mvsO:va=0:lad=0:mbn=0 

421 91 

RETURN 
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422 r40 REM Vokabeln suchen 

423 GB2 suche: 

424 lb4 funktion 6 

425 jM menue 100,84,200,15,16 

426 Xu IF be THEN RETURN 

427 vd ON aw GOTO spsuche,disksuche 

428 laO REM Vokabeln im Speicher suchen 

429 VD2 spsuche: 

430 Xh4 loeschen 

431 vd IF mv=0 THEN fehler 0,30,50:RETURN 

432 bo GOSUB Suchbegriff 

433 Ul IF Z$='"' THEN RETURN 

434 VN su$=UCASE$(z$) 

435 cm loeschen 

436 8L fenster 0,30,350,75 

437 rz fenster 24,116,350,75 

438 A7 Information 380,30 

439 el FOR i=l TO mv 

440 Hr6 TIMER OFF 

441 Nm COLOR 3,5 

442 On pixlocate 572,78:PRINT USING '####';! 

443 ms TIMER ON 

444 97 LINE ((i-l)»2l6/mmv+393,90)-((i-l)*2l6/mmv+393,96), 

3 

445 DX LINE (i^^2l6/mmv+393,90)-(i*2l6/mmv+393,96) ,4 

446 nE IF INSTR(UCASE$(v$(i,0)),su$)=0 AND INSTR(UCASE$(v$ 

(i,l)),su$)=0 THEN nextvok 

447 Tw LINE (ll,38)-(338,102),2,bf 

448 Nm LINE O5,124)-(360,189) ,2,bf 

449 GY z$=v$(i,0) 

450 io vokausgabe 11,46,z$ 

451 Ng z$=v$(i,l) 

452 Ib vokausgabe 35,132,z$ 

453 Om frage 390,115,51 

454 Tp IF aw THEN vokgef 

455 wl LINE (390,110)-(630,170),l,bf 

456 qL2 nextvok: 

457 SX4 NEXT 

458 ah fehler 390,U5,52 

459 IN RETURN 

460 mt2 vokgef: 

461 204 LINE (390,110)-(630,170),l,bf 

462 hp fehler 390,115,53 

463 pR RETURN 

464 vP2 Suchbegriff: 

465 g54 fenster 0,30,632,47 

466 hH TIMER OFF 

467 Yu COLOR 3,2 

468 qM pixlocate 12,46:PRINT HBitte einen Suchbegriff eingeb 

en: 

469 CI TIMER ON 

470 pu LINE (12,56)-(6ll,66),5,bf 

471 Y8 rahmen 12,56,600,11 

472 wp 

473 bf Stringeingabe 16,64,73,5 

474 Oc RETURN 

475 NBO REM Vokabel auf Diskette suchen 

476 Y42 disksuche: 

477 IS4 loeschen 

478 vm IF md=0 THEN fehler 0,30,31:RETURN 

479 Qm fenster 0,30,632,190 

480 vV TIMER OFF 

481 m8 COLOR 3,2 

482 vF pixlocate 12,47:PRINT '^itte Dateien markieren, die d 

urchsucht werden sollen:" 

483 CY FOR i=l TO md 

484 iV6 dra(i)=0 

485 uz4 NEXT 

486 5e y=54 

487 Gc FOR i=l TO md 

488 wc6 y=y+10 

489 Tw pixlocate 20,y:PRINT d$(i) 

490 pj4 IF y<176 THEN NEXT 

491 Ln kästen 16,198,121,15 

492 U7 kästen 147,198,121,15 

493 DN kästen 280,198,121,15 

494 NR kästen 432,198,180,15 

495 Fe COLOR 3,5 

496 PA pixlocate 28,208:PRINT "letzte Datei" 

497 ry pixlocate 156,208:PRINT "nächste Datei" 

498 Ik pixlocate 284,208:PRINT "Suche beginnen" 

499 8G pixlocate 442,208:PRINT "Zurück zum Hauptmenü" 


500 5R COLOR 3,2 

501 io TIMER ON 

502 2V n=l:e=l:be=0 

503 ze WHILE MOUSE(O) <0:WEND 

504 Bd2 abfrage9: 

505 7i4 WHILE M0USE(0)=0:WEND 

506 Di x=M0USE(3):y=M0USE(4) 

507 if IF y<54 OR y>212 THEN abfrage9 

508 5v IF y<198 THEN aw=INT((y-47)/10) :GOTO datmark 

509 mz IF x>431 THEN be=l: RETURN 

510 fy IF x>279 THEN voksuchen 

511 w3 IF md<l4 THEN abfrage9 

512 vE IF x>l46 THEN n=n+l ELSE IF x>15 THEN n=n-l 

513 PY IF n=0 THEN n*l:G0T0 abfrage9 ELSE IF n+12>md THEN n 

=md-12:G0T0 abfrage9 

514 T3 TIMER OFF 

515 Kg COLOR 3,2 

516 kV IF n<e THEN datzurueck 

517 la SCROLL (12,56)-(l90,185),0,-10 

518 li IF dm(n+12) THEN COLOR 2,3 ELSE COLOR 3,2 

519 BN pixlocate 12,184:PRINT " " d$(n+12) SPACE$(21-LEN(d$( 

n+12))) 

520 17 TIMER ON 

521 4u e=n 

522 34 GOTO abfrage9 

523 0K2 datzurueck: 

524 VP4 SCROLL (12,56)-(190,185),0,10 

525 3U IF dm(n) THEN COLOR 2,3 ELSE COLOR 3,2 

526 6g pixlocate 12,64:PRINT " " d$(n) SPACE$(21-LEN(d$(n))) 

527 8E TIMER ON 

528 Bl e=n 

529 AB GOTO abfrage9 

530 1G2 datmark: 

531 9A4 IF aw+n-l>md THEN abfrage9 

532 hN dm(aw+n-l)=l-dm(aw+n-l) 

533 mM TIMER OFF 

534 r7 IF dm(aw+n-l) THEN COLOR 2,3 ELSE COLOR 3,2 

535 aP pixlocate 12,54+aw»10:PRINT " " d$(aw+n-l) SPACE$(21- 

LEN(d$(aw+n-l))) 

536 fl COLOR 3,2 

•537 10 TIMER ON 

538 YD WHILE MOUSE(O) <0:WEND 

539 KL GOTO abfrage9 

540 yd2 voksuchen: 

541 KU4 loeschen 

542 Na GOSUB Suchbegriff 

543 Gn IF z$="" THEN RETURN 

544 H9 su$=UCASE$(z$) 

545 OY loeschen 

546 u7 fenster 0,30,350,75 

547 dl fenster 24,116,350,75 

548 wt Information 380,30 

549 2c TIMER OFF 

550 8X COLOR 3,5 

551 97 pixlocate 572,64:PRINT " 0" 

552 OM pixlocate 572,78:PRINT " 0" 

553 Ye TIMER ON 

554 cG LINE (394,90)-(609,96),5,bf 

555 Mi FOR i=l TO md 

556 4L6 IF dra(i)=0 THEN nextdat 

557 Rv OPEN d$(i)+". "+LEFT$(na$(anw) ,3) FOR INPUT AS #1 

558 qa INPUT #l,e 

559 ko FOR j=l TO e 

560 Rd8 FOR k=l TO 3 

561 IpA INPUT #l,e$ 

562 9E8 NEXT 

563 AF6 NEXT 

564 wg INPUT #l,e 

565 Is TIMER OFF 

566 On COLOR 3,5 

567 bK pixlocate 572,64:PRINT USING ''#### ";e 

568 nt TIMER ON 

569 rV LINE (394,90)-(609,96),5,bf 

570 8Y LINE b93,90)-(e*2l6/mmv+393,96) ,3,bf 

571 wo FOR J=1 TO e 

572 Pz8 TIMER OFF 

573 Vu COLOR 3,5 

574 Bz pixlocate 572,78:PRINT USING 

575 uO TIMER ON 


Listing 2. (Fortsetzung) 
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576 m6 

s=(J -1) *2l6/imnv+393: t=J ^^2l6/mmv+393 

577 pU 

LINE (s,90)-(s,96),3 

. 578 4h 

LINE (t,90)-(t,96),4 

579 fB 

LINE INPUT #l,e$ 

580 2e 

LINE INPUT #l,s$ 

581 p2 

FOR k=0 TO 5 

582 aQA 

INPUT #l,s 

583 UZ8 

NEXT 

584 ch 

IF INSTR(UCASE$(e$),su$)=0 AND INSTR(UCASE$(s$),s 
u$)=0 THEN nextvok2 

585 hA 

LINE (ll,38)-(338,102),2,bf 

586 bO 

LINE (35,124)-(360,189),2,bf 

587 OE 

z$=e$ 

588 w2 

vokausgabe 11,46,z$ 

589 Yc 

z$=s$ 

590 Wp 

vokausgabe 35,132,z$ 

591 cO 

frage 390,115,51 

592 OB 

IF aw THEN CLOSE 1:G0T0 vokgef 

593 AW 

LINE (390,110)-(630,170),l,bf 

594 eR2 

nextvok2: 

595 gl6 

NEXT 

596 QA 

CLOSE 1 

597 Mw2 

nextdat: 

598 Jo4 

NEXT 

599 ry 

fehler 390,115,52 

600 2e 

RETURN 

601 BDO 

REM Vokabeln abfragen 

602 Jm2 

abfrage: 

603 2F4 

IF mv=0 THEN CALL loeschen:fehler 0,30,54:RETURN 

604 Op 

menue 100,70,210,17,20 

605 Qn 

IF be THEN RETURN 

606 JA 

IF aw=l THEN einpraegen 

607 H7 

mbn=mbn+l 

608 Je 

IF mbn>10 THEN mbn=10:F0R 1=0 TO 9: FOR J=0 TO 2:bp$( 
i,J)=bn$(i+l,j):NEXT J,i 

609 Vx 

bn$(mbn,0)=dat$ 

610 pl 

bn$(mbn,1)=LEFT$(TIME$,5) 

611 fR 

ON aw-1 GOTO uebersetz,Fremdwort,Schrift 

612 QKO 

REM Vokabeln einpraegen 

613 202 

einpraegen: 

614 Vf4 

loeschen 

615 6d 

Funktion 17 

616 2F 

Fenster 0,30,350,75 

617 It 

Fenster 24,116,350,75 

618 41 

Information 380,30 

619 PA 

Fenster 400,116,232,67 

620 Ex 

kästen 412,127,200,11 

621 3k 

kästen 412,143,200,11 

622 M7 

kästen 412,165,200,11 

623 Eo 

TIMER OFF 

624 KJ 

COLOR 3,5 

625 Dz 

pixlocate 420,135:PRINT "letzte Vokabel" 

626 vF 

pixlocate 420,151:PRINT "nächste Vokabel" 

627 n 

pixlocate 420,173:PRINT "Zurück zum Hauptmenü" 

628 9V 

COLOR 3,2 

629 ms 

TIMER ON 

630 Tr 

z$=v$(l,0) 

631 dj 

vokausgabe 11,46,z$ ^ 

632 az 

z$=v$(l,l) 

633 DW 

vokausgabe 35,132,z$ 

634 mU 

n=l:e=l 

635 üy2 

abfragelO: 

636 8n4 

WHILE M0USE(0)<0:WEND 

637 Fq 

WHILE M0USE(0)=0:WEND 

638 Lq 

x=M0USE(3):y=M0USE(4) 

639 Fy 

IF x<4l3 OR x>6ll OR y<125 OR y>177 THEN abfragel 

Q 

640 OG 

IF y>l64 THEN RETURN 

641 nl 

IF y>l40 THEN n=n+l ELSE n=n-l 

642 gk 

IF n<l THEN n=mv ELSE IF n>mv THEN n=l 

643 Y8 

TIMER OFF 

644 e3 

COLOR 3,5 

645 WO 

pixlocate 572,78:PRINT USING "# # # # ";n 

646 39 

TIMER ON 

647 aY 

s=e^^2l6/mmv+393: t=n*2l6/mmv+393 

648 7x ) 

e=n 

649 ze 

LINE (s,90)-(s,96),3 

650 Er 

LINE (t,90)-(t,96),4 

651 lE 

LINE (ll,38)-(338,102),2,bf 

652 f4 

LINE (35,124)-(360,189),2,bf 

653 nA 

z$=v$(n,0) 

654 06 

vokausgabe ll,46,z$ 


655 ul 

z$=v$(n,l) 

656 at 

vokausgabe 35,132,z$ 

657 09 

GOTO abfragelO 

658 ZyO 

REM Uebersetzung abfragen 

659 gd2 

uebersetz: 

660 rP4 

Funktion 18 

661 C3 

ab=l 

662 Jb 

GOTO abfragen 

663 NT2 

Fremdwort: 

664 xW4 

Funktion 19 

665 Bl 

ab=0 

666 DW2 

abfragen: 

667 JU 

menue 140,93,214,21,23 

668 Ro 

IF be THEN RETURN 

669 Je 

re=aw 

670 4i 

ausgmaske 

671 x6 

Fenster 390,116,241,75 

672 xf 

kästen 402,126,210,11 

673 cG 

kästen 402,140,210,11 

674 za 

kästen 402,156,72,11 

675 CO 

kästen 540,156,72,11 

676 Bw 

kästen 402,174,210,11 

677 6g 

TIMER OFF 

678 Cb 

COLOR 3,5 

679 nh 

pixlocate 410,134.-PRINT "insgesamt abgefragt: 0" 

680 GO 

pixlocate 410,148:PRINT "davon gewußt : 0" 

681 TT 

pixlocate 410,164:PRINT "richtig" 

682 OR 

pixlocate 552,164:PRINT "falsch" 

683 hq 

pixlocate 410,182:PRINT "Zurück zum Hauptmenü" 

684 3P 

COLOR 3,2 

685 gm 

TIMER ON 

686 ne 

e=l 

687 Lm2 

bestfolge: 

688 324 

n=0 

689 KV 

ON re GOSUB reihenfolge,gemischt,koennen 

690 NA2 

naechstvok: 

691 dh4 

n=n+l 

692 G9 

IF n>mv THEN bestfolge 

693 Ru 

LINE (ll,38)-(338,102),2,bf 

694 Lk 

LINE (35,124)-(360,189),2,bf 

695 Fr 

z$=v$(re(n),l-ab) 

696 gm 

vokausgabe 11,46,z$ 

697 32 

IF ab THEN rel=0 ELSE rel=2 

698 RI 

TIMER OFF 

699 Xw 

COLOR 3,5 

700 PH 

pixlocate 572,78:PRINT USING "# # # #';n 

701 SQ 

s=e*2l6/ramv+393: t=n^t2l6/mmv+393 

702 qV 

LINE (s,90)-(s,96),3 

703 5i 

LINE (t,90)-(t,96),4 

704 Ir 

e=n 

705 KT 

pixlocate 570,134:PRINT USING "# # # # ";st(re(n),rel 
) 

pixlocate 570,148:PRINT USING "# # # # ";st(re(n),rel 

-n) 

706 kG 

707 Qm 

COLOR 3,2 

708 39 

TIMER ON 

709 Jy 

WHILE M0USE(0)<0:WEND 

710 Ql 

WHILE M0USE(0)=0:WEND 

711 W1 

x=MOUSE(3):y=MOUSE(4) 

712 51 

IF x>400 THEN IF y>170 THEN abfrbeenden 

713 vZ 

z$=v$(re(n),ab) 

714 Wp 

vokausgabe 35,132,z$ 

715 rM2 

abfrage11: 

716 Q54 

WHILE MOUSE(0)<0:WEND 

717 X8 

WHILE M0USE(0)=0:WEND 

718 d8 

x=M0USE(3):y=M0USE(4) 

719 GA 

IF x<402 OR x>6ll OR y<154 OR y>190 THEN abfragel 

X 

720 El 

IF y>170 THEN abfrbeenden 

721 H6 

IF x<506 THEN st(re(n),rel+l)=st(re(n),rel+l)+l 

722 W2 

st(re(n),rel)=st(re(n),rel)+l 

723 k6 

GOTO naechstvok 

724 182 

abfrbeenden: 

725 ly4 

bn$(mbn,2)=LEFT$(TIME$,5) 

726 d9 

IF lad THEN st=l:z$=d$(lad) :GOTO datspeichem 

727 5h 

RETURN 

728 cGO 

REM Schrift ueben 

729 062 

Schrift: 

730 pB4 

Funktion 20 

731 IN 

menue 140,93,214,21,23 

732 Tq 

IF be THEN RETURN 

733 Lg 

re=aw 
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734 6k 

ausgraaske 


816 Vj 

IF mv=0 THEN CALL loeschen:fehler 0,30,55.‘RETURN 

735 yX 

franzfont 402,116 


817 Of 

menue 100,90,250,24,26 

736 kp 

fenster 0,196,350,35 


818 rE 

IF be THEN RETURN 

737 4e 

TIMER OFF 


819 68 

Funktion 23+aw 

738 vH 

COLOR 3,2 


820 MX 

n=aw 

739 HK 

pixlocate 12,211:PRINT '"insgesamt abgefragt:'" 


821 QG 

IF n=l THEN ab=0 ELSE IF n*2 THEN ab=2 ELSE ab=4 

740 f6 

pixlocate 12 , 225 :PRINT Mavon gevmßt : 


822 dX 

fenster 0,30,632,197 

741 eH 

kästen 180,203,50,11 


823 iJ 

y=38 

742 31 

kästen 180,217,50,11 


824 T3 

TIMER OFF 

743 Fe 

COLOR 3,5 


825 sW 

FOR i=l TO mv 

744 f J 

kästen 260,203,70,11 


826 SA6 

y=y+12 

745 4n 

kästen 260,217,70,11 


827 Mi 

COLOR 3,2 

746 Oz 

pixlocate 268,211:PRINT '"richtig'" 


828 80 

pixlocate 12,y:PRINT USING "###.";! 

747 Xy 

pixlocate 268,225:PRINT '"falsch'"; 


829 Rk 

pixlocate 56,y:PRINT LEFT$(v$(i,0),31) 

748 hn 

TIMER ON 


830 tp 

kästen 320 ,y- 8 , 98 ,ll 

749 WZ 

abs 2 :e=l 


831 f4 

COLOR 3,5 

750 Qn2 

bestfolge 2 : 


832 W4 

pixlocate 324,y:PRINT USING "# # #";st(i,ab+l); 

751 434 

n =0 


833 M5 

PRINT " von " USING "# # # ";st(i,ab) 

752 LW 

ON re GOSUB reihenfolge,gemischt,koennen 


834 FL 

kästen 430,y-8,180,ll 

753 OT2 

vokeingeben: 


835 qO 

IF st(i,ab) THEN LINE (431,y-6)-(431+st(i,ab+l)*176 

754 ei4 

n=n+l 



/st(i,ab),y), 3 ,bf 

755 Rc 

IF n>mv THEN bestfolge2 


836 4t4 

IF y<180 THEN NEXT 

756 Sv 

LINE (ll,38)-(338,102),2,bf 


837 vj 

e= 0 :el =0 

757 Ml 

LINE (35,124)-(360,189),2,bf 


838 5J 

FOR i=l TO mv 

758 5c 

z$=v$(re(n),l) 


839 AY 6 

e=e+st(i,ab) 

759 hn 

vokausgabe 11,46,z$ 


840 nU 

el=el+st(i,ab+l) 

760 RI 

TIMER OFF 


841 ej4 

NEXT 

761 Xw 

COLOR 3,5 


842 dm 

IF e THEN s=el*100/e ELSE s=0 

762 PH 

pixlocate 572,78:PRINT USING '"#### ';n 


843 AJ 

kästen 12,192,280,11 

763 SQ 

s=e*2l6/mmv+393: t=n^^2l6/mmv+393 


844 Ds 

kästen 304,192,114,11 

764 qV 

LINE (s,90)-(s,96),3 


845 EG 

kästen 430,192,180,11 

765 5i 

LINE (t,90)-(t,96),4 


846 f 8 

kästen 12,210,134,11 

766 Ir 

e=n 


847 OJ 

kästen 158,210,134,11 

767 Xx 

pixlocate 188,211:PRINT USING '"#### ^st(re(n),4) 


848 eX 

kästen 430,210,180,11 

768 Ox 

pixlocate 188,225:PRINT USING '"# # # # '";st(re(n),5); 


849 xM 

COLOR 3,5 

769 Qm 

COLOR 3,2 


850 Vw 

pixlocate 18,200:PRINT "Durchschnittlich "USING"## 

770 39 

TIMER ON 



# % gewußt";s 

771 qP 

WHILE INKEY$<>'"'":WEND 


851 QH 

pixlocate 308,200:PRINT USING ^ 

772 mf 

z$='"'" 


852 31 

PRINT " von " USING "# # # # ";e 

773 km 

Stringeingabe 35,132,40,2 


853 71 

IF e THEN LINE (431,194)-(431+el*176/e,200),3,bf 

774 oY 

z$=UCASE$(z$) 


854 JB 

pixlocate 22,218:PRINT "letzte Vokabel" 

775 9G 

IF 2 $='"'" THEN abfrbeenden 


855 Hf 

pixlocate 164,218:PRINT "nächste Vokabel" 

776 JD 

st(re(n),4)=st(re(n),4)+l 


856 nu 

pixlocate 440,218:PRINT "Zurück zum Hauptmenü" 

777 8 J 

e$=UCASE$(v$(re(n),0)) 


857 N5 

n=l:e=l 

778 bG 

IF e$=z$ THEN richtig 


858 iN 

WHILE M0USE(0)<0:WEND 

779 uX2 

teilwort: 


859 Gra2 

abfrage 12 : 

780 oE4 

s=INSTR(e$,'") 


860 qR4 

WHILE M0USE(0)=0:WEND 

781 Bu 

IF s=0 THEN s=LEN(e$)+l 


861 wR 

x=M0USE(3):y*M0USE(4) 

782 kq 

IF.LEFT$(e$,s-l)=z$ THEN richtig 


862 cN 

IF x<12 OR x>609 OR y<210 OR y>220 THEN abfragel2 

783 hS 

e$=MID$(e$,s+l) 


863 k3 

IF x>429 THEN RETURN 

784 MW 

IF e$<>"" THEN teilwort 


864 5B 

IF rav <13 THEN abfragel2 

785 mE 

LINE (262,204)-(327,212),5,bf 


865 ZP 

IF x>292 THEN abfragel2 

786 Lv 

LINE (262,218)-(327,226),3,bf 


866 Sh 

IF x>151 THEN n=n+l ELSE n=n-l 

787 sS 

TIMER OFF 


867 es 

IF n=0 THEN n=l:GOTO abfragel2 ELSE IF n+ll>mv THEN 

788 yN 

COLOR 3,5 



n=mv-ll:GOTO abfragel2 

789 hg 

pixlocate 268,211:PRINT '"richtig'" 


868 Bl 

TIMER OFF 

790 wL 

COLOR 5,3 


869 20 

COLOR 3,2 

791 Fg 

pixlocate 268,225:PRINT "falsch"; 


870 hk 

IF n<e THEN nextstat 

792 vK 

LINE (35,124)-(360,189),2,bf 


871 gM 

SCROLL (12,42)-(609,184),0,-12 

793 oA 

COLOR 3,2 


872 LQ. 

pixlocate 12,182:PRINT USING "# # # . ";n+ll 

794 b7 

z$=v$(re(n), 0 ) 


873 KY 

pixlocate 56,182:PRINT LEFT$(v$(n+ll,0),31) 

795 p 8 

vokausgabe 35 , 132 ,z$ 


874 RJ 

kästen 320,174,98,11 

796 TZ 

TIMER ON 


875 Nm 

COLOR 3,5 

797 uN 

FOR s=l TO 3000:NEXT 


876 91 

pixlocate 324,182:PRINT USING "# # # ";st(n+ll,ab+l); 

798 kP 

WHILE M0USE(0)<0:WEND 


877 81 

PRINT " von " USING "# # # ";st(n+ll,ab) 

799 7X 

WHILE MOUSE(0)=0 AND INKEY$="'":WEND 


878 np 

kästen 430,174,180,11 

800 ZD 

GOTO vokeingeben 


8*79 VC 

IF st(n+ll,ab) THEN LINE (431,176)'-(431+st(n+ll,ab+l) 

801 pt 2 

richtig: 



*176/st(n+ll,ab),182),3,bf 

802 zP4 

LINE (262,204)-(327,212),3,bf 


880 pv 

TIMER ON 

803 gl 

LINE (262,218)-(327,226),5,bf 


881 si 

e=n 

804 9J 

TIMER OFF 


882 ny 

GOTO ab frage 12 

805 Ba 

COLOR 5,3 


883 xv 2 

nextstat: 

806 yx 

pixlocate 268,211:PRINT '"richtig'" 


884 pp4 

SCROLL (12,38)-(609,184),0,12 

807 Hg 

COLOR 3,5 


885 9T 

pixlocate 12,50:PRINT USING "# # # . ";n 

808 Wx 

pixlocate 268,225:PRINT "falsch'"; 


886 2Z 

pixlocate 56,50:PRINT LEFT$(v$(n,0),31) 

809 4Q 

COLOR 3,2 


887 9z 

kästen 320,42,98,11 

810 hn 

TIMER ON 


888 az 

COLOR 3,5 

811 Is 

st(re(n),5)=st(re(n),5)+l 


889 LX 

pixlocate 324,50:PRINT USING "# # # ";st(n,ab+l); 

812 IP 

GOTO vokeingeben 


890 lA 

PRINT " von " USING "# # # ";st(n,ab) 

813 860 

REM Statistik ausgeben 




814 vi 2 

Statistik: 




815 Gy4 

funktion 8 


Listing 2. (Fortsetzung) 
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891 6N kästen 430,42,180,11 

892 ZR IF st(n,ab) THEN LINE (431,44)-(431+st(n,ab+l)*176/st 

(n,ab),50),3,bf 

893 28 TIMER ON 

894 5v e=n 

895 OB GOTO abfragel2 

896 UVO REM Programm beenden 

897 wq2 ende; 

898 hL4 Funktion 9 

899 6G loeschen 

900 Lc IF va THEN frage 0,30,56:IF aw=0 THEN RETURN ELSE anw 

speichern 

901 sh frage 0,30,57 

902 M3 IF aw=0 THEN RETURN 

903 972 anwspeichem: 

904 Wh4 IF anw=0 THEN beenden 

905 XZ abn$(mabn,2)=LEFT$(TIME$,5) 

906 3P OPEN 'BENUTZT. %LEFT$(na$(anw),3) FOR OUTPUT AS 1 

907 yW PRINT #l,mabn 

908 j4 FOR i=l TO mabn 

909 s66 FOR j=0 TO 2 

910 xF8 PRINT #l,abn$(i,J) 

911 mr6 NEXT 

912 ns4 NEXT 

913 XH CLOSE 1 

914 ru IF fae THEN GOSUB faspeichem 

915 EB2 beenden: 

916 yM4 MENU RESET 

917 J4 COLOR 3,1 

918 MS CLS 

919 ZU END 

920 hwO REM SonderFunktionen 

921 lu2 sonderfunktion: 

922 pF4 Funktion 10 

923 oe raenue 90,80,230,59,61 

924 Zw IF be THEN RETURN 

925 Xi ON aw GOTO Farbwechsel,datum,benutzung 

926 qkO REM Farben aendern 

927 aQ2 Farbwechsel: 

928 Zj4 loeschen 

929 cv Funktion 59 

930 IN Fenster 0,30,348,112 

931 yT rahmen 14,44,248,19 

932 Rp FOR i=l TO 7 

933 g06 LINE (i»t34-12,48)-(i»34+l6,58),i,bf 

934 9E4 NEXT 

935 sy rahmen 20,47,33,13 

936 Jd FOR i=l TO 3 

937 NE6 kästen 14,1*16+56,248,11 

938 ag kästen 276,1*16+56,50,11 

939 mM FOR J=1 TO 16 

940 xN8 e=248/l6*j+5 

941 xS LINE (e,i*l6+65)-(e+l,i*l6+66),3,b 

942 HM6 NEXT 

943 IN4 NEXT 

944 qr kästen 150,124,176,11 

945 QO TIMER OFF 

946 Wv COLOR 3,5 

947 Al pixlocate 284,80:PRINT "rot" 

948 XZ pixlocate 284,96:PRINT "grün" 

949 Ih pixlocate 284,112:PRINT "blau" 

950 SF pixlocate 158,132:PRINT "Zurück zum Hauptmenü" 

951 y4 TIMER ON 

952 Zt FOR i=l TO 3 

953 KL6 e=farb(l,i-l)*l5.5 

954 oO LINE (e+4,i*l6+58)-(e+7,i*l6+63),4,bF 

955 UZ4 NEXT 

956 RR n=l 

957 vS2 abfragel3: 

958 Kz4 WHILE MOUSE(O) <0:WEND 

959 R2 WHILE MOUSE(0)=0:WEND 

960 X2 x=MOUSE(3):y=MOUSE(4) 

961 9h IF x<l4 OR x>325 OR y<44 OR y>l4l THEN abfragel3 

962 Xf IF y>123 THEN IF x>l48 THEN farbbeenden 

963 wi IF x>260 THEN abfragel3 

964 uJ IF y<63 THEN farbaendern 

965 Qd x=INT((x+2)/15.5) 

966 bL IF y>101 THEN y=2 ELSE IF y>85 THEN y=l ELSE y=0 

967 Th e=Farb(n,y)*15.5+4 

968 we LINE (e,y*l6+74)-(e+3,y*l6+79),5,bf 

969 dG farb(n,y)=x 

970 It IF n=l THEN farb(0,y)=x 


Fae=l 

e=farb(n,y)*15.5+4 

LINE (e,y*l6+74)-(e+3,y*l6+79),4,bf 

PALETTE n,fI(farb(n,0)),FI(Farb(n,l)),Fl(Farb(n,2)) 

IF n=l THEN PALETTE 0,F!(Farb(n,0)),fI(farb(n,l)),FI( 
farb(n,2)) 

GOTO abfrage13 
farbaendern: 
x=INT((x+14)/34) 

IF x<l THEN x=l ELSE IF x>7 THEN x=7 
LINE (n*34-l4,47)-(n*34+18,59),2,b 
LINE (n*34-13,47)-(n*34-13,59),2 
LINE (n*34+17,47)-(n*34+17,59),2 
FOR i=0 TO 2 
e=farb(n,i)*15.5+4 
LINE (e,i*l6+74)-(e+3,1*16+79),5,bf 
NEXT 


rahmen n*34-l4,47,33,13 
FOR i=0 TO 2 
e=farb(n,i)*15.5 

LINE (e+4,i*16+74)-(e+7,i*l6+79),4,bf 
NEXT 

GOTO abfragel3 
Farbbeenden: 

FOR i=0 TO 7 
FOR j=0 TO 2 

fa(anw,i,J)=farb(i,j) 

NEXT 

NEXT 

RETURN 

REM Abfragedaten ausgeben 
datum :- 
loeschen 
Funktion 60 

IF mv=0 THEN fehler 0,30,62: RETURN 
IF lad=0 THEN Fehler 0,30,63: RETURN 
IF mbn=0 THEN fehler 0,30,64: RETURN 
Fenster 0,30,450,mbn*12+46 
TIMER OFF 
COLOR 3,2 

pixlocate 12,47:PRINT "AbFragedaten zur Vokabeldatei 


1012 JA kästen 260,39,174,11 

1013 bO COLOR 3,5 

1014 IN pixlocate 268,47:PRINT d$(lad) 

1015 Sz y=52 

1016 PI COLOR 3,2 

1017 yY FOR i=l TO mbn 

1018 YG6 y=y+12 

1019 Yx pixlocate 12,y:PRINT bn$(i,0) 

1020 ec pixlocate 110,y:PRINT "von " bn$(i,l) " Uhr bis 

" bn$(i,2) " Uhr" 

1021 Yd4 NEXT 

1022 q4 kästen 389,mbn*12+60,44,11 

1023 lA COLOR 3,5 

1024 mt pixlocate 402,mbn*12+68:PRINT "OK" 

1025 Yu COLOR 3,2 

1026 BH TIMER ON 

1027 8g2 abfragel4: 

1028 S74 WHILE MOUSE(O) <0:WEND 

1029 ZA WHILE MOUSE(0)=0:WEND 

1030 FA x=M0USE(3):y=M0USE(4) 

1031 7G IF x<389 OR x>432 THEN abfragel4 

1032 9F IF y-mbn*12<60 OR y-mbn*12>70 THEN abFragel4 

1033 Id RETURN 

1034 TeO REM Benutzungsdaten ausgeben 

1035 TP2 benutzung: 

1036 JT4 loeschen 

1037 CJ Funktion 61 

1038 Jz IF man=0 THEN Fehler 0,30,65:RETURN 

1039 rF Fenster 0,30,372,mabn*12+46 

1040 xX TIMER OFF 

1041 oA COLOR 3,2 

1042 Xk pixlocate 12,47:PRINT "Benutzungsdaten von" 

1043 Km kästen 180,39,174,11 

1044 6V COLOR 3,5 

1045 84 pixlocate 186,47:PRINT na$(anw) 

1046 xU y=52 

1047 uG COLOR 3,2 

1048 zK FOR i=l TO mabn 

1049 316 y=y+12 
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1050 qt pixlocate 12,y:PRINT abn$(i,0) 

1051 tj pixlocate 110,y:PRINT *von ^ abn$(i,l) * Uhr bis 

1052 cl IF abn$(i,2)<>'' THEN PRINT abn$(i,2) '' Uhr" ELSE 

PRINT "jetzt" 

1053 494 NEXT 

1054 4F kästen 310,mabn*12+60,44,11 

1055 Hg COLOR 3,5 

1056 VC pixlocate 323,mabn^^ 12+68:PRINT "OK" 

1057 4Q COLOR 3,2 

1058 hn TIMER ON 

1059 jI2 abfragel5: 

1060 yd4 WHILE M0USE(0)< 0:WEND 

1061 5g WHILE M0USE(0)=0:WEND 

1062 Bg x=M0USE(3):y=M0USE(4) 

1063 GO IF x<309 OR x>352 THEN abfragel5 

1064 RG IF y-mabn*12<60 OR y-mabn*12>70 THEN abfragel5 

1065 X9 RETURN 

1066 ZNO REM Unterprogramme 

1067 FX REM MenueFunktion ausgeben 

1068 0Z2 SUB Funktion (n) STATIC 

1069 Q04 TIMER OFF 

1070 Hd COLOR 3,2 

1071 3d pixlocate 10,16:PRINT t$(n) SPACE$(40-LEN(t$(n))) 

1072 vl TIMER ON 

1073 LN END SUB 

1074 rKO REM Bildschirm loeschen 

1075 up2 SUB loeschen STATIC 

1076 qX4 LINE (0,23)-(632,230),l,bF 

1077 PR END SUB 

1078 aFO REM Rahmen ausgeben 

1079 cF2 SUB rahmen (x,y,l,b) STATIC 

1080 IW4 LINE (x,y)-(x+l-l,y+b-l),3,b 

1081 TG LINE (x+l,y)-(x+l,y+b-2),3 

1082 mO LINE U+l-2,y)-(x+l-2,y+b-2),3 

1083 VX END SUB 

1084 xSO REM Fenster ausgeben 

1085 VS2 SUB Fenster (x,y,l,b) STATIC 

1086 ST4 LINE (x,y+4)-(x+l-8,y+b-l),2,bF 

1087 HB LINE (x,y+4)-(x+l-8,y+b-l),3,b 

1088 iV LINE (x+l,y+5)-(x+l,y+b-2),3 

1089 TI LINE (x+l-9,y+5)-(x+l-9,y+b-2),3 

1090 ay LINE (x+8,y)-(x+l-l,y+3),3,bF 

1091 wS LINE (x+l-7,y+4)-(x+l-l,y+b-5),3,bF 

1092 eg END SUB 

1093 siO REM Kasten ausgeben 

1094 AX2 SUB kästen (x,y,l,b) STATIC 

1095 Fd4 LINE (x,y)-(x+l-l,y+b-l),5,bF 

1096 w4 rahmen x,y,l,b 

1097 jl END SUB 

1098 UEO REM Fenster Fuer Vokabelausgabe 

1099 e62 SUB vokFenster STATIC 

1100 cy4 Fenster 0,30,632,80 

1101 wW TIMER OFF 

1102 47 pixlocate 12,46;PRINT "Fremdwort:" 

1103 UH pixlocate 12,84:PRINT "Übersetzung:" 

1104 RX TIMER ON 

1105 gO kästen 12,53,600,11 

1106 jT kästen 12,91,600,11 

1107 tv END SUB 

1108 NSO REM Ausgabemaske erstellen 

1109 RM2 SUB ausgmaske STATIC 

1110 VF4 loeschen 

1111 lE Fenster 0,30,350,75 

1112 ks Fenster 24,116,350,75 

1113 30 inFormation 380,30 

1114 02 END SUB 

1115 EwO REM InFormationsFenster ausgeben 

1116 rx2 SUB inFormation (x,y) STATIC 

1117 K34 SHARED mv,mmv 

1118 qL Fenster x,y,252,75 

1119 Eo - TIMER OFF 

1120 5R COLOR 3,2 

1121 lY pixlocate x+12,y+18:PRINT "InFormation: 

1122 OG pixlocate x+12,y+34:PRINT "Vokabelanzahi gesamt:" 

1123 x7 pixlocate x+12,y+48:PRINT "Vokabelnummer :" 

1124 S1 kästen x+188,y+26,44,ll 

1125 Fk kästen x+188,y+40,44,ll 

1126 Qp COLOR 3,5 

1127 8W pixlocate x+192,y+34:PRINT USING "####";mv 

1128 Wh pixlocate x+192,y+48:PRINT " 1" 

1129 qw TIMER ON 


1130 yq kästen x+12,y+58,220,ll 

1131 kO LINE (x+13,y+60)-(x+13+mv*2l6/mmv,y+66),3,bF 

1132 GH LINE (x+l4,y+60)-(x+l4,y+66),4 

1133 JL END SUB 

1134 FLO REM Cursor auF GraFikkoordinaten positionieren 

1135 gF2 SUB pixlocate (x,y) STATIC 

1136 3E4 s&=WIND0W(8)+36:t&=WIND0W(8)+38 

1137 5Z POKEW s&,x:POKEW t&,y 

1138 OQ END SUB 

1139 pEO REM MenueFunktion 

1140 Di2 SUB menue (x,y,l,at,et) STATIC 

1141 ja4 SHARED aw,be 

1142 2b b=(et-at+l)»14+12:be=0 

1143 3L Fenster x,y,l,b 

1144 dD TIMER OFF 

1145 Uq COLOR 3,2 

1146 Y1 FOR i=at TO et 

1147 cA6 pixlocate x+12,(i-at)»l4+y+18:PRINT t$(i) 

1148 bg4 NEXT 

1149 AG TIMER ON 

1150 5P2 abFragel: 

1151 R64 WHILE M0USE(0)<0:WEND 

1152 y9 WHILE M0USE(0)=0:WEND 

1153 bR xp=M0USE(3):yp=M0USE(4) 

1154 NW IF xp<x+l OR xp>x+l-8 OR yp<y+4 OR yp>y+b-l THEN 

be=l:EXIT SUB 

1155 Jq aw=INT((yp-y+4)/l4) 

1156 74 IF aw<l OR aw>et-at+l THEN abFragel 

1157 qQ TIMER OFF 

1158 k7 COLOR 4,2 

1159 hH pixlocate x+12,aw»l4+y+4:PRINT t$(at+aw-l) 

1160 LR TIMER ON 

1161 ln END SUB 

1162 cKO REM Fragestellung 

1163 er2 SUB Frage (x,y,n) STATIC 

1164 Tv4 SHARED aw 

1165 M2 e=l:el=l:s=l:l=0 

1166 jd WHILE el 

1167 PM6 el=INSTR(e,t$(n),"»") 

1168 uP IF el-e>l THEN l=el-e 

1169 qy IF el THEN e=el+l:s=s+l 

1170 J74 WEND 

1171 Qw IF LEN(t$(n))-e+l>l THEN l=LEN(t$(n))-e+l 

1172 EX l=l»8+32 

1173 11 Fenster x,y,l,s»12+24 

1174 9F e$=t$(n):e=y+4:el=l 

1175 8i TIMER OFF 

1176 tn WHILE el 

1177 Z16 el=INSTR(e$,"»"):e=e+12 

1178 R8 IF el THEN pixlocate x+12,e:PRINT LEFT$(e$,el-l) 

1179 NX e$=MID$(e$,el+l) 

1180 TH4 , WEND 

1181 IF s=s+l 

U82 XR pixlocate x+12,e:PRINT e$ 

1183 XE FOR i=x+l-108 TO x+1-58 STEP 50 

1184 LZ6 LINE (i,y+s»12-2)-(i+36,y+s»12+7),5,bF 

1185 es LINE (i,y+s»12-2)«(i+36,y+s»12+7),3,b 

1186 g4 LINE (i-l,y+s»12-2)-(i-l,y+s»12+7),3 

1187 9V LINE U+37,y+s»12-2)-(i+37,y+s»12+7),3 

1188 FK4 NEXT 

1189 PÜ e=e+13 

1190 Sr COLOR 3,5 

1191 TW pixlocate x+1-98,e:PRINT "ja" 

1192 RK pixlocate x+l-55,e:PRINT "nein" 

1193 sy TIMER ON 

1194 vH2 abFrage3: 

1195 9o4 WHILE MOUSE(0)<0:WEND 

1196 Gr WHILE M0USE(0)=0:WEND 

1197 J9 xp=M0USE(3):yp=MOUSE(4) 

1198 CV IF xp<x+l-109 OR xp>x+l-22 OR yp<e-7 OR yp>e+2 TH 

EN abFrage3 

1199 Bv IF xp<x+l-63 THEN aw=l ELSE aw=0 

1200 OQ END SUB 

1201 KPO REM Fehlermeldung 

1202 KH2 SUB Fehler (x,y,n) STATIC , 

1203 ye4 e=l:el=l:s=l:l=0 

1204 LF WHILE el 

1205 ly6 el=INSTR(e,t$(n),"»") 

1206 W1 IF el-e>l THEN l=el-e 

1207 Sa IF el THEN e=el+l:s=s+l 
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1208 vj4 WEND 

1209 2Y IF LEN(t$(n))-e+l>l THEN l=LEN(t$(n))-e+l 

1210 q9 l=H^8+32 

1211 Pg fenster x,y,l,s*12+25 

1212 Ir e$=t$(n):e=y+4:el=l 

1213 kK TIMER OFF 

1214 bx COLOR 3,2 

1215 WQ WHILE el 

1216 Ce6 el=INSTR(e$,'^*^):e=e+12 

1217 41 IF el THEN pixlocate x+12,e:PRINT LEFT$(e$,el-l) 

1218 OA e$=MID$(e$,el+l) 

1219 6u4 WEND 

1220 es s=s+l 

1221 A4 pixlocate x+12,e:PRINT e$ 

1222 AY LINE (x+l-54,y+s»12-2)-(x+l-18,y+s*12+8),5,bf 

1223 JB LINE ü+l“54,y+sitl2-2)-(x+l-18,y+s»12+8),3,b 

1224 JC LINE (x+l-55,y+s»12-2)-(x+l-55,y+s»12+8),3 

1225 Ap LINE (x+l-17,y+s»12-2)-(x+l-17,y+s*12+8),3 

1226 2R COLOR 3,5 

1227 39 e=e+l4 

1228 NF pixlocate x+l-44,e:PRINT '^OK^ 

1229 SY TIMER ON 

1230 Zw2 abfrage4: 

1231 j04 WHILE MOUSE(0)<0:WEND 

1232 qR WHILE M0USE(0)=0:WEND 

1233 tj xp=MOUSE(3):yp=M0USE(4) 

1234 WN IF xp<x+l-55 OR xp>x+l-17 OR yp<e-8 OR yp>e+2 THE 

N abfrage4 

1235 xz END SUB 

1236 klO REM Datei auswaehlen 

1237 M22 SUB dateiauswahl STATIC 

1238 yL4 SHARED rad,be,aw 

1239 g2 fenster 0,30,632,190 

1240 Bl TIMER OFF 

1241 20 COLOR 3,2 

1242 GL pixlocate 16,47:PRINT *Vokabeldatei^ 

1243 Iv pixlocate 250,47:PRINT "Erstellungsdatum 

1244 Js y=54 

1245 Uq FOR i=l TO md 

1246 Aq6 y=y+10 

1247 xV pixlocate 16,y:PRINT d$(i) 

1248 PE pixlocate 250,y:PRINT da$(l) 

1249 4y4 IF y<176 THEN NEXT 

1250 a2 kästen 16,198,121,15 

1251 jM kästen 147,198,121,15 

1252 bf kästen 432,198,180,15 

1253 Ts COLOR 3,5 

1254 dO pixlocate 28,208:PRINT "letzte Datei" 

1255 5C pixlocate 156,208:PRINT "nächste Datei" 

1256 LT pixlocate 442,208:PRINT "Zurück zum Hauptmenü" 

1257 uO TIMER ON 

1258 Eh n=l:e=l:be=0 

1259 Bq WHILE MOUSE(O) <0:WEND 

1260 Ba2 abfrage6: 

1261 Ju4 WHILE MOUSE(0)=0:WEND 

1262 Pu x=M0USE(3):y=M0USE(4) 

1263 cl IF y<54 OR y>212 THEN abfrage6 

1264 2t IF y<198 THEN aw=INT((y-47)/10) :G0T0 datwahl 

1265 Xy IF x>431 THEN be=l:EXIT SUB 

1266 y2 IF md<l4 THEN abfrage6 

1267 6P IF x>l46 THEN n=n+l ELSE IF x>15 THEN n=n-l 

1268 CF IF n=0 THEN n=l:GOTO abfrage6 ELSE IF n+12>rad THEN n 

=md-12:G0T0 abfrage6 

1269 eE TIMER OFF 

1270 xJ IF n<e THEN SCROLL (16,55)-(340,185),0,10:pixlocate 

16,64:PRINT d$(n):pixlocate 250,64:PRINT da$(n) 

1271 3K IF n>e THEN SCROLL (16,55)-(340,185) ,0,-10:pixlocate 

16,184:PRINT d$(n+12):pixlocate 250,184:PRINT da$(n+l 

2 ) 

1272 9F TIMER ON 

1273 C2 e=n 

1274 zx GOTO abfrage6 

1275 Jp2 datwahl: 

1276 424 IF aw+n-l>md THEN abfrage6 

1277 mM TIMER OFF 

1278 fl COLOR 2,3 

1279 TK pixlocate 8,54+aw»10:PRINT " " d$(aw+n.l) SPACE$(29-L 

EN(d$(aw+n-l))) 

1280 CI pixlocate 242,54+aw*10:PRINT " " da${aw+n-l) " " 

1281 g2 COLOR 3,2 

1282 JP TIMER ON 

1283 s9 aw=aw+n-l 


1284 km END SUB 

1285 suO REM Vokabel auswaehlen 

1286 232 SUB vokauswahl STATIC 

1287 084 SHARED aw,be,rav 

1288 Tp fenster 0,30,632,190 

1289 yY TIMER OFF 

1290 gJ pixlocate 16,47:PRINT "Fremdwort" 

1291 4B pixlocate 320,47:PRINT "Übersetzung" 

1292 5e y=54 

1293 sE COLOR 3,2 

1294 R5 FOR i=l TO rav 

1295 xd6 y=y+10 

1296 8T pixlocate l6,y:PRINT LEFT$(v$(i,0),37) 

1297 Ap pixlocate 320,y:PRINT LEFT$(v$(i,l),36) 

1298 rl4 IF y<176 THEN NEXT 

1299 hG kästen 16,198,137,15 

1300 J1 kästen 163,198,137,15 

1301 OS kästen 432,198,180,15 

1302 Gf COLOR 3,5 

1303 Am pixlocate 28,208:PRINT "letzte Vokabel" 

1304 PI pixlocate 172,208:PRINT "nächste Vokabel" 

1305 8G pixlocate 442,208:PRINT "Zurück zum Hauptmenü" 

1306 hn TIMER ON 

1307 lU n=l:e=l:be=0 

1308 yd WHILE M0USE(0)<0:WEND 

1309 6X2 abfrage8: 

1310 6h4 WHILE MOUSE(0)=0:WEND 

1311 Ch x=M0USE(3):y=M0USE(4) 

1312 bc IF y<54 OR y>212 THEN abfrage8 

1313 FC IF y<198 THEN aw=INT((y-47)/10) :GOTO vokwahl 

1314 Kl IF x>431 THEN be=l:EXIT SUB 

1315 bX IF mv<l4 THEN abfrage8 

1316 JO IF X>162 THEN n=n+l ELSE IF x>15 THEN n=n-l 

1317 JW IF n=0 THEN n=l:GOTO abfrage8 ELSE IF n+12>mv THEN n 

=mv-12:G0T0 abfrage8 

1318 RI TIMER OFF 

1319 le COLOR 3,2 

1320 db IF n<e THEN SCROLL (16,56)-(611,185),0,10:pixlocate 

16,64:PRINT LEFT$(v$(n,0),37):pixlocate 320,64:PRINT L 
EFT$(v$(n,l),36) 

1321 mQ IF n>e THEN SCROLL (16,56)-(611,185) ,0,-10:pixlocate 

16,184:PRINT LEFT$(v$(n+12,0),37):pixlocate 320,184:P 
RINT LEFT$(v$(n+12,l),36) 

1322 x3 TIMER ON 

1323 Oq e=n 

1324 w GOTO abfrage8 

1325 ng2 vokwahl: 

1326 o64 IF aw+n-l>rav THEN abfrage8 

1327 aA TIMER OFF 

1328 Tp COLOR 2,3 

1329 Gv pixlocate 8,54+aw*10:PRINT " " LEFT$(v$(aw+n-l,0),37) 

SPACE$(38-LEN(LEFT$(v$(aw+n-1,0),37))) 

1330 J1 pixlocate 312,54+aw*10:PRINT " " LEFT$(v$(aw+n-l,l),3 

6 ) SPACE$(37-LEN(LEFT$(v$(aw+n-1,1),36))) 

1331 Uq COLOR 3,2 

1332 TD TIMER ON 

1333 gx aw=aw+n-l 

1334 Ya END SUB 

1335 GaO REM Zeichenkette eingeben 

1336 yY2 SUB Stringeingabe (x,y,raz,f) STATIC 

1337 Bh4 SHARED z$ 

1338 IL TIMER OFF 

1339 YO IF z$<>"" THEN COLOR 3,f:pixlocate x,y:PRINT z$;:C0 

LOR f,4:PRINT " " ELSE COLOR f,4:pixlocate x,y:PRINT " 

1340 dz COLOR 3,2 

1341 GM TIMER ON 

1342 Fa2 abfrage2: 

1343 4U4 e$=INKEY$:IF e$="" THEN abfrage2 

1344 em ac=ASC(e$) 

1345 XK IF ac=8 THEN delet 

1346 zG IF ac=13 THEN enter 

1347 k8 IF LEN(z$)=mz THEN abfrage2 

1348 la IF ac>128 AND ac<139 THEN e$=CHR$(ff(ac-128)) 

1349 wW TIMER OFF 

1350 zB COLOR 3,f 

1351 cJ pixlocate x+LEN(z$)^^8,y:PRINT e$; 

1352 Sf COLOR f,4 

1353 R8 PRINT " " 

1354 3F COLOR 3,f 

1355 Ua TIMER ON 

1356 Ry z$=z$+e$ 
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1357 4y GOTO abfrage2 

1358 sQ2 delet: 

1359 H64 IF THEN abfrage2 

1360 7h TIMER OFF 

1361 bo COLOR f,4 

1362 aa pixlocate x+LEN(z$)^^8-8,y:PRINT ' 

1363 CO COLOR 3,f 

1364 cJ PRINT • 

1365 ek TIMER ON 

1366 JQ z$=LEFT$(z$,LEN(z$)-l) 

1367 E8 GOTO abfrage2 

1368 pn2 enter: 

1369 Gq4 TIMER OFF 

1370 JV COLOR 3,f 

1371 y7 pixlocate x+LEN(z$)»8,y:PRINT ' 

1372 Ir TIMER ON 

1373 BD END SUB 

1374 VcO REM Vokabel aufgeteilt ausgeben 

1375 Jx2 SUB vokausgabe (x,y,e$) STATIC 

1376 Zt4 yp=y-10 

1377 Oy TIMER OFF 

1378 Fb COLOR 3,2 

1379 QK2 koinmasu: 

1380 2E4 e=INSTR(e$,*') 

1381 g5 IF e=0 THEN yp=yp+10:IF yp<y+58 THEN pixlocate x,yp: 

PRINT LEFT$(e$,40):GOTO beendenausg ELSE beendenausg 

1382 2D yp=yp+10 

1383 p9 IF yp>y+58 THEN beendenausg 

1384 Y5 pixlocate x,yp:PRINT LEFT$(LEFT$(e$,e-l),40) 

1385 JG e$=MID$(e$,e+l) 

1386 XO GOTO koinmasu 

1387 nx2 beendenausg: 

1388 174 TIMER ON 

1389 RT END SUB 

1390 sZO REM franzoesische SonderZeichen 

1391 SF2' SUB franzfont (x,y) STATIC 

1392 pP4 fenster x,y,230,83 

1393 eE TIMER OFF 

1394 Vr COLOR 3,2 

1395 Cb pixlocate x+12,y+l6:PRINT ''franz. Zeichensatz:'" 

1396 t7 xp=0:yp=l 

1397 nC COLOR 3,5 

1398 hF FOR i=l TO 10 

1399 v86 xp=xp+l:IF xp=4 THEN xp=l:yp=yp+l 

1400 ex s=x+xp»70-58:t=y+yp*l4+10 

1401 eX LINE (s,t)-(s+58,t+9),5,bf 

1402 YQ rahmen s,t,60,ll 

1403 3P pixlocate s+6,t+8:PRINT USING ""F# #: '";i;:PRINT CH 

R$(ff(i)) 

1404 Jo4 NEXT 

1405 10 TIMER ON 

1406 ik END SUB 

1407 SyO REM Abfrage nach Reihenfolge festlegen 

1408 NX2 reihenfolge: 

1409 GG4 FOR s=l TO mv 

1410 lt6 re(s)=s 

1411 qv4 NEXT 

1412 8k RETURN 

1413 890 REM Abfrage gemischt festlegen 

1414 Up2 gemischt: 

1415 JI4 FOR s=0 TO mv 

1416 cf6 re(s)=0 

1417 wl4 NEXT 

1418 Zf FOR s=l TO INT(mv/2) 

1419 yz2 zufalll: 

1420 0 I 6 t=INT(RND(l)*mv)+l 

1421 QA IF re(t) THEN zufalll 

1422 2B re(t)*s 

1423 274 NEXT 

1424 F6 t=INT(mv/2) 

1425 WW FOR s=l TO mv 

1426 h06 IF re(s)=0 THEN t=t+l:re(s)=t 

1427 6B4 NEXT 

1428 00 RETURN 

1429 IsO REM Abfrage nach Koennen festlegen 

1430 Ht2 koennen: 

1431 WP4 IF ab=l THEN u=0 ELSE IF ab=0 THEN u=2 ELSE u=4 

1432 eW l=0:el=0 

1433 ee FOR s=l TO mv 

1434 Sm6 i=i+st(s,u) 

1435 C9 el=el+st(s,u+l) 

1436 Yp vo(s)=0 


1437 GL4 NEXT 

1438 oP IF i+€l=0 THEN gemischt 

1439 06 i=el*100/i 

1440 RY el=0 

1441 mm FOR s=l TO mv 

1442 H86 IF INT(st(s,u+l)^»100/st(s,u))<=i THEN el=el+l:rel( 

el)=s:vo(s)=l 

1443 MR4 NEXT 

1444 eu2 auffuellen: 

1445 pz4 i=i+10 

1446 rr FOR s=l TO mv 

1447 m06 IF INT(st(s,u+l)i^lOO/st(s,u)) >=1 THEN zugut 

1448 Bra IF rel(el)=s THEN zugut 

1449 4a IF vo(s)>l THEN zugut 

1450 ey el=el+l:rel(el)=s:vo(s)=vo(s)+l 

1451 zO IF el>=mv THEN aufbeenden 

1452 qB2 zugut: 

1453 Wb4 NEXT 

1454 eT GOTO auffuellen 

1455 Xf2 aufbeenden: 

1456 114 FOR s=l TO mv 

1457 HK6 re(s)=0 

1458 bg4 NEXT 

1459 16 FOR s=l TO mv/2 

1460 gi2 zufall2: 

1461 V06 u=INT(RND(l)»mv)+l 

1462 Aw IF re(u) THEN zufall2 

1463 nl IF re(u-l)=rel(s) OR re(u+l)srel(s) THEN zufall2 

1464 Sx re(u)=rel(s) 

1465 ln4 NEXT 

1466 xp u=INT(mv/2) 

1467 CC FOR 8=1 TO mv 

1468 AK6 IF re(s)=0 THEN u=u+l:re(s)=rel(u) 

1469 mr4 NEXT 

1470 4g RETURN 

1471 gOO REM Dateinamen laden 

1472 sm2 SUB datnamenlad STATIC 

1473 nB4 SHARED anw,be,md 

1474 PJ be=0 

1475 IW e$= "DATEIEN.'"+LEFT$(na$(anw),3) 

1476 Bl OPEN e$ FOR APPEND AS #1 

1477 sF s=LOF(l) 

1478 eO CLOSE 1 

1479 68 IF s=0 THEN KILL e$:be=l:EXIT SUB 

1480 3k OPEN D)ATEIEN.'"+LEFT$(na$(anw),3) FOR INPUT AS 1 

1481 hl INPUT #l,md 

1482 Jf FOR i=l TO md 

1483 y06 LINE INPUT #l,d$(i) 

1484 Ft INPUT #l,da$(i) 

1485 274 NEXT 

1486 mW CLOSE 1 

1487 13 END SUB 

1488 TIO REM Dateinamen speichern 

1489 Ho2 SUB datnamensp STATIC 

1490 v94 SHARED anw,md 

1491 IX OPEN 'DATEIEN.''+LEFT$(na$(anw),3) FOR OUTPUT AS #1 

1492 HY PRINT #l,md 

1493 Uq FOR i=l TO md 

1494 CT6 PRINT #l,d$(i) 

1495 pQ PRINT #l,da$(i) 

1496 DI4 NEXT 

1497 xh CLOSE 1 

1498 CE END SUB 

1499 nlO REM Anwendemamen laden 

1500 3U2 SUB anwenderladen STATIC 

1501 Si4 SHARED man 

1502 Jb CHDIR D)F0:/' 

1503 Ro OPEN 'ANWENDER" FOR APPEND AS 1 

1504 Jg s=L0F(l) 

1505 5p CLOSE 1 

1506 WJ IF s=0 THEN anwenderinit 

1507 TV OPEN 'ANWENDER' FOR INPUT AS 1 

1508 oL INPUT #l,man 

1509 qP FOR i=l TO man 

1510 zh6 LINE INPUT #l,na$(i) 

1511 p8 FOR J=0 TO 7 

1512 hr8 FOR k=0 TO 2 

1513 GGA INPUT #l,fa(i,j,k) 

1514 Va8 NEXT 
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1515 Wb6 

NEXT 


1516 Xc4 

NEXT 


1517 Hl 

CLOSE 1 


1518 dr 

EXIT SUB 


1519 Ss2 

anwenderinit: 


1520 kT4 

OPEN '^ANWENDER' FOR OUTPUT AS 1 


1521 uD 

PRINT #1,^0'' 


1522 M6 

CLOSE 1 


1523 bd 

END SUB 


1524 ZMO 

REM Neuen Anwender elnfuegen 


1525 yt2 

neuanwender: 


1526 ep4 

IF man=10 THEN man=0:RETURN 


1527 hL 

man=man+l;anw=man 


1528 10 

na$(man)=z$ 


1529 zi 

FOR s=0 TO 7 


1530 rR6 

FOR t=0 TO 2 


1531 JB8 

fa(man,s,t)=farb(s,t) 


1532 ns6 

NEXT 


1533 ot4 

NEXT 


1534 F7 

CHDIR 'DFO:' 


1535 zi 

OPEN "ANWENDER'' FOR OUTPUT AS 1 


1536 f9 

PRINT #l,man 


1537 (?B 

FOR s=l TO man 


1538 IP6 

PRINT #l,na$(s) 


1539 Fu 

FOR t=0 TO 7 


1540 7d8 

FOR u=0 TO 2 


1541 DqA 

PRINT #l,fa(s,t,u) 


1542 x28 

NEXT 


1543 y36 

NEXT 


1544 z44 

NEXT 


1545 JT 

CLOSE 1 


1546 P5 

OPEN "DATEIEN."+LEFT$(na$(man),3) 

FOR OUTPUT AS 1 

1547 Kd 

PRINT #1,"0" 


1548 mW 

CLOSE 1 


1549 Rd 

OPEN "BENUTZT."+LEFT$(na$(man),3) 

FOR OUTPUT AS 1 

1550 Ng 

PRINT #1,"0" 


1551 pZ 

CLOSE 1 


1552 00 

RETURN 


1553 XNO 

REM Anwenderdatei speichern 


1554 Tlc2 

faspeichern: 


1555 J24 

OPEN "ANWENDER" FOR OUTPUT AS 1 


1556 zT 

PRINT #l,man 


1557 aV 

FOR s=l TO man 


1558 cJ6 

PRINT #l,na$(s) 


1559 ZE 

FOR t=0 TO 7 


1560 Rx8 

FOR u=0 TO 2 


1561 XAA 

PRINT #l,fa(s,t,u) 


1562 HM8 

NEXT 


1563 IN6 

NEXT 


1564 J04 

NEXT 


1565 3n 

CLOSE 1 


1566 cE 

RETURN 


1567 GtO 

REM Benutzungsdaten laden 


1568 w22 

anwbenutzung: 


1569 Tg4 

OPEN "BENUTZT."+LEFT$(na${anw),3) 

FOR INPUT AS 1 

1570 Gr 

INPUT #l,inabn 


1571 05 

FOR s=l TO mabn 


1572 X76 

FOR t=0 TO 2 


1573 hY8 

INPUT #l,abn$(s,t) 


1574 TY6 

NEXT 


1575 UZ4 

NEXT 


1576 Ey 

CLOSE 1 


1577 nP 

RETURN 


1578 9B0 

REM Uhrzeit ausgeben 


1579 5M2 

Uhr: 


1580 Vr4 

COLOR 3,2 


1581 Qw 

pixlocate 550,16:PRINT TIME$ 


1582 sU 

RETURN 


1583 qeO 

REM Datas 


1584 vA2 

DATA Sonntag,Montag,Dienstag,Mittwoch,Donnerstag,Freita 
g,Samstag 

1585 xC 

DATA Vokabel - Trainer Vers. 1.0 


1586 J3 

DATA Diskettenbetrieb 


1587 gG 

DATA Vokabeln eingeben 


1588 w3 

DATA Vokabeln ausgeben 


1589 mb 

DATA Vokabeln editieren 


1590 Aj 

DATA Vokabeln suchen 


1591 cO 

DATA Vokabeln abfragen 


1592 AU 

DATA Statistik ausgeben 


1593 GZ 

DATA Programm beenden 


1594 2d 

DATA SonderFunktionen 


1595 wQ 

DATA Vokabeldatei laden 
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1596 OD 

DATA Vokabeldatei speichern 

1597 Nb 

DATA"Vokabeldatei löschen" 

1598 gx 

DATA Diskette wechseln 

1599 4R 

DATA Im Speicher suchen 

1600 IZ 

DATA Auf Diskette suchen 

1601 kb 

DATA"Vokabeln einprägen" 

1602 fl 

DATA"Übersetzung abfragen" 

1603 81 

DATA Fremdwort abfragen 

1604 JS 

DATA"Schrift üben" 

1605 OK 

DATA Abfrage in Reihenfolge 

1606 qg 

DATA Abfrage gemischt 

1607 JU 

DATA Abfrage nach "Können" 

1608 U7 

DATA "Statistik von Übersetzung" 

1609 45 

DATA Statistik von Fremdwort 

1610 Al 

DATA"Statistik von Schrift-Üben" 

1611 IF 

DATA 

1612 mG 

DATA 

1613 nH 

DATA 

1614 ol 

DATA 

1615 kg 

DATA Auf der eingelegten Diskette^sind keine Vokabeldat 
eien. 

1616 vO 

DATA Es sind keine Vokabeln zum^Sichern im Speicher. 

1617 Jq 

DATA"Der für Vokabeln reservierte^Speicherbereich ist v 
oll." 

1618 oi 

DATA"Diese Vokabeldatei ist nicht auf der*eingelegten D 
iskette.^^Bitte Diskette überprüfen." 

1619 Ng 

DATA Die Vokabeln im Speicher sind*noch nicht gespeiche 
rt worden.»Soll dennoch eine andere Datei»geladen werden 

9 

DATA Mit diesem Dateinamen existiert»schon eine andere 
Datei. 

1620 Lv 

1621 fo 

DATA Soll die Vokabeldatei wirklich»gelöscht werden ? 

1622 VD 

DATA"Auf dieser Diskette sind keine»weiteren Eintragung 
en möglich." 

1623 8Y 

DATA Die Vokabeln im Speicher sind*noch nicht gespeiche 
rt worden.»Soll die Diskette dennoch»gewechselt werden ? 

1624 4w 

DATA Bitte die Diskette wechseln. 

1625 5s 

DATA Auf der eingelegten Diskette befinden»sich keine V 
okabeldateien vom angege-»benen Anwender. 

1626 ut 

DATA Es sind keine Vokabeln zum»Ausgeben im Speicher. 

1627 9S 

DATA Es sind keine Vokabeln zum»Editieren im Speicher. 

1628 yw 

DATA Vokabeln verbessern 

1629 mm 

DATA"Vokabeln löschen" 

1630 73 

DATA"Speicher löschen" 

1631 ti 

DATA"Soll die Vokabel wirklich»gelöscht werden ?" 

1632 JQ 

DATA"Die bearbeitete Vokabeldatei ist»noch nicht gespei 
chert worden.»Soll der Speicher dennoch»gelöscht werden 
? " 

DATA"Soll wirklich der ganze»Speicher gelöscht werden ? 

1633 KA 

1634 yG 

DATA Es sind keine Vokabeln zum»Suchen im Speicher. 

1635 xh 

DATA Ist dies die gesuchte»Vokabel ? 

1636 tn 

DATA Die gesuchte Vokabel»ist nicht im Speicher. 

1637 x8 

DATA"Zurück zum Hauptmenü" 

1 1638 nV 

DATA Es sind keine Vokabeln zum»Abfragen im Speicher. 

1639 4z 

DATA"Es sind keine Vokabeln im Speicher,»zu denen eine 
Statistik ausgegeben»werden könnte." 

1640 Lp 

DATA Die bearbeitete Vokabeldatei ist»noch nicht gespei 
chert worden.»Soll das Programm dennoch»abgebrochen werd 
en ? 

DATA Soll das Programm wirklich»beenden werden ? 

1641 qw 

1642 Gk 

DATA 

1643 Wm 

DATA"Farbwerte ändern" 

1644 21 

DATA Info zu Abfragedaten 

1645 aJ 

DATA Benutzung des Programms 

1646 tO 

DATA"Es sind keine Vokabeln im Speicher,»zu denen die A 
bfragedaten ausgege-»ben werden könnten." 

1647 xl 

DATA Die Vokabeldatei ist bisher»nicht in dieser Form g 
e-»speichert worden. 

1648 yq 

DATA Die aktuelle Vokabeldatei»wurde noch nicht abgefra 
gt. 

1649 nw 

DATA Der aktuelle Anwendemame»ist unbekannt. 

1650 db 

DATA -1 

1651 OT 

DATA 232,233,234,224,226,217,219,244,231,238 

1652 2v 

DATA 0,0.04,0.1,0.16,0.22,0.29,0.35,0.41,0.47,0.54,0.6, 
0.66,0.72,0.79,0.85,0.91 

1653 WO 

DATA 10,9,7,10,9,7,13,13,13,1,1,1,16,1,1,12,10,3,1,10,1 
,1,1,15 

(C) 1988 M&T 

Listing 2. 

. (Schluß) 
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CiNGABEHILFE 


Dieses Programm ist unentbehrlich 
beim Abtippen unserer Listings. 

Es hilft, Tippfehler zu vermeiden und 
spart viel Zeit. 

E in längeres Listing ohne Fehler abzutippen ist (fast) un¬ 
möglich. Aus diesem Grund haben wir in Ausgabe 3/88 
des AMIGA-Magazins eine Eingabehilfe — den Check¬ 
summer »Checkie 42« veröffentlicht. Die hier vorgestellte Version 
1.1 enthält erweiterte Funktionen und bietet mehr Komfort. Damit 
möglichst viele unserer Leser dieses Programm auch tatsächlich 
anwenden, haben wir es möglichst kurz gehalten und in einer 
Sprache programmiert, die alle Abtipper besitzen: Amiga-Basic. 
Die Form der Listings 

Die Listingzeilen bestehen aus einer bis zu vierstelligen Zeilen¬ 
nummer, der zwei- beziehungsweise dreistelligen Prüfsumme 
und der eigentlichen Programmzelle. Beispiel: 


sen, in dem die Frage »Eingabe aus Datei« mit »j« beantwortet 
wird. Dann brauchen Sie nur noch die Checksummen eingeben. 
Der Checksummer holt sich die Zeile aus der angegebenen Datei 
statt von der Tastatur. Entspricht die eingegebene Prüfzahl nicht 
der errechneten, kann die Zeile gleich korrigiert werden. 

Beantworten Sie obige Frage mit »n«, zählt Checkie die in der, 
Datei vorhandenen Zeilen und wartet mit der Zellennummer 
»Anzahl+1« auf die Eingabe einer neuen Zeile. Alle weiteren Ein¬ 
gaben hängt das Programm an die bestehende Datei an. Diese 
Funktion ist sinnvoll, wenn Sie ein Listing In mehreren Tellen ab¬ 
tippen wollen. 

So tippen Sie Listings ab 

Haben Sie anfangs einen Dateinamen eingegeben oder Sie 
hängen neue Zeilen an eine bestehende Datei an, dann arbeiten 
Sie im normalen Eingabemodus. Checkie 42 schlägt dabei eine 
Zeilennummer vor und wartet auf die Prüfsumme. Nach Eingabe 
derselben taucht der Cursor zwischen den zwei Trennstrichen 
auf. Dort muß nun die Zeile »ohne« Zeilennumer und Prüfsumme 
eingegeben werden. Nach Betätigen der Taste < Return > be¬ 


10 TTO print "Hallo!" 

”1 ^ Prüf Code 

'-Ze ilennummer 

Nach einer Leerstelle Im Anschluß an die Zellennummer stehen 
bis zu drei Zeichen Prüfcode. Die einzelnen Zeichen können sein 
eine Ziffer (»0« bis »9«), ein kleiner Buchstabe (»a« bis »z«) oder ein 
Großbuchstabe 
(»A« bis »Z«). Die er- 
sten Zei- 

Chen der Prüfsum- 

me sind der eigent- A F 

liehe Prüfcode. Im ^ ^ 

dritten Zeichen 

die Spaltenposition 

der ersten »Nicht-Leerstelle« verschlüsselt. Das ist für^^^^® 
diejenigen Anwender interessant, welche die Struktur des Li¬ 
stings, also die Einrückungen durch Leerzeichen, übernehmen 
wollen. Ist dies nicht Ihre Absicht, können Sie die Eingabe der 
Checksumme schon nach den ersten beiden Zeichen mit 
< Return > abschließen. Bei Checkie 42 muß die Groß- und Klein¬ 


rechnet Checkie die Prüfsumme. Leerstellen vor und hinter der 
Programmanweisung werden ignoriert. Stimmen Programmzeile 
und Prüfsumme mit derjenigen im Listing überein, speichert der 
Checksummer die Eingabe ab und wartet auf die nächste Zeile. 
Einfügemodus: Wahrscheinlich wird eine abgetippte Zeile mal 
einen Fehler enthalten. Checkie 42 positioniert den Cursor dann 
an den Anfang der Zeile und wartet auf die korrekte Eingabe. Kor¬ 
rekturen lassen sich mit der Backspace- oder Delete-Taste durch¬ 
führen. Um Zeichenfolgen einzufügen, kann kurzfristig mit 
<F2> der Einfügemodus eingeschaltet werden. Dieser Modus 
^^^soHte allerdings nach der Fehlerkorrektur wieder ausge- 

schaltet werden, da 
er ver- 

I # langsamt. 

M A f Sonderfall-Prüf- 

§ F ^ summe ignorie- 

rcn: Möchten Sie 
zum Beispiel 
Kommentarzeile 

nicht »original« übernehmen, läßt sich trotz einer falschen Prüf¬ 
summe eine Übernahme der Zeile mit der Funktionstaste < F6 > 


Schreibung so wie im Listing abgedruckt übernommen werden. 


Eingabehinweis: 

Geben Sie »Checkie 42« (Version 1.1) bitte mit Checkie 42 aus der 
AMIGA-Ausgabe 3/88 oder 12/87 ein. Sollten Sie die alte Eingabehilfe 
nicht besitzen, so tippen Sie das Listing für die Version 1.1 im norma¬ 
len Basic-Editor ohne Prüfsummen und Zeilennummern ab. 

Der Umgang mit Checkie 42 

Nach dem Start fragt das Programm nach einem Dateinamen. 
Unter dem angegebenen Namen speichert Checkie 42 die einge¬ 
gebenen Listingzeilen ab. Existiert bereits eine Datei mit diesem 
Namen auf der Diskette, so haben Sie mit der Abfrage »Nur 
Checksummer ausgeben?« zwei Möglichkeiten: 

<j> Ausgabe der Datei mit Checksumme auf den Bild¬ 
schirm oder den Drucker. 

<n> Einlesen der Programmzeilen aus der 
vorhandenen Datei und Eingabe der 
Checksumme mit der Tastatur. 


erzwingen. Sie können damit aber auch falsche Programmzeilen 
übernehmen. Verwenden Sie deshalb die Taste < F6> nicht ge¬ 
wohnheitsmäßig. Der Checksummer teilt Ihnen nach Beenden 
des Programms mit, wieviel Zeilen er ungeprüft übernommen hat. 
Prüfsumme und Zeilennummer ändern: Natürlich kann es auch 
Vorkommen, daß die Programmzelle zwar richtig abgetippt wurde, 
sich bei der Prüfsumme aber ein Fehler eingeschlichen hat. Nach 
Betätigen von <F1> kann die Prüfsumme korrigiert werden. 
Während der Eingabe der Prüfsumme läßt sich mit <F7> die 
vom Programm vorgeschlagene Zeilennummer verändern. Da¬ 
mit können Sie gezielt nur bestimmte Telle eines Listings über¬ 
nehmen. 

Haben Sie eine mit einem anderen Editor geschriebene Pro¬ 
grammdatei überprüft und nur in wenigen Zeilen Fehler festge¬ 
stellt, lassen sich durch Vorgabe der Nummern diese Zellen ge¬ 
zielt ändern. Bei Angabe der Zellennummer In aufsteigender Rei¬ 
henfolge benötigt das Programm übrigens erheblich weniger Zelt 
fürdle Suche der Zeilen in der jeweiligen Datei. Um die versehent¬ 
liche Übernahme fehlerhafter Zeilen zu verhindern, sperrt das 
Programm bei fehlender Übereinstimmung der Prüfsummen die 
Taste <F7> (Änderung der Zeilennummer). 


Beide Alternativen sind gedacht für Anwender, die ein Listing 
nicht mit dem Zeileneditor des Checkie, sondern mit einem 
schnelleren und/oder komfortableren Editor ihrer Wahl — zum 
Beispiel dem Editor von Amiga-Basic (mit ».."',a« speichern) er¬ 
faßt haben. 

Checkie 42 errechnet nach der Eingabe <j> die Prüfsummen Ih¬ 
res Textes und Sie können diese dann mit dem Listing im 
AMIGA-Magazin vergleichen. Bei der Ausgabe auf den Bild¬ 
schirm schreibt das Programm die Programmzeilen inklusive 
Checksummen zusätzlich in eine Datei auf Diskette mit dem Zu¬ 
satz ».chk«. Diese können Sie später zum Belpiel mit dem CLI- 
Befehl TYPE ohne erneute Berechnung der Prüfsumme noch ein¬ 
mal ausgeben. 

Haben Sie »Nur Checksumme ausgegeben?« mit »n« beant¬ 
wortet, dann können Sie dem Programm den Vergleich überlas¬ 


Fehlerfrei abtippen 

Eingabe beenden: Die Kombination < Ctrl-e> beendet den Pro¬ 
grammlauf nach vollständiger Eingabe des Listings oder für eine 
Unterbrechung. 

Am Schluß noch ein Tip für alle Leser, denen unser Basic-Editor 
zu langsam ist. Die Berechnung der Prüfsummen erfolgt im Un¬ 
terprogramm »CalcSumme«. Dieser Teil ist sehr einfach in schnel¬ 
lere Sprachen, wie beispielsweise C, umsetzbar. 

Wer schon einmal Fehler in einem abgetippten Listing gesucht 
hat, der weiß, wie frustrierend diese Arbeit sein kann. Nutzen Sie 
deshalb den »Checkie 42«. Sie sparen viel Zeit und müssen sich 
nicht dauernd auf die Suche nach tückischen Fehlern begeben. 

(Dieter Behlich/kn) 
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90 H4 dn$=*"' 

91 FV PRINT:PRINT 'Taste drücken' 

92 5r e$=INPUT$(l) 

93 rT RETURN 

94 SL2 END IF 

95 70 LOCATE 7,5:PRINT'Eingabe aus Datei? (j/n) ':e$=INPUT$(l) 

96 Li IFe$='J'THEN 

97 u24 Checkfile=l 

98 08 CLOSE 1 

99 eX GOSÜB backup 

100 WZ OPEN dn$+'.bak' FOR INPUT AS #1 

101 Sk OPEN dn$ FOR OUTPUT AS #2 

102 Oc RETURN 

103 bU2 END IF 

104 77 WHILE NOT EOF(l) 

105 eP4 LINE INPUT #l,e$ 

106 J5 Zeile=Zeile+l 

107 Ay2 WEND 

108 YI CLOSE 1 

109 8A0 NeueDatei: 

110 aM2 OPEN dn$ FOR APPEND AS #2 

111 91 RETURN 

112 7Q0 Dateifehler: 

113 0g2 FFehler=ERR 

114 PB IF FFehler=53 THEN RESUME NEXT 

115 vy ON ERROR GOTO 0 

116 aDO backup: 

117 yXa OPEN dn$ FOR INPUT AS#1 

118 Sj ’ OPEN dn$+'.bak' FOR OUTPUT AS #2 

119 8F flen=LOF(l) 

120 ih WHILE flen >=32000 

121 il4 e$=INPUT$(32000,l) 

122 tL PRINT#2,e$; 

123 QE2 WEND 

124 e7 IF flen THEN 

125 SB4 e$=INPUT$(flen,l) 

126 xP PRINT#2,e$; 

127 2s2 END IF 

128 zg CLOSE 2 : CLOSE 1 

129 R3 RETURN 

130 dOO Bild: 

131 fl2 CLS 

132 Gl LOCATE 2,10 

133 yY PRINT '>>>>>>> Checkie 42 - Der ultimative Checksum 

raer! <<<<<<<' 

134 xR LOCATE 13,zx 

135 Le FOR i=l TO 2 

136 kx4 FOR j=l TO LBZeile 

137 HR6 PRINT 

138 hy4 NEXT j 

139 Hl LOCATE 13+AnzBZeilen+l,zx 

140 hx2 NEXT i 

141 Hl LOCATE 5,30:PRINT '<CTRL e> = Programm beenden' 

142 vd LOCATE 7,8:PRINT '<F2> = EinfÖgemodus ein' 

143 uQ LOCATE 7,40:PRINT '<F1> = Checksumme ändern' 

144 IH LOCATE 9,40:PRINT '<F6> = Zeile speichern' 

145 ME LOCATE 9,8:PRINT '<F3> = Zeile löschen' 

146 v5 LOCATE 11,8:PRINT '<F7> = Zeilennummer ändern' 

147 jL RETURN 

148 5f0 loeschen: 

149 w82 LOCATE zy,l 

150 8S FOR i=l TO AnzBZeilen 

151 Jf4 PRINT TAB(zx);SPACE$(LBZeile) 

152 t92 NEXT i 

153 00 FOR i=0 TO LZeile 

154 V84 z(i)=32 

155 wC2 NEXT i 

156 3F LOCATE zy,l 

157 ora PRINT USING '####';Zeile 

158 dy apos=0 

159 vX RETURN 

160 v50 Eingabesumme: 

161 va2 Farbe=0 : i=l 

162 AB LOCATE sy,sx+l 

163 Xm PRINT 

164 040 blinken: 

165 aC2 Farbe=Farbe XOR 1 

166 QH COLOR Farbe,0 

167 P6 LOCATE sy,sx-15 

168 ln PRINT 'Checksumme:' 

169 ni LOCATE sy,sx+i 

170 ya e$=INKEY$ 

171 IT IF e$=" THEN blinken 

172 Xp COLOR 1,0 

173 dl e=ASC(e$) 

174 fM IF e*5 THEN 

175 KU4 FEnde=wahr : REM <CTRL e> 

176 hf i=AnzCsZ-»-l : REM fertig 

177 Cc2 ELSEIF e=135 THEN 

178 dc4 GOSUB NeuZeile 

179 Bz e=135 


1 CqO REM 

2 KF ;REM *** Checksummer: Checkie 42 

3 4c :REM *** Version 1.1 *** 

4 Ft 'rem 

5 Z7 iStart: 

6 W42 GOSUB Init 

7 Pn GOSUB OpenDatei 

8 mb IF dn$=" THEN Ende 

9 b2 GOSUB Bild 

10 OwO NeueZeile: 

11 K42 GOSUB loeschen 

12 zT GOSUB Eingabesumme 

13 pt IF FEnde=wahr THEN Ende 

14 MVO Wiederholung: 

15 sQ2 GOSUB EingabeZeile 

16 sw IF FEnde=wahr THEN Ende 

17 mO GOSUB CalcSumme s 

18 fB IF FZok = falsch THEN GOTO Wiederholung 

19 oC GOSUB Uebernahme 

20 iv GOTO NeueZeile 

21 mAO Ende: 

22 7S2 GOSUB fertig 

23 72 END 

24 UGO Init: 

25 fD2 wahr=-l 

26 fy falsch=0 

27 Kh LZeile=240 : REM Anzahl Zeichen/Zeile 

28 tz LBZeile=60 : REM Anzahl Zeichen/Bildschirmzeile 

29 OG AnzBZeilen=LZeile/LBZeile 

30 NI zx=6 : zy=l4 : REM Position Zeile 

31 PC sx=20 : sy=5 : REM Position Checksumme 

32 mF AnzCsZ=3 : REM Anzahl Ziffem/Checksumme 

33 QF DIM z(LZeile) 

34 05 DIM cs(AnzCsZ*2) 

35 iz cs(AnzCsZ)=0 : REM Zeilenstart 

36 gv a=0 : b=0 : c=0 : REM Hilfsvariablen 

37 AI i=0 : J=0 : k=0 : REM Zählvariablen 

38 XL FZok = wahr : FCz3=100 

39 Wn Checkfile=0 : Zeile=l 

40 Bb READ Faktor(i) 

41X1 WHILE Faktor(i) 00 

42 ga4 i=i+l 

43 cm READ Faktor(i) : REM Faktorenreihe 

44 9x2 WEND 

45 Gm AnzFak=i 

46 RB DATA 2,3,4,5,6,0 

47 7j RETURN 

48 PWO OpenDatei: 

49 BR2 ON ERROR GOTO Dateifehler 

50 MS CLS 

51 Vu LOCATE 3,5:dn$=":INPUT 'Dateiname: ';dn$ 

52 Fp OPEN dn$ FOR INPUT AS #1 

53 KU IF FFehler=53 THEN NeueDatei 

54 4s LOCATE 5,5:PRINT 'Nur Checksummen ausgeben? (J/n) ':e$=INP 

UT$(1) 

55 gM IFe$='j'THEN 

56 Kq4 LOCATE 7,5:e$=":PRINT 'Bildschirm oder Drucker? (b/d) ' 

:e$=INPUT$(l) 

57 Ku IF e$='d' THEN 

58 KM7 OPEN 'prt:' FOR OUTPUT AS #4 

59 YH4 ELSE 

60 7Y6 OPEN dn$+'.chk' FOR OUTPUT AS #4 

61 vo4 END IF 

62 RR WHILE NOT EOF(l) 

63 yJ6 LINE INPUT#l,e$ 

64 fg apos=LEN(e$) 

65 to z(apos)=32 

66 4L FOR i=l TO apos 

67 sq8 z(i-l)=ASC(MID$(e$,i,l)) 

68 Xn6 NEXT i 

69 cE GOSUB CalcSumme 

70 vp i=0 

71 Rh WHILE z(i)=32 : i=i+l : WEND 

72 4V IF FCz3=i THEN 

73 f98 cs(6)=-l6 : REM Leerstelle 

74 nW6 ELSE 

75 XA8 cs(6)=i : FCz3=i 

76 A36 END IF 

77 2o PRINT USING '# # # #';Zeile; : PRINT ' '; 

78 Wf PRINT#4,USING '# # # #';Zelle; : PRINT#4,' '; 

79 raC FOR i=4 TO 6 

80 7d8 IF cs(i)>35 THEN cs(i)=cs(l)+6 

81 nS IF csU)>9 THEN cs(i)=cs(i)+7 

82 jy PRINT CHR8(cs(i)+48); 

83 8L PRINT#4,CHR$(cs(i)+48); 

84 n36 NEXT i 

85 19 PRINT ' ';e$ 

86 tl PRINT#4,' ';e$ 

87 Qm Zeile=Zeile+l 

88 rf4 WEND 

89 IF CLOSE 1 : CLOSE 4 
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ELSEIF e=8 THEN 
IF i>l THEN 

i*i-l : REM <BS> 

LOCATE sy,sx+i : PRINT 
END IF 

ELSEIF e=13 THEN 

IF i=AnzCsZ THEN i=AnzCsZ+l : 

ELSE 

IF e>47 AND e<58 THEN 
e=e-48 : 

ELSEIF e>64 AND e<91 THEN 
e=e-55 : 

ELSEIF e>96 AND e<123 THEN 
e=e-6l : 

ELSE 

GOTO blinken 
END IF 
PRINT e$; 
cs(i)=e 
i»i+l 
END IF 

IF i<=AnzCsZ THEN blinken 
ESEnde: 

COLOR 1,0 
LOCATE sy,sx-15 
PRINT 'Checksumrae;* 

RETURN 
NeuZeile: 

IF FZok = wahr THEN 
NeuZeile=0 

WHILE e<>13 OR NeuZeile=0 
LOCATE zy,l:PRINT USING '####*';NeuZeile; 
e=ASC(INPUT$(l)) 

IF e>47 AND e<58 THEN NeuZeile=NeuZeile«10+e-48 

IF NeuZeile > 9999 THEN e=8 

IF e=8 THEN NeuZeile=INT(NeuZeile/10) 

WEND 

IF Checkfile THEN 
IF NeuZeile < Zeile THEN 
WHILE NOT EOF(l) 

LINE INPUT#l,e$ 

PRINT# 2, e$ 

WEND 

CLOSE 1 : CLOSE 2 
GOSUB backup 

OPEN dn$+*.bak'' FOR INPUT AS #1 
OPEN dn$ FOR OUTPUT AS #2 
Zeile=l 
END IF 

WHILE (NeuZeile > Zeile) AND (NOT EOF(l)) 

LINE INPUT#l,e$ 

PRINT# 2, e$ 

Zeile=Zeile+l 

WEND 

IF EOF(l) THEN 
CLOSE 1 
NeuZeile=Zeile 

LOCATE zy,l:PRINT USING ''####";NeuZeile; 
Checkfile=0 
END IF 
END IF 

Zeile=NeuZeile 
END IF 
RETURN 

EingabeZeile: 

x=cs(AnzCsZ) 

weiter: 

cy=zy+INT(x/LBZeile);cx=zx+(x MOD LBZeile) 

LOCATE cy,cx 
COLOR 0,1 
PRINT CHR$(z(x)); 

LOCATE cy,cx 
IF x>apos THEN apos=x 
IF Checkfile AND FZok THEN 
IF EOF(l) THEN 
Checkfile=0 : CLOSE 1 
ELSE 

e$=INPUT$(l,l) 

END IF 
ELSE 

e$=INKEY$ 

END IF 

IF e$='*' THEN weiter 

COLOR 1,0 

PRINT CHR$(z(x)); 

LOCATE cy,cx 
e=ASC(e$) 

IF ((e AND 127)<32) OR e=127 THEN Controlcode 
IF imode THEN GOSUB insert 
PRINT e$ 
z(x)=e : e=30 


Controlcode: 

IF e=13 OR e=10 THEN 
RETURN 

ELSEIF e=30 THEN 
a=l 

ELSEIF e*29 THEN 
a=LBZeile 
ELSEIF e=31 THEN 


ELSEIF e=28 THEN 
a=-LBZeile 
ELSE 

GOTO noCrs 
END IF 
x=x+a 

IF x>=0 AND x<LZeile THEN weiter 
x=x-a 

GOTO weiter 
noCrs: 

IF e=8 THEN 
IF x>0 THEN 
x=x-l 

LOCATE zy+INT(x/LBZeile),zx+(x MOD LBZeile) 

FOR i=x TO apos 
z(i)»z(i+l) 

PRINT CHR$(z(i)); 

IF i MOD LBZeile=59 THEN PRINT:PRINT TAB(zx) 
NEXT i 

z(apos)=32 : PRINT " ' 
apos=apos-l 
END IF 

ELSEIF e=127 THEN 
FOR i=x TO apos 
z(i)=z(i+l) 

PRINT CHR$(z(i)); 

IF i MOD LBZeile=59 THEN PRINT:PRINT TAB(zx); 
NEXT i 

z(apos)=32 PRINT ' ' 
apos=apos-l 
ELSEIF e=129 THEN 
GOSUB Eingabesumme 
x=cs(AnzCsZ) 

ELSEIF e=130 THEN 
imode=imode XOR 1 
LOCATE 7,28 
IF imode THEN 
PRINT "aus' 

ELSE 

PRINT "ein* 

END IF 

ELSEIF e=131 THEN 
GOSUB loeschen 
x=cs(AnzCsZ) 

ELSEIF e=134 THEN 
RETURN 

ELSEIF e=5 THEN 
FEnde=wahr 
RETURN 
END IF 
GOTO weiter 
insert: 

IF apos>x THEN 
FOR i=apos TO x STEP -1 
z(i+l)=z(i) 

NEXT i 

z(x)=32 

apos=apos+l 

IF apos=LZeile THEN apos=apos-l:z(LZeile)=32 
FOR i=x TO apos 
PRINT CHR$(z(i)); 

IF i MOD LBZeile=59 THEN PRINT:PRINT TAB(zx); 
NEXT i 

LOCATE zy+INT(x/LBZeile),zx+(x MOD LBZeile) 

END IF 
RETURN 
CalcSumme: 
a=0 : b=0 : c=0 
IF e=134 THEN 
FZok=wahr 
FF6=FF6+1 
ELSE 

WHILE z(apos) =32 AND apos>0 
apos=apos-l 
WEND 

IF apos>0 THEN 
WHILE z(c)=32 


REM weder noch 


Listing. Der verbesserte »Checkie 42«. Bitte mit der 
ersten Version von »Checkie 42« oder ohne Prüfsummen 
und Zeilennummern eingeben. 
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tiNGABEHILFE 

( 


357 Bt8 

C=C+1 


358 D16 

WEND 


359 jc4 

END IF 


360 EJ 

FOR i=c TO apos 


361 Y26 

j=(i-c) MOD AnzFak 


362 Qs 

k=(i+l-c) MOD AnzFak 


363 sl 

a=a+((z(i) AND 127)-32)*Faktor(j) 


364 2E 

b=b+((z(i) and 127)-32)*Faktor(k) 


365 Ka4 

NEXT i 


366 pA 

cs(4)=a+Zeile-INT((a+Zeile)/62)«62 


367 4N 

cs(5)=b+Zeile-INT<(b+Zeile)/62)»62 


368 4Q 

FZok=(cs(l)=cs(4)) AND (cs(2)=cs(5)) 


369 tm2 

END IF 


370 Kw 

RETURN 


371 pMO Uebernahme: 


372 xD2 

FOR i=0 TO apos 


373 ih4 

PRINT#2,CHR$(z(l)); 


374 Tj2 

NEXT i • 


375 VZ4 

PRINT#2,''*' 


376 5R2 

'Zeile=Zeile+l 


377 R3 

RETURN 


378 N90 fertig: 


379 MJ2 

IF Checkfile THEN 


380 ZZ4 

WHILE NOT EOF(l) 


381 6r6 

LINE INPUT#l,e$ 


382 DE 

PRINT# 2, e$ 


383 cQ4 

WEND 


384 Ok 

CLOSE 1 


385 922 

END IF 


386 5q 

CLOSE 2 


387 nt 

CLS 


388 Rg 

LOCATE 12,35 


389 WL 

PRINT •FERTIG!!!'^ 


390 19 

LOCATE 20,1 


391 Dl 

IF FF6O0 THEN 


392 C14 

PRINT "ACHTUNG!!! 


393 9H 

PRINT FF6;" Zeile(n) wurde(n) ungeprüft gespeichert." 

394 IB2 

END IF 


395 jL 

RETURN 


(C) 1988 

M&T 


Listing. Der verbesserte »Checkie 42« 
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CHHITS 




DÄTAMAT 


• DÄTAMAT PLUS« 

• DATAMAT PROFESSIONAL • 
- zum Amiga 



DATABECKER 

AMIGA 


Alles über Ihre kleine Freundin. 

Wie gut das Handbuch auch sein mag, das grobe 
Amiga-500-Buch macht sich durch komplettes Detail¬ 
wissen einfach unentbehrilch. Ob zur Hordware, zur 
Workbench oder zur Programmierung - hier finden Sie 
dos Know-how, das einen Profi auszeichnet. Doch auch 
wenn Sie dieses Buch komplett durchgearbeitet haben, 
bleibt Ihnen das große Amiga-500-Buch als nützliches 
und zuveriössiges Nachschlagewerk erhalten. Ein weiterer 
Grund, es immer griffbereit neben dem Amiga stehen zu 
haben. Das große Amiga-500-Buch - die Pflichtlektüre 
für jeden Amiga-500-Anwender. 

Das große Amiga-500-Buch 
Hardcover, ca. 450 Seiten, DM 49,- 
erscheint ca. 11 / 88 


Das Know-how zu Ihrem DATAMAT-Programm. 

Dos Programm nach Maß: DATAMAT. In drei verschiede¬ 
nen Versionen ist dieses Programm für den Amiga 
erhältlich. Als reine Dateiverwaltung, als einfache Daten- 
bonk und als Dotenbank mit integrierter Programmier¬ 
sprache. Wo liegen die Unterschiede der einzelnen 
Programme, was leisten sie und vor allem, wie setzt 
man sie optimal für eigene Anwendungen ein? Die 
Antworten finden Sie in „DATAMAT Know-how". Zohl- 
reiche Tips & Tricks runden das Ganze ab. DATAMAT 
Know-how - damit die Programme auch halten, was sie 
versprechen. 

DATAMAT Know-how 
ca. 400 Seiten, DM 39,- 
erscheint ca. 11 / 88 


Rund um die Datenbank Superbase. 

Ob Superbose Personal II oder Superbase Professional - 
das große Superbase-Buch zeigt Ihnen, vwis diese 
Datenbanken im einzelnen leisten. Angefangen von der 
Dateideflnition, über die Diologboxen und Schaltsymbole 
bis hin zur mächtigen Programmiersprache DML finden 
Sie hier alles, um Ihr Programm optimal für eigene 
Anwendungen nutzen zu können. Wie immer Sie Super¬ 
base auch einsetzen mögen, privat oder gewerblich, mit 
diesem Buch machen Sie mehr daraus. Dos große 
Superbose-Buch - und Sie lernen Ihr Programm so 
richtig kennen. 

Das große Superbase-Buch 
ca. 350 Seiten, DM 39,- 
erscheint ca. 11 / 88 



AMIGA 


AMIGA 


NAME. VORNAME 


STRASSE 


Perfekte Texte mit WordPerfect. 

WordPerfect bietet eine unglaubliche Anzahl von Funk¬ 
tionen - da muß man schon bestens Bescheid wissen, 
um dieses Programm bis zum letzten nutzen zu können. 
Das große Buch zu WordPerfect kann Ihnen dabei 
helfen. Es ermöglicht Ihnen nicht nur einen schnellen 
Start, sondern vermittelt Ihnen auch jene Detailkennt¬ 
nisse, die Sie brauchen, um Ihre Texte perfekt zu gestal¬ 
ten. Natüdich auch in diesem Buch: zohlreiche Tips 8. 
Tricks für Ihre tägliche, praktische Arbeit. Für buchstäb¬ 
liche Vielschreiber einfach ein Muß. 

Das große Buch zu WordPerfect. 

Hardcover, ca. 320 Seiten, DM 39,- 
erscheint ca. 11 / 88 


Der Ton macht die Musik. 

Zoubern Sie zarte Klänge oder heiße Rhythmen aus 
Ihrem Amiga. Mit dem Amigo-Musikbuch - ein Buch, dos 
voller Musik steckt. Hier werden Sie zu einem Komponi¬ 
sten ousgebildet, der nicht nur die notwendigen Grund¬ 
begriffe der Musiktheorie beherrscht, sondern ouch 
modernste Technik einzusetzen weiß. Denn in diesem 
Buch erfahren Sie alles zu den Musikprogrammen Sonix, 
DeLuxe Constmction Set und Audio Master. Dabei lernen 
Sie auch, wie Sie Sound-Sampler und MIDI-Interface 
professionell einsetzen. Wenn Sie mit diesem Buch gear¬ 
beitet haben, sollten Sie auch gleich der GEM beitreten. 
Amiga-Musikbuch 
Hardcover, 384 Seiten, DM 49,- 
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zzgl. DM 5,- Versandkosten unobhöngig von der bestellten Stöckzohl 
□ per Nochnohme □ Verrechnungsscheck liegt bei 


DATA BECKER 

Merowingerstr. 30 • 4000 Düsseldorf -Tel. (0211) 310010 







































































Das AMIGA-Werkzeug. 

Profi-Programmierer können EDwork nur bedingt 
empfehlen: 

Erst dachten sie, EDwork sei nur irgendeiner der zahlreichen, 
mehr oder weniger nützlichen Editoren für den Amiga. Dann 
stellten sie fasziniert fest, was in dem neuen Programm 
steckt. Und schließlich wurde ihnen schlagartig klar, daß mit 
EDwork der talentierte Nachwuchs mit Macht nach oben 
drängen wird. Denn nach Lektüre des ausführlichen 
Handbuchs ist EDwork das Werkzeug für alle, die ihren ganz 
individuellen Editor programmieren wollen, um damit 
universell arbeiten zu können. 



Hier sind einige der Punkte, die Profis lieber für sich behalten möchten: 
Mit über 120 Befehlen (und einem.dazu mitgelieferten Compiler, der 
die Programme schneller macht) gestalten Sie sich Ihre ganz persön¬ 
liche EDwork-Version - etwa mit eigenen Pulldown-Menüs. Ober 
65.000 Makros sind definierbar. Das Tasteninitialisierungs-Programm 
schreiben Sie nach Wunsch und legen damit beispielsweise kleine 
Programme auf einzelne Funktionstasten. 



Mitgelieferte EDwork-Hilfsprogramme für C- und Assem¬ 
bler-Programmierer machen Ihre Arbeit effizienter: Sie komprimieren, 
verschönern oder korrigieren Ihre Quelltexte. Mit "SHIFT/FIO" können 
Sie z. B. Ihr Programm aus dem Editor heraus kompilieren lassen (etwa 
durch Aufruf des Aztec-C-Compilers): Eine Fehlerdatei wird geladen 
und der erste Fehler angezeigt. Natürlich läßt sich EDwork auch an 
alle anderen Programmiersprachen anpassen. 



punkte von EDwork wird aber die Übersicht¬ 
lichkeit Ihrer Programme sein. Durch die 
sogenannte Faltentechnik lassen Sie Module, 
die zur Zeit nicht Zeile für Zeile angezeigt 
werden sollen, einfach in den ^Falten" ver¬ 
schwinden. Diesen schicken „Outline"-Effekt 
können Sie selbstverständlich auch im Berufs- oder Privatleben nutzen. 
Legen Sie beispielsweise bei der Projekt- oder Terminplanung die 
Daten über benötigte Mitarbeiter oder Ressourcen einfach in den „Fal¬ 
ten" ab: Aus den Augen, aber nicht aus dem Speicher. 


J 


Werden Sie jedoch hellhörig, wenn Kollegen, die sich 
schon eine EDwork-Version gekauft haben, ihre Neuanschaffung 
ebenso diskret vor Ihnen verbergen wollen wie weggefaltete Pro¬ 
grammteile. Denn EDwork ist viel zu gut und viel zu preiswert, als daß 
seine Vorteile nur wenigen zugute kommen sollten. 

EDwork gibt es für 99,- Mark. Der Editor lauft auf allen 
Amiga-Rechnern der 500er-, lOOOer^ und 2000ei^Serie. 


Bitte ein senden an: DATA BECKER 
Merowingerstraße 30, 4000 Düsseldorf 1 

□ Hiermit bestelle ich EDwork Amiga 
für DM 99,- 

□ per Nachnahme □ Verrechnungsscheck anbei 
NAME, VORNAME 

STRASSE 


Merowingerstr. 30 • 4000 Düsseldorf -Tel. (0211) 310010 


ORT 
















